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 vote245 views1 answer
Excel vba named range exists
VBA
0 vote228 views1 answer
How to use VBA to add new record in MS Access?
VBA
1 vote180 views1 answer
Ms access open form to new record
VBA
0 vote275 views1 answer
How to call gcd in vba
VBA
0 vote229 views1 answer
Vba sheet visible
VBA
0 vote230 views1 answer
Loop through lines in text file vb net
VBA
0 vote231 views1 answer
Vbnet chart make 0 gridline line different color
VBA
0 vote250 views1 answer
Vbs exec hidden
VBA
0 vote236 views1 answer
Loop through all text boxes in a form vb
VBA
3 votes273 views1 answer
Vba post request json
VBA