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 vote228 views1 answer
Excel vba join variant array
VBA
0 vote229 views1 answer
Excel vba set cell value to empty
VBA
1 vote210 views1 answer
Excel vba compare 2 rows
VBA
0 vote213 views1 answer
Vba word open document read only
VBA
0 vote235 views1 answer
Vba open report
VBA
-1 vote244 views1 answer
Code for reading letters only in vb 6
VBA
0 vote209 views1 answer
Vba file size
VBA
0 vote204 views1 answer
Excel vba hide columns
VBA
0 vote213 views1 answer
.net dark title bar
VBA
3 votes227 views2 answers
Excel "vba" match last value
VBA