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 vote293 views1 answer
Vba min
VBA
0 vote296 views1 answer
VBA Sleep Snippet
VBA
2 votes279 views1 answer
Excel vba check if key is in collection
VBA
0 vote287 views1 answer
Vba copy file
VBA
0 vote307 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote285 views1 answer
Dynamic array vba
VBA
3 votes305 views2 answers
Vba date to string
VBA
0 vote303 views1 answer
Excel vba protect sheet
VBA
0 vote281 views1 answer
Vbs expand env var
VBA
0 vote285 views1 answer
Default host vbox address
VBA