XL 2019 Modifier l'aspect d'un Control dans un USF à partir d'un autre USF

[SgTrGt]

Bonjour à tous, voila maintenant 2 jour que je cherche comment faire... J'ai trouvé des piste mais rien qui fonctionne

Je souhaiterai pouvoir modifier la couleur d'un CommandButon situé dans un UserForm (en cours d'exécution) à partir d'un autre Userform.
Je récupère le nom du premier USF dans une variable Origine1 "USF_A_1"
Je récupère le nom du CommandButton dans une variable Origine2 "B1_1", c'est 2 valeurs sont corrects
C'est la que je sèche... Quoi faire avec

Voici ce qui fonctionne, mais que je souhaite rendre dynamique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

USF_A_1.B1_1.BackColor = RGB(0, 255, 0)
et ce qui ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Origine1.Controls(Origine2).BackColor = RGB(0, 255, 0)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VBA.UserForms.Add(origine1).Controls(Origine2).BackColor = RGB(0, 255, 0)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1 2 3

With UserForms.Add(Origine1) .Controls(Origine2).BackColor = RGB(0, 255, 0) End With

Merci d'avance pour vos réponses

PS : J'ai vraiment besoin de procéder ainsi, cette opération va être à faire un multitude de fois. Merci

 

[Eric C]

Bonjour SgTrGt, le forum

A tester (brut) sans avoir remis tes variables.
Bonne journée à toutes & à tous
@+ Eric c

 

[SgTrGt]

Merci beaucoup Eric pour ton temps, mais ce que je souhaite c'est appeler le USF et le CommandButton par des variables.. Désolé si je me suis mal expliqué. Je vais avoir beaucoup de bouton et beaucoup de USF.

 

[Dranreb]

Bonjour.
Ce ne sont jamais les noms des objets qu'il faut noter dans des String par des affectations classiques, mais les objets eux mêmes par des Set dans des variables de leurs types spécifiques. Le Type d'un UserForm c'est son nom, bien que ce dernier soit le plus souvent utilisé en tant que nom, aussi, de son exemplaire par défaut.

 

[SgTrGt]

Un grand merci Monsieur, J'avais essayé avec un truc du genre

Set Origine1 = me.name

et c'était tout simplement

Set Origine1 = Me

Encore un grand merci, bonne continuation