Récupérer tous les noms

Pierwak

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
Code:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 149
Messages
2 085 773
Membres
102 972
dernier inscrit
Alain PICHON