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 vote114 views1 answer
Vbnet add new ecel sheet
VBA
6 votes136 views1 answer
Excel vba check if a string only contains letters
VBA
0 vote125 views1 answer
Selecttoken em vbnet e json
VBA
0 vote143 views1 answer
Find if year is leap year vb
VBA
2 votes133 views2 answers
Vba code to remove duplicates from a column
VBA
0 vote126 views1 answer
Excel vba calculate
VBA
0 vote122 views1 answer
Vba get text file content
VBA
8 votes205 views1 answer
Excel vba determine number of elements in a 1D array
VBA
22 votes260 views1 answer
Xl vba check for folder
VBA
32 votes250 views2 answers
Excel vba column letter
VBA