Discussion :

[candrau]

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 :

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

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 :

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

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 :

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

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

Code :

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

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?

[SfJ5Rpw8]

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

Code :

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

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"

[candrau]

Le problème est que la valeur

Code :

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

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 :

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

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)

[candrau]

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