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

Source: silkyroad.developpez.com

Similar codes

0 vote172 views1 answer
Vbscript for loop
VBA
1 vote172 views1 answer
Excel vba compare 2 rows
VBA
0 vote165 views1 answer
Vba file size
VBA
0 vote193 views1 answer
Vba DisplayGridlines
VBA
1 vote169 views1 answer
Textbox find and replace vb
VBA
1 vote182 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
5 votes189 views1 answer
Excel vba right word from Long Integer
VBA
0 vote191 views1 answer
Tester si une case est vide vba
VBA
0 vote180 views1 answer
Excel vba first working day month
VBA
0 vote174 views1 answer
Excel vba disable keyboard input
VBA