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 vote245 views1 answer
Excel vba first column in range
VBA
2 votes236 views1 answer
Vba file from path
VBA
0 vote213 views1 answer
Excel vba address not absolute
VBA
0 vote254 views1 answer
Vbnet check if string is only letters
VBA
4 votes219 views2 answers
Vba array length
VBA
0 vote226 views1 answer
Vba remove last vbcrlf
VBA
0 vote215 views1 answer
Quit excel with save changes dialog vb.net
VBA
31 votes513 views1 answer
Excel vba function to convert column number to letter
VBA
0 vote214 views1 answer
Vba check 32 or 64 bit
VBA
0 vote246 views1 answer
Excel vba DisplayAlerts
VBA