Bonsoir à toutes et à tous.

Dans un classeur qui comporte plusieurs UserForm et plusieurs objets LlistBox, TexBbox, Label, CommandButton …), je souhaiterai lister tous les UseForm et tous ses contrôle dans une feuille.

J'arrive à créer cette liste sur une seule colonne voici mon code :
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
Sub ListeUSF_Controle()
    Dim VBCmp As VBComponent
    Dim Ctrl As Control
    i = 2
    For Each VBCmp In ThisWorkbook.VBProject.VBComponents
        If VBCmp.Type = 3 Then
            Cells(i - 1, 1) = VBCmp.Name
            ActiveCell.Interior.Color = 49407
            For Each Ctrl In clients.Controls
                Worksheets("Liste contrôles").Cells(i, 1).Value = Ctrl.Name
                i = i + 1
            Next Ctrl
        End If
    Next VBCmp
    Activesheet. Cells.EntireColumn.AutoFit 
End Sub
Mais j'aimerai lister dans la première colonne le nom du premier UserForm et les noms de ses contrôles, dans la deuxième colonne le nom du deuxième UserForm et les noms de ses contrôles, ainsi de suite …

Je n'y arrive pas, cela ne doit pas être très compliqué pour les experts de ce forum.

Merci d'avance pour votre aide.