Multipage dans Multipage

Bonjour,

J'essaye de créer dynamiquement un multipage2 dans la page 0 d'un autre multipage1.
Pour l'instant, j'ai créé le 1er multipage comme cela:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Activate()   Dim i As Integer Dim Pge As Page Dim octl As Object Dim nbr As Integer   For i = 1 To UBound(onglets_equip) 'création des onglets "equipement" dans le userform Set Pge = MultiPage1.Pages.Add Pge.Caption = onglets_equip(i) Next i

---

Puis j'ai créé le second multipage comme cela:

Code:

---

MultiPage1.Pages(0).Controls.Add("Forms.MultiPage.1").Name = MultiPage2

---

Ce code me crée 2 nouvelles pages dans la page 0 du 1er multipage. Mon problème est que je n'arrive pas à y accéder pour pouvoir changer le nom par exemple.
J'ai essayé

Code:

---

MultiPage2.Pages(0).Caption = "test"

---

Code:

---

MultiPage1.Pages(0).MultiPage2.Pages(0).Caption = "test"

---

Le 1er essai me dit qu'un objet est requis, le 2eme me dit que la méthode n'existe pas...
Quelqu'un aurait une idée sur comment je pourrais faire?

En référençant ton 2° multipage avec une nouvelle variable :

Code:

---

1 2 3 4

Dim MultiPage2 As MultiPage Set MultiPage2 = MultiPage1.Pages(0).Controls.Add("Forms.MultiPage.1") MultiPage2.Pages(0).Caption = "Ma Page 0" MultiPage2.Pages(1).Caption = "Ma Page 1"

---

Le problème est que la valeur

Code:

---

ubound(onglets_equip)

---

dont je me sers pour créer le 1er multipage est variable, et que dans chacun de ces onglets, je dois y mettre un nouveau multipage avec un nombre lui aussi variable de pages.
Est-ce que, dans ce cas, avec ta solution, je peux par exemple déclarer un tableau de multipage comme ceci :

Code:

---

dim MultiPage() as multipage

---

, vu que je ne sais pas à priori combien de MultiPage2 je devrai créer.... (je sens que ce que je viens d'écrire n'est pas très clair:?)

Bon, un tableau de multipage fonctionne pour ce que je veux faire. Encore merci pour ton code, ça m'a bien aidé ;)