[Résolu] VBA - Scrollbar : sens de l'ascenseur vertical

[Balot57]

Bonjour,

J'ai créé une userform à l'intérieur de laquelle j'ai inséré un label et une scrollbar. La scrollbar a un ascenseur vertical. Chaque fois que l'utilisateur clique sur une flèche de l'ascenseur, la valeur du label s'incrémente ou se décrémente de 1. Mais mon problème est que pour incrémenter, il faut cliquer sur la flèche du bas, et pour décrementer il faut cliquer sur la flèche du haut. Cela perturbe les utilisateurs qui se sont plaints (!).
Savez-vous comment faire pour qu'un clic sur la flèche du haut incrémente, et un clic sur la flèche du bas décrémente ?
Je vous remercie par avance pour votre aide.

 

[James007]

Re : VBA - Scrollbar : sens de l'ascenseur vertical

Bonjour,

Il te suffit d'utiliser la cellule liée et de la multiplier par -1 ...

A +
🙂

 

[mutzik]

Re : VBA - Scrollbar : sens de l'ascenseur vertical

bonjour,

dans les évenements de ton scrollbar, ils existe spindown et spinup
quand tu appuie sur l'un ou l'autre, tu modifies la valeur en rajoutant ou retranchant 2 (puisque le spin a automatiquement déja ajouté ou retranché 1

sinon, envoie ton fichier ...

Private Sub SpinButton1_SpinDown()
lbl.Caption = CDbl(lbl.Caption) - 1
End Sub

Private Sub SpinButton1_SpinUp()
lbl.Caption = CDbl(lbl.Caption) + 1
End Sub

Private Sub UserForm_Initialize()
lbl.Caption = "0"
End Sub

 

[Balot57]

Re : VBA - Scrollbar : sens de l'ascenseur vertical

Merci pour vos réponses.
Je viens de trouver une autre solution : il suffit d'inverser les initialisations des min et max de la scrollbar. Par exemple :
ScrollBar1.Min = 31
ScrollBar1.Max = 1
Comme ça, la flèche du haut incrémente et la flèche du bas décrémente.