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

4 votes279 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
0 vote288 views1 answer
Vba open report
VBA
0 vote283 views1 answer
Loop through lines in text file vb net
VBA
0 vote314 views1 answer
Programmatically copy data from one workshet to another excel
VBA
0 vote267 views1 answer
Excel vba protect content
VBA
5 votes321 views2 answers
Excel vba write to the windows registry
VBA
0 vote268 views1 answer
Excel vba show developer tab
VBA
0 vote303 views4 answers
Vgrive,deb
VBA
4 votes264 views2 answers
Vba array length
VBA
0 vote264 views1 answer
Hello world vb.net
VBA