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?