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 vote306 views1 answer
Shortcut to apply a formula to an entire column in excel
VBA
0 vote305 views1 answer
Vba sort the data Z to A
VBA
0 vote288 views2 answers
Excel vba protect cells with formula
VBA
0 vote277 views1 answer
Vb streamreader
VBA
8 votes394 views1 answer
Excel vba make word
VBA
5 votes330 views1 answer
Excel vba first byte from INTEGER
VBA
0 vote301 views1 answer
Loop through each cell in dgv vbnet
VBA
0 vote287 views1 answer
Excel vba delete folder
VBA
1 vote287 views1 answer
Add a index column power bi
VBA
0 vote309 views1 answer
Excel vba urlmon
VBA