supprimer des objets sous une condition
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:
Code:
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 |
Quelqu'un peut me donner une piste, ou une solution?
Merci :)
