macro avec bouton toupie sur userform

[klorane]

Bonjour à tous,

j'utilise un userform sur le quel j'ai un bouton toupie avec la macro suivante :

Private Sub SpinButton1_Change()
Dim j As Integer
j = SpinButton1.Value
TextBox1.Value = Range("B" & j).Value
TextBox1.ForeColor = Range("B" & j).Font.Color
TextBox2.Value = Range("A" & j).Value
End Sub


le problème que j'ai c'est que lorsque je clique sur le bouton toupie, les données à afficher défilent d'un coup et je suis donc obligé de faire marche arriere pour retourner là ou j'étais.

y a t'il possibilité d'ajouter quelque chose à la macro de façon à avancer uniquement de 1 lorsque je clique sur la toupie et se jusqu'à se que je relache le bouton de la souris.

Si ce n'est pas possible, utiliser un simple bouton me derange pas mais qui dans ce cas peut me modifier la macro ci dessus pour l'adapter à un simple bouton?

Merci

Sébastien.

 

[MichelXld]

Re : macro avec bouton toupie sur userform

bonjour

tu peux faire un essai en ajoutant

Private Sub UserForm_Initialize()
    With SpinButton1
        .Min = 0 'Valeur mini
        .Max = 100 'Valeur maxi
        
        'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
        'les flèches de défilement dans le contrôle SpinButton
        '(La valeur par défaut = 1)
        .SmallChange = 1
    End With
End Sub

bonne journée
MichelXld

 

[klorane]

Re : macro avec bouton toupie sur userform

Merci Michel.

Il semblerait que se soit bon.

Bonne journée à toi aussi.

Sébastien