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

4 votes329 views2 answers
Vba create folder if not exist
VBA
0 vote333 views1 answer
Vba find sub dictionary
VBA
0 vote353 views1 answer
Vba integer to double
VBA
0 vote331 views1 answer
Vba file chooser
VBA
1 vote330 views1 answer
Vba delete file
VBA
1 vote292 views1 answer
Ms access open form to new record
VBA
0 vote379 views1 answer
Filesystemobject vba reference
VBA
0 vote320 views1 answer
Vba exit while
VBA
0 vote315 views1 answer
Vba format currency
VBA
0 vote330 views1 answer
Vba code for cutoff time
VBA