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 vote362 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote354 views1 answer
Vba paste values
VBA
1 vote353 views1 answer
How to do error handling in access vba
VBA
5 votes423 views1 answer
Vba low byte from INTEGER
VBA
0 vote358 views2 answers
Get excel file from email attachment in vba
VBA
0 vote339 views1 answer
How to make a a msgbpx in vbs
VBA
0 vote334 views1 answer
Excel vba formatconditions range
VBA
0 vote363 views1 answer
Vba leading zeros in string
VBA
-1 vote380 views1 answer
Vba code to add new column in table
VBA
0 vote375 views1 answer
Date as number vb
VBA