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 vote235 views1 answer
Excel text to columns line break
VBA
1 vote251 views1 answer
Vbs run
VBA
1 vote241 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA
2 votes225 views1 answer
Excel vba date to string conversion
VBA
0 vote235 views1 answer
Vba len variant
VBA
0 vote253 views1 answer
Excel vba protect shapes
VBA
5 votes252 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote237 views1 answer
Vba declare 64-bit ptrsafe
VBA
0 vote245 views1 answer
Vba format currency
VBA
0 vote230 views1 answer
Vba nested dictionary
VBA