Bonjour

Je cherche à partir du tuto de SilkyRoad, a récupérer les Captions de des Labels de mon projet.

J’ai 15 usf

Mon idée était de boucler sur les VBComponents, d’identifier les userform

Puis de boucler sur les contrôles pour chaque Userform

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
                        Dim Ctrl                    As Control
                        Dim Wb                      As Workbook
                        Dim VBComp                  As VBComponent
                        Dim NomUSF                  As String
                        Dim n                       As Long
    
    n = 1
    Sheets.Add
    ActiveSheet.Name = "ListeControles"
    
    Set Wb = ThisWorkbook

    For Each VBComp In Wb.VBProject.VBComponents
        If VBComp.Type = 3 Then
            NomUSF = VBComp.Name

            For Each Ctrl In NomUSF.Controls ‘ Pas moyen de passer cette ligne
                If TypeName(Ctrl) = "Label" Then
                    Cells(n, 1) = Ctrl.Name
                    Cells(n, 2) = TypeName(Ctrl)
                    Cells(n, 3) = Ctrl.Caption
                    n = n + 1
                End If
            Next Ctrl
        End If

    Next VBComp

Comment faire pour chercher les contrôles dans un usf lorsque son nom est ds une variable

Par Avance Merci