Création de label ou controls

Je voudrais créer une procédure, qui ajoute à un userform des labels et des zone de texte, en fonction de critère, notamment pour le nombre d'objet à ajouter.
Mais je n'y arrive malgré l'aide d'ecel. Quelqu'un pourrait il m'éclairer?:calim2:

Bonjour

Une piste

Code:

---

1 2 3 4 5 6 7 8 9

Dim Label As Object Set Label = Me.Frame1.Controls.Add("Forms.Label.1") With Label .Top = 10 .Left = 10 .Width = 4 .Height = 4 .Caption = "" End With

---

Créer un nouveau Label dans une Frame nommée Frame1

Tu dis

L'userform avec le frame apparaissent mais pas le label????

Oui il n'a pas de caption

essais

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Label As Object Set Label = Me.Controls.Add("Forms.Label.1") With Label .Top = 10 .Left = 10 .Width = 100 .Height = 100 .Caption = "ffffffff" .Visible = True End With

---

tu dis

J'ai réussi: problème d'écriture: ne pas indiquer MSFORMS mais FORMS.

Code:

---

1 2 3 4 5 6 7 8 9

Set etiquette = Feuille_Fichier.Frame1.Controls.Add("Forms.label.1", , True) With etiquette .Top = 50 * i .Left = 50 .Width = 20 .Height = 20 .Caption = "Feuille" & i   End With

---