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

3 votes194 views2 answers
Vba active workbook path
VBA
0 vote188 views1 answer
Vlookup columns not next to each other
VBA
0 vote182 views1 answer
Loop through lines in text file vb net
VBA
0 vote180 views1 answer
Vba collection key list
VBA
0 vote231 views1 answer
Excel vba delete columns in range
VBA
0 vote195 views1 answer
Vbscript check if string is empty
VBA
0 vote271 views1 answer
Vba change active sheet
VBA
4 votes223 views1 answer
VBA Deep Clone Dictionary
VBA
1 vote182 views1 answer
Add control vb
VBA
0 vote182 views1 answer
Default host vbox address
VBA