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 vote342 views1 answer
Excel vba saveas force overwrite
VBA
31 votes481 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote321 views1 answer
How to use VBA to add new record in MS Access?
VBA
2 votes319 views1 answer
Vba uppercase first letter of each word
VBA
0 vote322 views1 answer
Visual basic msdos
VBA
-1 vote365 views1 answer
How save excel through visual basic
VBA
31 votes483 views1 answer
Vba how to convert a column number into an Excel column
VBA
1 vote361 views1 answer
Set font for ms chart vb.net
VBA
0 vote317 views2 answers
Excel vba close without saving
VBA
0 vote354 views1 answer
Excel last used row
VBA