barre défilement via active x

Y compris Power BI, Power Query et toute autre question en lien avec Excel
d
dann
Membre fidèle
Membre fidèle
Messages : 328
Inscrit le : 19 février 2014
Version d'Excel : 2007

Message par dann » 19 septembre 2014, 12:39

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
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 4'020
Appréciations reçues : 305
Inscrit le : 26 janvier 2011
Version d'Excel : 2007/2019

Message par Theze » 19 septembre 2014, 16:15

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é.
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
d
dann
Membre fidèle
Membre fidèle
Messages : 328
Inscrit le : 19 février 2014
Version d'Excel : 2007

Message par dann » 19 septembre 2014, 21:04

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
d
dann
Membre fidèle
Membre fidèle
Messages : 328
Inscrit le : 19 février 2014
Version d'Excel : 2007

Message par dann » 19 septembre 2014, 21:59

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 ?
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message