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