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 vote371 views1 answer
Code for reading letters only in vb 6
VBA
0 vote332 views1 answer
Excel vba populate array with cell values
VBA
0 vote368 views1 answer
Vba multiple optional arguments
VBA
0 vote349 views1 answer
Vba option button selected
VBA
3 votes341 views1 answer
Excel vba read registry key value
VBA
0 vote364 views1 answer
Vba listbox remove all items
VBA
0 vote341 views1 answer
Excel vba extract year
VBA
0 vote488 views1 answer
Vba change active sheet
VBA
0 vote335 views1 answer
Hello world vb.net
VBA
0 vote345 views1 answer
Select case vba
VBA