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 vote224 views1 answer
Vba boolean to string
VBA
0 vote201 views1 answer
Vba verticalalignment
VBA
0 vote201 views1 answer
Vba add month to date
VBA
1 vote194 views1 answer
Excel vba first row in range
VBA
3 votes207 views1 answer
Vba folderexists
VBA
0 vote177 views1 answer
Excel vba concatenate range
VBA
5 votes209 views1 answer
Excel vba get user selected range
VBA
0 vote218 views1 answer
Vba sheet hide unhide
VBA
-1 vote194 views1 answer
Text to speech vb.net
VBA
0 vote202 views1 answer
Vba border weight
VBA