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

5 votes178 views1 answer
Excel vba low word from Long Integer
VBA
0 vote169 views1 answer
Average vba
VBA
0 vote163 views1 answer
Excel vba disable alerts
VBA
0 vote164 views2 answers
How to concatenate more than 40 lines in vba
VBA
0 vote169 views1 answer
Returns an array from function vba
VBA
0 vote169 views1 answer
Vba nested dictionary
VBA
-1 vote180 views2 answers
Excel vba delete empty rows
VBA
0 vote117 views1 answer
Vba select file in folder
VBA
0 vote180 views1 answer
Priavte sub with multiple handels find sneder
VBA
0 vote164 views1 answer
Vba border weight
VBA