Bonjour le forum,
j'ai un petit problème, j'aimerais changer la valeure d'un label de mon Userform avec un Scrollbar. Pour ceci j'utilise le code suivant :
Private Sub UserForm_Initialize()
With ScrollBar1
.Min = 0 'Valeur mini
.Max = 100 'Valeur maxi
'Spécifie la distance de déplacement intervenant lorsque l'utilisateur
'clique entre le curseur de défilement et la flèche de défilement.
.LargeChange = 10
'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
'les flèches de défilement dans le contrôle ScrollBar
'(La valeur par défaut = 1)
.SmallChange = 5
End With
End Sub
Private Sub ScrollBar1_Change()
Label1 = ScrollBar1.Value
End Sub
(trouvé ici sur un site concurent 😱 Utiliser les contrles dans un UserForm, en VBA Excel)
Cela fonctionne très bien, seul hic : lorsque je met plusieurs contrôles comme celui ci sur le même Userform plus rien ne fonctionne. Pourquoi, et comment régler ce problème ?
Merci d'avance !
j'ai un petit problème, j'aimerais changer la valeure d'un label de mon Userform avec un Scrollbar. Pour ceci j'utilise le code suivant :
Private Sub UserForm_Initialize()
With ScrollBar1
.Min = 0 'Valeur mini
.Max = 100 'Valeur maxi
'Spécifie la distance de déplacement intervenant lorsque l'utilisateur
'clique entre le curseur de défilement et la flèche de défilement.
.LargeChange = 10
'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
'les flèches de défilement dans le contrôle ScrollBar
'(La valeur par défaut = 1)
.SmallChange = 5
End With
End Sub
Private Sub ScrollBar1_Change()
Label1 = ScrollBar1.Value
End Sub
(trouvé ici sur un site concurent 😱 Utiliser les contrles dans un UserForm, en VBA Excel)
Cela fonctionne très bien, seul hic : lorsque je met plusieurs contrôles comme celui ci sur le même Userform plus rien ne fonctionne. Pourquoi, et comment régler ce problème ?
Merci d'avance !