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

5 votes211 views1 answer
Excel vba first byte from INTEGER
VBA
3 votes204 views1 answer
Excel vba make long from two shorts
VBA
0 vote203 views1 answer
VBA Sort RossetaCode
VBA
32 votes415 views2 answers
Excel vba column letter
VBA
0 vote197 views1 answer
Dynamically change drop down list visual basic
VBA
1 vote179 views1 answer
Vba delete array element
VBA
0 vote190 views1 answer
Vbnet check if sting contians symbols
VBA
0 vote191 views1 answer
VB Error Code BC30201
VBA
0 vote192 views1 answer
Vba exit while
VBA
0 vote204 views1 answer
How to make a a msgbpx in vbs
VBA