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

Electron24 · 18 Août 2023

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 · 18 Août 2023

Electron24 à dit:
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

VB:

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

Jacky67 · 18 Août 2023

Electron24 à dit:
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

VB:

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

Electron24 · 18 Août 2023

Bonjour Jacky

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

mapomme · 18 Août 2023

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".

VB:

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

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

Electron24

XLDnaute Occasionnel

Pièces jointes

Jacky67

Jacky67

XLDnaute Barbatruc

Pièces jointes

Electron24

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires