appel de userforms

Bonjour à tous,

Voilà mon problème :

J'ai crée une vingtaine d'USF nommée p.ex. truc1, truc2, truc3, etc.

Chaque USF contient une centaine de labels.

Je voudrais faire une chose comme suit :

Code:

---

1 2	letruc = "truc3" Userforms(letruc).Label23.Caption = "Test"

---

Bien sûr, cela ne marche pas !

Pourriez-vous m'indiquer comment appeler une UserForm à partir de son nom, celui-ci étant contenu dans une variable ?

J'espère avoir été assez clair.

Grand merci par avance.

Bonjour,

Essaie comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub choix_usf() Dim LeTruc As String Dim MonUsf As Object LeTruc = "UserForm1" Set MonUsf = ThisWorkbook.VBProject.VBComponents.Item(LeTruc) With VBA.UserForms.Add(MonUsf.Name) .Label1.Caption = "essai" .TextBox1 = "Coucou" .Show End With End Sub

---

Bon Dimanche

Un grand merci pour cette très matinale réponse !!

Je sens qu'on est tout près du résultat ... Je ne comprends pas bien qu'il faille passer par ces instructions assez obscures pour mon niveau, mais bon ...

En fait, je souhaite utiliser le code que tu m'as donné dans un autre userform que LeTruc où j'ai simplement un TextBox et sur le CommandButton1_Click.
La valeur du TextBox doit s'inscrire dans un Label de LeTruc, comme ci-dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() Dim LeTruc As String Dim MonUsf As Object LeTruc = "Plomb" & leplomb lobservation = Me.TextBox1.Value Unload Me If leplomb = 0 Then LeTruc = "Plomb" Set MonUsf = ThisWorkbook.VBProject.VBComponents.Item(LeTruc) With VBA.UserForms.Add(MonUsf.Name) .Controls("Label" & lacalc).Caption = lobservation .Show End With End Sub

---

lacalc étant une variable définie précédemment pour connaître quel Label doit être renseigné.

Ce qui m'embête maintenant, c'est que l'instruction .Show ouvre une nouvelle fois le UserForm LeTruc et ce n'est pas vraiment ce que je souhaite ... J'ai bien essayé de remplacer .Show par .Load (comme elle est déjà ouverte) mais il n'en veut pas.

Un grand merci pour le coup de main !

Bonjour,

J'ai en partie résolu mon problème avec un long Select Case mais si quelqu'un a une autre solution à proposer, je suis toujours preneur.

Merci d'avance pour vos réponses expertes !