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 vote310 views1 answer
Vb get ip address
VBA
1 vote329 views1 answer
Find and replace textbox
VBA
0 vote299 views1 answer
Excel vba center userform
VBA
0 vote292 views1 answer
Vba dropdown event
VBA
0 vote316 views1 answer
Excel vba round to whole number
VBA
0 vote338 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
0 vote301 views1 answer
Change "location" of binding navigator vb
VBA
0 vote298 views1 answer
Excel vba current folder
VBA
2 votes256 views1 answer
Excel vba pause
VBA
0 vote327 views1 answer
Find if year is leap year vb
VBA