Je sais que mon code est foireux que ça sonne vraiment pas beau, mais je ne vois pas comment tester de condition sur les objets.
En fait dans mon code je copie le contenu de cellules et dans ces cellules je copie aussi des rectangles qui ont été créés.
Le truc c'est que dans ma feuille finale de stat je n'ai plus besoin de ces rectangles et je veux les effacer.
Si je fais activesheet.drawingobjects.delete il y a aussi mon bouton qui sert à lancer la macro qui disparaît.
J'ai essayé de supprimer les boutons sous condition "bouton localisé dans telle column" mais ça ne marche pas.
Du coup je suis, comme tout le temps, bloqué.
Voici le coupable:
Quelqu'un peut me donner une piste, ou une solution?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Dim rectangle As Object For Each rectangle In Worksheets("Résultats d'ensemble") If rectangle.Name <> "CommandButton1" Then rectangle.Delete End If Next rectangle
Merci
Partager