Barre défilement via active x

bonjour,

je cherche la procédure pour créer une barre de défilement en contrôle active x,par macro, qui change la valeur de a1.

comment peut on aussi borner en valeur mini et maxi cette barre?

merci

Bonjour,

Un ScrollBar par exemple ?

Sur un formulaire :

Private Sub UserForm_Initialize()

    ScrollBar1.Min = 0
    ScrollBar1.Max = 100

End Sub

Private Sub ScrollBar1_Change()

    Range("A1").Value = ScrollBar1.Value

End Sub

Dans la feuille de calcul, utiliser la page des propriétés pour borner puis le code est identique :

Private Sub ScrollBar1_Change()

    Range("A1").Value = ScrollBar1.Value

End Sub

Hervé.

bonjour,

merci de cette réponse.j'ai testé ce code qui fonctionne.

Les valeurs de la case a1 défilent en laissant la souris cliquée sur la flèche du haut ou du bas.est il possible de voir défiler ces mêmes valeurs si l'on clique avec la souris sur le curseur de la barre de défilement et qu' on le fait glisser d'un côté ou de l'autre?, ( comme avec une barre formulaire le fait )

Private Sub ScrollBar1_Change()

ScrollBar1.Min = 0

ScrollBar1.Max = 100

Range("A1").Value = ScrollBar1.Value

End Sub


re,

je viens de tester en mettant "Private Sub ScrollBar1_Scroll()" et ça fonctionne avec la barre mais plus avec les flèches qui sont aux extrémités.il faudrait pouvoir faire les 2

re bonsoir,

cela fonctionne avec 2 codes à la suite:

Private Sub ScrollBar1_Scroll()

ScrollBar1.Min = 0

ScrollBar1.Max = 100

Range("A1").Value = ScrollBar1.Value

End Sub

Private Sub ScrollBar1_change()

ScrollBar1.Min = 0

ScrollBar1.Max = 100

Range("A1").Value = ScrollBar1.Value

End Sub

peut on les condenser ?

Rechercher des sujets similaires à "barre defilement via active"