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 vote170 views1 answer
Vbnet check if sting contians symbols
VBA
8 votes185 views1 answer
Excel vba make integer
VBA
0 vote168 views1 answer
Excel vba first working day month
VBA
0 vote158 views1 answer
Vba get relative cell address
VBA
2 votes193 views1 answer
Vba round number
VBA
0 vote169 views1 answer
Worksheet.pastespecial textbox
VBA
0 vote171 views1 answer
Remove first character from string vb
VBA
0 vote166 views1 answer
Vba apostrophe chr
VBA
0 vote200 views1 answer
How to call gcd in vba
VBA
0 vote168 views1 answer
Vba type variable
VBA