VBA modifier valeure d'un label avec un Scrollbar

[Cefiroth]

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 !

 

[kjin]

Re : VBA modifier valeure d'un label avec un Scrollbar

Bonjour,

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 ?

Quel pourrait-être le sens de cette question...je cherche encore
A+
kjin

 

[Cefiroth]

Re : VBA modifier valeure d'un label avec un Scrollbar

Ce que je veux dire c'est que lorque je j'associe un scrollbar à un label dans mon Userform ça fonctionne très bien, mais lorsque j'associe un deuxième scrollbar à un deuxième label dans le même Userform, les deux ne fonctionnent pas.

 

[tototiti2008]

Re : VBA modifier valeure d'un label avec un Scrollbar

Bonjour Cephiroth, Bonjour kjin 🙂

Pourtant je ne vois pas de soucis majeur avec 2 scrollbars et 2 labels

 

[kjin]

Re : VBA modifier valeure d'un label avec un Scrollbar

Re,
C'est déjà plus clair...sauf que sans fichier, je ne verrais ni où se situe le pb, ni la solution
A+
kjin

 

[Cefiroth]

Re : VBA modifier valeure d'un label avec un Scrollbar

Effectivement ça fonctionne bien dans ton fichier tototiti2008. Il doit y avoir une petite erreure dans le mien que je vais corriger...

Merci d'avoir pris le temps de répondre !

 

[Cefiroth]

Re : VBA modifier valeure d'un label avec un Scrollbar

En fait le probème vient du fait que je souhaite un .SmallChange = 0.1 et c'est ici que tout bloque...

 

[tototiti2008]

Re : VBA modifier valeure d'un label avec un Scrollbar

Re,

un extrait de l'aide VBA :

object.SmallChange [= Long]

Le Type Long signifie Entier Long, donc entier...
Mais rien ne t'empêche d'avoir

.SmallChange = 1

et

Label2 = ScrollBar2.Value/10

 

[Cefiroth]

Re : VBA modifier valeure d'un label avec un Scrollbar

Effectivement ça marche impecablement.

Merci beaucoup !