Discussion :

[NulenVBA]

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 :

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

Quelqu'un peut me donner une piste, ou une solution?

Merci

[pgz]

Bonjour.


Tu peux essayer ton code en modifiant cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each rectangle In Worksheets("Résultats d'ensemble").Shapes

Si tu as plusieurs boutons, il vaut mieux tester le type d'objet que le nom.

PGZ

[NulenVBA]

super, merci, t'es presque comme un prof particulier ;-) !