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 vote175 views1 answer
Windows Presentation Foundation dark title bar
VBA
0 vote203 views1 answer
Vba integer to double
VBA
-1 vote181 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote179 views1 answer
Excel vba saveas no prompt for overwrite
VBA
0 vote166 views1 answer
Excel vba copy entire sheet paste values
VBA
0 vote188 views1 answer
Vba multiple optional arguments
VBA
0 vote173 views1 answer
.net dark title bar
VBA
0 vote183 views1 answer
Vba static variable
VBA
0 vote185 views1 answer
Make your computer talk vbscript
VBA
0 vote164 views1 answer
Vb.net round to 2 decimal places
VBA