la caption d'un label retenu comme variable

[zeltron]

Bonjour à tout le forum

Voici mon problème.

J'ai un USF1 qui contient 3 commandbutton
Quand on clique sur l'un de ces commandbutton, l'USF2 s'ouvre

Sur cet USF2, j'ai
- un commandbutton ( bouton d'apercu) dont la couleur de fond reprend celle du bouton de l'USF1 sur lequel on a cliqué pour ouvrir l'USF2
- un label ( label2) dont le caption reprend le "name" du bouton de l'usf1 sur lequel on a cliqué pour ouvrir l'usf2
- 3 commandbuttons dont la couleur de fond est rouge, bleu et jaune

Quand on clique sur l'un de ces boutons (rouge, bleu, ou jaune) le bouton "apercu" prend la couleur de fond.

Ce qui me pause problème c'est que je souhaite en cliquant sur ce bouton d'apercu de l'USF2 appliquer sa nouvelle couleur au bouton de l'USF1 sur lequel on a cliqué pour ouvrir l'usf2. Pour cela je prends donc le caption du label qui donne le nom du bouton de l'usf1 qui avait été cliqué. Mais cela ne fonctionne pas. Ci après je vous met le code qui pause problème ainsi que le fichier joint.

Code:

Private Sub CommandButton1_Click() 'c'est le bouton d'apercu
UserForm1.[userform2.Label2.caption].BackColor = UserForm2.CommandButton1.BackColor
End Sub

Ce qu'il n'aime pas c'est: [userform2.Label2.caption]
Pour moi cette partie de code donne le nom du bouton de l'USF1 auxquel il faut appliquer la couleur de fond du bouton "apercu" de l'USF2.

Je ne voit pas comment je peux rectifier mon code.
Pouvez vous m'aider?
Peut être qu'au delà du code qui ne va pas, la solution de retenir dans un label le nom du commandbutton du l'USF1 sur lequel on a cliqué pour ouvrir l'USF2 afin que dans un second temps en cliquant sur le bouton d'apercu de l'USF2 sa couleur de fond puisse s'appliquer au bouton de l'USF1 concerné, n'est peut être pas la bonne solution.

Je suis ouvert à vos propositions

Je vous joint également le fichier afin que cela soit plus explicite pour vous.

Vous remerciant par avance

Cordialement

Zeltron

 

[Pierrot93]

Re : la caption d'un label retenu comme variable

Bonjour Zeltron

Je ne suis pas sur d'avoir compris ton problème, j'ai simplement enlevé le code ci dessous qui semble t il te pose problème :

Ce qu'il n'aime pas c'est: [userform2.Label2.caption]

Il nous reste donc le code ci dessous :

Private Sub CommandButton1_Click()
UserForm1.BackColor = UserForm2.CommandButton1.BackColor
End Sub

Et a priori lorsque je clique sur le bouton vert de l'USF2, la couleur de l'USF1 est bien modifiée ern vert !!!

Bon après midi
@+

 

[porcinet82]

Re : la caption d'un label retenu comme variable

Salut Zeltron,

En pièce jointe, ton fichier modifié.

@+

Edition : Oups, désolé Pierrot, pas rafraichit 😉

 

[Pierrot93]

Re : la caption d'un label retenu comme variable

Bonjour Porcinet

Pas grave surtout que ta solution semble meilleure

bonne journée

 

[zeltron]

Re : la caption d'un label retenu comme variable

Merci beaucoup Pierrot et Porcinet de vous êtes interessés à mon problème.

Pierrot, ta solution changeait la couleur de l'USF1, ce qui n'était pas ce que je souhaitais.

Porcinet, ta solution est exactement ce que je recherchais.

Merci encore à tous les deux

Bonne fin de journée

Cordialement

Zeltron