Microsoft 365 Utilisation d'un compteur pour monter ou descendre dans ma feuille

[Electron24]

Bonjour le Forum,

Je cherche avec un contrôle de formulaire (Compteur) de monter ou descendre ma feuille afin de voir d'autres cellules.
Est il possible avec un compteur (Compteur2) de monter ou descendre la feuille ?
C'est-à-dire avancer ou reculer de 6 cellules afin d'afficher les autres heures.
La cellule A2 est la cellule liée au compteur.

 

[Jacky67]

Bonjour le Forum,

Je cherche avec un contrôle de formulaire (Compteur) de monter ou descendre ma feuille afin de voir d'autres cellules.
Est il possible avec un compteur (Compteur2) de monter ou descendre la feuille ?
C'est-à-dire avancer ou reculer de 6 cellules afin d'afficher les autres heures.
La cellule A2 est la cellule liée au compteur.

Bonjour,
Cette macro liée au compteur

Sub Compteur2_QuandChangement()
Application.Goto Cells([a2] + 5, 1), True
End Sub

 

[Electron24]

Bonjour Jacky

Super cela est exactement ce que je recherché. Un grand merci
Cordialement Guy

 

[mapomme]

Bonjour à tous,

Le compteur varie de 0 à 1 et la cellule liée est A4.
Des constantes définissent la ligne min, la ligne max, le pas.
Le code est dans le module de la feuille "Hebdomadaire".

Public Sub plusOUmoins()
Const LigneMin = 5, LigneMax = 65, Pas = 6
Dim ligne&
   ligne = IIf([a4] = 1, -Pas, Pas) + ActiveWindow.VisibleRange.Row
   If ligne < LigneMin Then ligne = LigneMin
   If ligne > LigneMax - Pas Then ligne = LigneMax - Pas
   ActiveWindow.ScrollRow = ligne
End Sub