De: Laurent longre Objet: Re: selection de ts les objets dans feuille et.. Date : dimanche 23 juillet 2000 16:03 Dim I As Integer, Wksht As Worksheet, Obj As Object set Wksht = ActiveSheet Application.screenupdating = False Worksheets.Add After:=ActiveSheet range("A1:B1") = [{"Objet","Macro"}] I = 1 For Each Obj In Wksht.DrawingObjects I = I + 1 Cells(I, 1) = Obj.Name Cells(I, 2) = Obj.OnAction Next Obj With range("A1").CurrentRegion .AutoFormat xlrangeAutoFormatList2 .autofilter End With Laurent malefeteur@wanadoo.fr a écrit : > > bjr à ts(es), > > une feuille de classeur nommé donnés,de nombreux objets un peu > partout dans cette feuille (graphs,boutons,image,etc...),pour la > plupart de ces objets,une macro est associé. > > afin de rationnaliser cette feuille,je dois supprimer certains > objets,voire garder les objets mais supprimer les macros associés à > ces objets. > > mon probléme est de savoir s'il est possible de sélectionner ts les > objtes de cette feuille,avec leur "nom",ex:image 201,bouton 855...,de > crér une liste de ces objets ( sur une autre feuille) avec leurs > noms;et les macros associés si macro associé il y a... > > >>>>>>>>>>>>>>merci d'avance..........yves > > Sent via Deja.com http://www.deja.com/ > Before you buy.