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

1 vote226 views1 answer
Excel vba to lower case
VBA
2 votes210 views1 answer
Vba split string
VBA
1 vote227 views2 answers
Vba string length
VBA
0 vote210 views1 answer
Vba text to general
VBA
0 vote269 views1 answer
Excel vba paste all to each sheet in workbook
VBA
0 vote212 views1 answer
Add items to combobox vb.net
VBA
9 votes491 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote237 views1 answer
.net dark title bar
VBA
0 vote210 views1 answer
Quit excel with save changes dialog vb.net
VBA
0 vote216 views1 answer
Excel vba assign shortcut key to button
VBA