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 vote153 views1 answer
Vba change named range address
VBA
0 vote155 views1 answer
Returns an array from function vba
VBA
0 vote150 views1 answer
Vba createparameter null
VBA
8 votes250 views1 answer
Excel vba determine number of elements in a 1D array
VBA
0 vote156 views1 answer
Vba run command
VBA
0 vote140 views1 answer
Style percent not found vba
VBA
0 vote155 views1 answer
Excel vba formatconditions range
VBA
22 votes297 views1 answer
Excel vba check if directory exists
VBA
22 votes295 views1 answer
Excelvba check for directory
VBA
1 vote148 views1 answer
If inputbox cancel vba
VBA