Le contrôle SpinButton (Toupie)
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 = 5
End With
End Sub
Private Sub SpinButton1_Change()
Label1 = SpinButton1.Value
End Sub