lister les controls contenus dans une feuille excel

[liliput]

Bonjour a tous,

Voila, je cherche a lister les controls d'une feuille excel avec un For Each...
Par example je cherche a lister toutes les textbax ou listbox ou labels...
J'ai pas encore reussi a trouver la bonne syntaxe et je me demande si c'est possible.
Je cherche un truc du genre:

Dim myobj as object
For Each myobj In Worksheets("test").objects
Debug.Print myobj.Name
Next

ps: ce code ne marche pas c'est juste pour vous donner une idee de ce que je cherche.


Merci d'avance.

Liliput

 

[michel]

bonsoir Liliput

la macro ci dessous liste les objets de la feuille active


Sub ListeObjetsFeuille()
Dim Obj As Object
Dim Liste As String
For Each Obj In ActiveSheet.DrawingObjects
Liste = Liste & Obj.Name & Chr(10)
Next Obj
MsgBox "Liste des objets de la feuille active : " & Chr(10) & Chr(10) & Liste
End Sub


bonne soirée
michel

 

[liliput]

Cooooooooooool,


merci, c'est tout bon pour moi. Ca marche comme un charme.

A bientot