Extraire tous les Name contenus dans tous les UserFom présents dans une Macro VBA afin de les renommer

Version imprimable

22/01/2016, 15h04
JLK2015

Extraire tous les Name contenus dans tous les UserFom présents dans une Macro VBA afin de les renommer

Bonjour,
Je suis devant un problème qui dépasse mes maigres connaissances.

But:
Je cherche à extraire tous les « name » associé aux divers CommandButton, Label, ComboBox... ou « control » de tous les Userform contenu ou present dans une Macro afin de les renommer par la suite de façon approprié.

Question:
Pourriez-vous m'orienter dans ma démarche.

Info:
J'ai déjà extrait la liste de tout les éléments contenus de la Macro, ex. Objets, Feuil UserForm, Modul....

Environnement:
J'utilise Excel office 2013.Microsoft Visual Basic pour Applications version 7.1

Merci, par avance pour vos conseils avisés.
Respectueusement JLK2015

Ceci devrait le faire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 
Dim US As Object
Dim CR As Object
 
For Each US In UserForms
   Debug.Print "UserForm : "; US.Name; " = "; US.Controls.Count; " controls"
   For Each CR In US.Controls
      Debug.Print "  > "; CR.Name
   Next CR
Next US
 
End Sub

Merci, beaucoup pour la réactivité.
Etant novice, je suis un peut perdu et quelque chose m'échappe,
je lance la macro test() fourni ci-dessus, la macro s'execute mais rien ne se passe, du moins je ne vois rien.

Dois-je faire une association à des variables de ma Macro qui contient les UserForm ?
Dois-je faire l'activation d'une référence dans le menu Outil ? (Fonction suplémentaire)
...

Beaucoup de questions, du fait que je ne suis pas expert et j'en suis navré.
Je vous remercie par avance de m'envoyer des explications sur le context d'utilisation et de lancement de cette petite macro.

Info:
J'ai déactivé par ' la fonction Debug.Print du fait que je ne sais pas utiliser le résultat.
J'ai essayer de déclarer les varibles en temps que type Controls, cela ne donne pas plus de résultat.
La macro d'éssai contient 2 UserForm "Toto" et "Tata" comprenant chacune 2 zones de texte de type Label soit 4 variables à extraire.
Les références activées dans Option sont dans l'ordre d'apparition:

Visual Basic For Application
Microsoft Excel 15.0 Object Library
OLE Automation
Microsoft Office 15.0 Object Library
Microsoft Visual Basice for Application Extensibility 5.3
Microsoft Forms 2.0 Object Library

C'est tout.

Cordialement JLK2015
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub test() Dim US As Object 'j'ai essayé Dim US As Controls ne fonctionne pas Dim CR As Object 'j'ai essayé Dim CR As Controls ne fonctionne pas Dim NumDerniereVariableExt For Each US In UserForms 'Debug.Print "UserForm : "; US.Name; " = "; US.Controls.Count; " controls" NumDerniereVariableExt = Sheets("RapportVariablesExtraites").Range("A200000").End(xlUp).Row 'liste des variables extraite Sheets("RapportVariablesExtraites").Range("A" & NumDerniereVariableExt + 1) = "UserForm " & US.Name NumDerniereVariableExt = Sheets("RapportVariablesExtraites").Range("B200000").End(xlUp).Row 'liste des variables extraite Sheets("RapportVariablesExtraites").Range("B" & NumDerniereVariableExt + 1) = " = " & US.Controls.Count For Each CR In US.Controls 'Debug.Print " > "; CR.Name NumDerniereVariableExt = Sheets("RapportVariablesExtraites").Range("C200000").End(xlUp).Row 'liste des variables extraite Sheets("RapportVariablesExtraites").Range("C" & NumDerniereVariableExt + 1) = " > " & CR.Name Next CR Next US End Sub

heu

je reprend le code de menhir mais dans un msgbox

Code:

1
2
3
4
5
6
7
8
9
Dim US As Object
Dim CR As Object
For Each US In UserForms
   texte = texte & UCase(US.Name) & " > " & US.Controls.Count & " controls" & vbCrLf
   For Each CR In US.Controls
      texte = texte & CR.Name & vbCrLf
   Next CR
texte = texte & "///////////////////////////////////////////////" & vbCrLf
Next US

22/01/2016, 22h35
Invité

Salut,

