Effacer des dessins

[moialbert]

bonjour,
j ai une feuille avec une macro qui me dessine des formes a cote de mes donnees
la macro est lancee par un bouton, et dessine tjrs au meme endroit, mais des formes differentes (les donnees peuvent changer)
donc a chaque fois que je lance la macro, les dessins se superposent...
j aimerais rajouter une ligne de code pour qu avant de redessiner, le bouton efface les dessins deja existants dans la zone de dessin.
le probleme c est que je peux pas utiliser

sheets("mafeuille").Shapes.SelectAll
Selection.Delete
puisque ca me bousille aussi mon bouton

quelqu un qurqit il une idee donc pour supprimer tout les dessins sauf mon bouton, ou supprimer tous les dessins seulement dans une zone donnee de la feuille? svp
fichier en PJ
a savoir qu ici j ai juste laisse les donnees relatives a un dessin, mais l utilisateur modifie ces donnees et redessine a chaque fois en utilisant le bouton


merci de votre aide

 

[PascalXLD]

Re : Effacer des dessins

Bonjour

ajoutes ceci en début de macro

For Each sh In Shapes
If sh.Name <> "dibujar" Then sh.Delete
Next

 

[moialbert]

Re : Effacer des dessins

ca marche bien en rajoutant le if sur le nom
ca doit aussi marcher avec la premiere solution je pense mais plus lg puisque ya differentes formes
merci bcp a vous deux