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 vote249 views1 answer
Find database connection string vb
VBA
0 vote239 views1 answer
Excel vba protect content
VBA
0 vote245 views1 answer
Vba excel parser xml
VBA
0 vote237 views1 answer
How to use VBA to add new record in MS Access?
VBA
0 vote276 views1 answer
Programmatically copy data from one workshet to another excel
VBA
0 vote235 views1 answer
Excel vba center userform
VBA
0 vote250 views1 answer
Get month number from month name vbnet
VBA
2 votes233 views2 answers
Excel vba copy values range to another range
VBA
0 vote246 views1 answer
Power query M substract minimum value of column -dax
VBA
0 vote245 views1 answer
Do while not vb.net
VBA