La collection UserForms ne stock que les composants dit Chargé.
Lorsque l'on décharge un UserForm avec UnLoad par exemple, il disparait de la collection.
25/01/2016, 09h09
Menhir

Citation:

Envoyé par JLK2015

je lance la macro test() fourni ci-dessus, la macro s'execute mais rien ne se passe, du moins je ne vois rien.

Affiche la fenêtre d'exécution : Ctrl+G

Citation:

J'ai essayer de déclarer les varibles en temps que type Controls, cela ne donne pas plus de résultat.

Essaye plutôt le type Object.
A ma connaissance, le type de variable Controls n'existe pas (surtout au pluriel)

Citation:

Dim US As Object 'j'ai essayé Dim US As Controls ne fonctionne pas

US n'est pas un contrôle mais un UserForme

Citation:

Code:

Range("A200000")

Tu es sûr qu'il y a autant de lignes dans ton Excel ?
Il serait plus propre d'écrire :

Code:

Range("A" & Rows.Count)

Bonjour, et merci pour vos différents commentaires que j'appréci.

Malheureusement, je n’ai pas encore réussi à extraire les différents labels contenus dans les différents UserForms.

Compte tenu du facteur temps et que je me concentre sur d'autres aspect de mon application, je passe par du copier-coller de lignes de script.
Exemple ci-dessous. Cela fait mon affaire pour l’instant.
Peut-être auriez-vous la réponse à la question suivante, qui peut m’éviter les copier-coller fastidieux dans un futur proche.

Question:
Comment puis-je « indexer » dans la ligne de code suivante le term en gras pour qu'il fasse référence au texte contenu dans une cellule d'une feuille quelconque ?
For Each Ctrl In MonUserFormTata.Controls
Faut-il Utiliser un certain Type de variable ?

Info:
Lorsque j'utilise une indexation, je me retrouve avec le message "Erreur d'execution '424': Objet requis"
Pour la petite question, concernant Range("A200000"), c'est une méthode "Amateur" qui me sert à localiser la dernière cellule ayant un contenu dans la colonne A exemple ci-dessous.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub RetourInfoFormum() For Each Ctrl In MonUserFormTata.Controls Sheets("RapportVariablesExtraites").Range("A1") = "Ctrl.Name de la UserForm Tata" 'Titre de la colonne A NumDerniereVariableExt = Sheets("RapportVariablesExtraites").Range("A200000").End(xlUp).Row 'liste des variables extraite Sheets("RapportVariablesExtraites").Range("A" & NumDerniereVariableExt + 1) = Ctrl.Name Next Ctrl For Each Ctrl In MonUserFormToto.Controls Sheets("RapportVariablesExtraites").Range("B1") = "Ctrl.Name de la UserForm Toto" 'Titre de la colonne B NumDerniereVariableExt = Sheets("RapportVariablesExtraites").Range("B200000").End(xlUp).Row 'liste des variables extraite Sheets("RapportVariablesExtraites").Range("B" & NumDerniereVariableExt + 1) = Ctrl.Name Next Ctrl '..........ect ect.... End Sub
Merci par avance pour toutes infos qui pouraient me permettre de progresser sur cette partie de mon application.

Cordialement JLK2015

c'est toujour le meme probleme l'acces sans load de l'usf
j'ai bien essayer avec vbcomponent mais la non plus ca ne fonctionne pas

mais cependant si tu veux d'apres ce que je comprends tu veux utiliser la meme sub pour tout les usf (indexation) je dirais plutot argument moi

Code:

1
2
3
sub test
RetourInfoFormum  userform1
end sub

Code:

1
2
3
sub test2
RetourInfoFormum Userform2
end sub

Code:

1
2
3
4
5
6
7
8
9
function RetourInfoFormum(MonUserFormTata as object)
 
     For Each Ctrl In MonUserFormTata.Controls
     Sheets("RapportVariablesExtraites").cells(rows.count,1).end(xlup).offset(1,0)= "Ctrl.Name de la UserForm " & MonUserFormTata.name 'Titre de la colonne A
     NumDerniereVariableExt = Sheets("RapportVariablesExtraites").Range("A200000").End(xlUp).Row 'liste des variables extraite
     Sheets("RapportVariablesExtraites").cells(rows.count,1).end(xlup).offset(1,1) = Ctrl.Name
     Next Ctrl
 
 end function