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

20 votes309 views1 answer
Excel vba recursive example factorial function
VBA
1 vote148 views2 answers
Vba remove first 2 characters from string
VBA
0 vote154 views1 answer
Vbnet dynamically change excel sheet name
VBA
1 vote158 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
-1 vote159 views1 answer
Vba sendkeys
VBA
0 vote162 views1 answer
Excel vba range contains
VBA
0 vote144 views1 answer
Vbnet add new ecel sheet
VBA
0 vote176 views1 answer
Delete all controls in an area vb
VBA
0 vote164 views1 answer
Excel vba first working day month
VBA
1 vote163 views1 answer
Excel vba unload userform
VBA