Ajouter controls sur multipage

Bonjour Forum,

Premièrement je tiens à dire que je ne peux pas joindre de classeur car je suis sous Outlook en ce moment. Mais c'est tout autant valide sous Excel

Dans un Userform, J'essaie d'ajouter des pages en fonction de valeurs récupérés depuis ma listbox1.
jusque là pas de soucis

  Dim i As Integer

      For i = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(i) Then
              Me.MultiPage1.Pages.Add (ListBox1.List(i))

          End If
      Next i

Sauf que dans ces nouvelles pages je veux ajouter des contrôles ( 2x Textbox et 1 bouton de commande)
Je n'y arrive pas du tout

    Dim x As Integer
      x = Me.MultiPage1.Pages.Count

      For p = 2 To x
      Dim tbox_sujet As control

      Set tbox_sujet = Me.MultiPage1.Pages(p).Controls.Add("Forms.TextBox.1", "t_box", True)
      Next p

Pour le moment j'essaie juste avec une textbox ...
Il faudrait que les controles soient bien numérotés .. j'ai beau chercher .. pour le moment je ne comprends pas l'Astuce.

Pour la position et tout .. j'imagine que je saurai me débrouiller

MERCI DE VOTRE AIDE PRÉCIEUSE

Bonjour,

Avez-vous essayer d'insérer les différents contrôles juste après la création de la nouvelle page?

Exemple pour ajouter 1 textbox à chaque ajout d'une nouvelle page:

      For i = 0 To ListBox1.ListCount - 1
          Me.MultiPage1.Pages.Add ListBox1.List(i)
          Me.MultiPage1.Pages(i).Controls.Add ("Forms.TextBox.1")
      Next i

Cdlt

Merci ca fonctionne

sauf qu'étant donné que je veux démarrer ca à partir de la troisième page je dois mettre

Me.MultiPage1.Pages(i + 2).Controls.Add ("Forms.TextBox.1")

Merci!

Rechercher des sujets similaires à "ajouter controls multipage"