Récupérer tous les noms

[Pierwak]

Salut, je me demandais si il existait une astuce pour lister les noms de tous les objets présents dans un userform... A la main c long et fastidieux mais j'aimerais bien pouvoir avoir cette liste sous les yeux quand je code histoire d'appeler directement les bons objets. Si quelqun connait un facon de faire ca...

 

[ftho]

Re : Récupérer tous les noms

Bonjour,

Oui il y aurait moyen avec un petit bout de code mais en principe en tapant UserForm1. après avoir taper le point, tu as un menu déroulant comportant tous les objets

Si tu te situes dans un évènement du UserForm ou d'un des objet qui le compose, en tapant Me. tu obtiens également cette liste

Voici un bout de code qui va inscrire tous les noms d'objets dans la feuille active

Sub USF_Objets()
Dim Ctrl As Control, X As Byte
X = 1
For Each Ctrl In UserForm1.Controls
Cells(X, 1) = Ctrl.Name
X = X + 1
Next Ctrl
End Sub

 

[Pierwak]

Re : Récupérer tous les noms

Merci, usefull !!!