bonjour,
En effet ton premier fichier joint était un peu simplifié
Ton Gantt fonctionne grâce à des mises en forme conditionnelles.
Si je prends comme base d'observation la cellule K13, le défilement horizontal est basé indirectement sur la valeur de ta barre de défilement : H1 (via la cellule I$7 qui y fait référence)
MFC (bleu) de K13
=ET(I$7>=$C12;I$7<=$E12;I$7>=$H12;I$7>=AUJOURDHUI())
Pour ce qui concerne le défilement vertical la formule ne fait référence à aucune variable. Ce qui est normal.
Si j'ai bien compris, en fait ce que tu veux faire avec ton défilement vertical c'est un scrolling comme j'ai fait dans mon exemple précédent.
Mettre les valeurs min de ta barre de défilement à 12
la valeur max à 200 (ou plus...)
Figer les volets sous la ligne 11
et affecter cette macro à la barre :
Sub Chgt()
ActiveWindow.ScrollRow = [A8].Value
ActiveSheet.Shapes("Scroll Bar 23").Top = Cells(ActiveWindow.ScrollRow, 1).Top + 20
End Sub
A+