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 vote211 views2 answers
Vba remove first 2 characters from string
VBA
11 votes497 views1 answer
Excel vba How to URL encode a string
VBA
22 votes525 views1 answer
Xlvba check for folder
VBA
1 vote232 views1 answer
Excel how to format bytes as KB, MB, GB
VBA
0 vote227 views1 answer
Vba file chooser
VBA
0 vote261 views1 answer
Vbnet check if string is only numbers
VBA
5 votes234 views1 answer
Excel vba highlight cells using the hex color value within the cells
VBA
0 vote234 views1 answer
Excel last used row
VBA
1 vote218 views1 answer
Close form vba
VBA
0 vote221 views1 answer
Excel vba disable mouse click
VBA