Discussion :

[Sécateur]

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 :

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

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.

[mapeh]

Bonjour,

Essaie comme ceci :

Code :

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

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

[Sécateur]

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 :

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

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 !

[Sécateur]

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 !