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

1 vote209 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
0 vote200 views1 answer
Excel vba clear filter
VBA
4 votes191 views1 answer
Excel formula for last non-empty cell in a column
VBA
0 vote184 views1 answer
Remove frist letter from string vbnet
VBA
2 votes188 views2 answers
Constructor vb.net
VBA
1 vote170 views1 answer
Vba listindex select multiple items vba
VBA
1 vote207 views1 answer
Export datagridview to excel vb.net
VBA
1 vote191 views2 answers
Vba remove first 2 characters from string
VBA
0 vote215 views1 answer
Excel R1C1 mode
VBA
0 vote224 views1 answer
Excel vba protect shapes
VBA