Scrollbar & incrémentation compteur

[Creepy]

Scrollbar & incrémentation compteur

Bonsoir à tous,

J'ai fait une boite de dialogue dans une userform. l'utilisateur peut y saisir un chiffre entre 1 et 10. Par defaut elle affiche 4.

Pour faciliter la saisie j'ai mis une scrollbar verticale sur le coté pour diminuer ou augmenter le compteur.

Quel code ecrire pour que lorsque je clique sur la scrollbar ca augmente ou diminue ma valeur ?

Merci d'avance

Creepy

 

[@+Thierry]

Re: Scrollbar & incrémentation compteur

Bonsoir Creepy, le Forum

Je na sais pas ce que tu appelles une "boite de dialogue" dans un UserForm, mais imaginons un UserForm, une ScrollBar, une TextBox et le code suivant dans le Private Module :

Private Sub UserForm_Initialize()
   With Me.ScrollBar1
      .Min = 1
     .Max = 10
     .Value = 4
   End With

Me.TextBox1 = Me.ScrollBar1
End Sub


Private Sub ScrollBar1_Change()
Me.TextBox1 = Me.ScrollBar1
End Sub


Voilà, ce devrait faire ce que tu veux

Bonne Nuit
@+Thierry