Discussion :

[Pierre67]

Bonjour à tous

grâce à ce forum j'ai beaucoup appris et j'apprends encore.
je ne suis pas un programmeur chevronné comme beaucoup d'entre vous et encore moins ordonné

Existe t-il un moyen d'obtenir la liste de tous les useeforms d'un projet et la liste des contrôles qui se trouvent sur chacun ?
sous la forme d'un fichier texte, d'un tableau xl ou csv ....

sin non une piste de progrès pour vba
merci à vous
Pierre

[kiki29]

Salut, pour cela lire : Visual Basic Editor ( ici par exemple )

[Sebphyto]

Bonjour,

Si cela peut t'aider

Comment boucler sur les userforms et leurs contrôles depuis l'éditeur VBE ?


Il est parfois utile de lister les noms des contrôles et leur contenu lorsque que vous travaillez sur des projets volumineux.
Cette procédure montre comment boucler sur les userforms du classeur, puis sur tous les contrôles afin d'identifier les labels.

Nécessite d'activer la référence Microsoft Visual Basic for Applications Extensibility 5.3.

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
Dim VBCmp As VBComponent
Dim Ctrl As Control
 
'Boucle sur les composants du classeur
For Each VBCmp In ThisWorkbook.VBProject.VBComponents
    'S'il s'agit d'un UserForm
    If VBCmp.Type = 3 Then
        Debug.Print VBCmp.Name
        'Boucle sur les contrôles des userforms
        For Each Ctrl In VBCmp.Designer.Controls
        'S'il s'agit d'un label
        If TypeName(Ctrl) = "Label" Then _
            Debug.Print Ctrl.Name & " / " & Ctrl.Caption
        Next Ctrl
 
        Debug.Print "-----"
    End If
 
Next VBCmp

Créé le 18 novembre 2008 par SilkyRoad

A+

[Pierre67]

bonsoir

j'ai essayé la macro de Sebphyto

j'obtiens une erreur 1004 "erreur définie par l'application ou par l'objet"

[clementmarcotte]

As-tu pris le temps d'ajouter la référence ?

As-tu pris le temps le temps de cocher la case pour faire confiance au projet Visual Basic à quelque part dans les options ?

[Sebphyto]

Bonjour,

Je remets la référence à activer

Nécessite d'activer la référence Microsoft Visual Basic for Applications Extensibility 5.3.

Pour cela il faut ouvrir "l'Editeur VB" puis aller dans "Outils" puis "Références"
pour chercher

Microsoft Visual Basic for Applications Extensibility 5.3.

A bientôt