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 vote146 views1 answer
Excel vba delete folder
VBA
0 vote137 views1 answer
Vba timestamp -- milliseconds
VBA
0 vote130 views1 answer
Vba dropdown event
VBA
1 vote157 views1 answer
Vba optional
VBA
0 vote156 views2 answers
Open url from vba
VBA
0 vote178 views1 answer
Check if cell is dbnullvb.net
VBA
0 vote140 views1 answer
Vba like with wildcard
VBA
2 votes139 views1 answer
Vba split string
VBA
1 vote137 views2 answers
Vba find last row in range for certain criteria
VBA
3 votes145 views1 answer
Vba request json
VBA