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 vote159 views1 answer
Date as number vb
VBA
0 vote144 views1 answer
Type excel.application is not defined vb
VBA
0 vote150 views1 answer
Remove first character from string vb
VBA
0 vote162 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote166 views2 answers
Checking and changing system volume vb.net
VBA
5 votes94 views1 answer
Vlookup vba
VBA
0 vote143 views1 answer
Vbnet chart make 0 gridline line different color
VBA
0 vote160 views1 answer
Find database connection string vb
VBA
1 vote150 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
1 vote144 views1 answer
Close form vba
VBA