Discussion :

[ankoubzh]

Bonjour !
Je souhaite créer dynamiquement un userform contenant plusieurs onglets, avec un certain nombre de labels dans chacun de ces onglets
j'arrive à créer des "multipages", j'arrive à créer des labels, mais pas à créer de labels dans un "multipage".
par analogie avec

Code :

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

1
2
 
userform.designer.controls.add("forms.label.1", "Label"&i)

qui fonctionne très bien, j'ai tenté

Code :

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

1
2
3
4
 
userform.multipage1.pages(1).designer.controls.add("forms.label.1", "Label"&i)
'ou encore
userform.designer.controls.multipage1.pages(1).controls.add("forms.label.1", "Label"&i)

mais soit il ne trouvait pas la méthode, soit il ne trouvait pas d'objet.
comment puis-je procéder ?
merci beaucoup

[SilkyRoad]

bonsoir

Difficile de répondre sans voir comment tu crées préalablement l'userform et le multipage.

ci dessous un exemple simplifié qui crée dynamiquement un userform, un multipage et un label dans la page 2 du multipage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
Dim Usf As Object
 
 
Sub lancementProcedure()
    Dim X As Object
    Dim strList As String, strLabel As String
 
    strList = "MultiPage1"
    strLabel = "Label1"
    Set X = creationUserForm_Et_MultiPage_Dynamique(strList, strLabel)
 
    X.Show
 
    ThisWorkbook.VBProject.VBComponents.Remove Usf
    Set Usf = Nothing
End Sub
 
 
Function creationUserForm_Et_MultiPage_Dynamique(nomMultiPage As String, _
    nomLabel As String) As Object
 
    Dim ObjMulti As Object, ObjLabel As Object
    Dim j As Integer
 
    Set Usf = ThisWorkbook.VBProject.VBComponents.Add(3)
    With Usf
        .Properties("Caption") = "Mon UserForm"
        .Properties("Width") = 300
        .Properties("Height") = 200
    End With
 
    Set ObjMulti = Usf.Designer.Controls.Add("Forms.MultiPage.1")
 
    With ObjMulti
        .Left = 20: .Top = 10: .Width = 160: .Height = 120
        .Name = nomMultiPage
    End With
 
    Set ObjLabel = ObjMulti.Pages(1).Controls.Add("Forms.Label.1")
 
    With ObjLabel
        .Left = 10: .Top = 10: .Width = 70: .Height = 30
        .Name = nomLabel
        .Caption = "mon texte"
    End With
 
    VBA.UserForms.Add (Usf.Name)
    Set creationUserForm_Et_MultiPage_Dynamique = UserForms(UserForms.Count - 1)
End Function

bonne soirée
michel

[ankoubzh]

merci beaucoup, c'est exactement ce que je cherchais ! j'avais un peu trop tout concaténé...