Lister tout les objets d'un formulaire

[jpmasclet]

Bonjour à tous,
Petite question toute bete, est il possible de lister tout les objets d'un formulaire ?

En gros je m'explique quand meme, j'ia un formulaire sur lequel j'ai 20 pages, sur chaque page j'ai environ 20 objets (txtbox, listbox, optionbutton , etc..) et a force je m'y perd dans tout les termes,........; donc s'il y avait une possible de sortir une liste je gagnerai un temps fou !!

Merci par avance !
JP

 

[BOISGONTIER]

Re : Lister tout les objets d'un formulaire

Bonjour,

Private Sub CommandButton1_Click()
  Dim c As Control, ligne
  ligne = 1
  For Each c In Me.Controls
     Sheets(1).Cells(ligne, 1) = c.Name
     Sheets(1).Cells(ligne, 2) = TypeName(c)
     ligne = ligne + 1
  Next c
End Sub

JB
Formation Excel VBA JB

 

[jpmasclet]

Re : Lister tout les objets d'un formulaire

Bonjour BOISGONTIER, et un grand merci,
Je ne savis pas que c'etait possible j'ai demandé par hasard et j'ai bien fait!! c'est super !!

Encore merci je vais gagner qq heures à mon avis

Ps : j'ai listé 600 objets quand meme lol