Trouver un graphique

Bonjour tout le monde,

voilà, j'aimerai beaucoup trouver une graphique dans une feuille. Et s'il existe l'effacer. Sinon, ben ne rien faire.
Ah oui petite précision, sans connaitre le nom du graphique. (ben oui sinon, c'est trop facile)

Donc si quelqu'un s'est déjà posé la question merci du tips.

Flo

tu as un seul graphique sur ta feuille?

mmm oui..... pour l'instant, parce que ça risque d'évoluer.
Mais si ça marche avec un, c'est déjà pas mal.

Code:

---

1 2 3

On Error Resume Next Sheets("Feuil3").ChartObjects(1).Delete On Error GoTo 0

---

pour effacer l'unique graphique

Code:

---

1 2 3 4 5

Dim chrt As ChartObject   For Each chrt In Sheets("Feuil3").ChartObjects chrt.Delete Next chrt

---

pour effacer tous les graphiques

J'ai pris pour exemple le(s) graphique(s) de la Feuil3
Edit: corrigé une grossière coquille

erreur 1004 : erreur definie par l'application ou par l'objet :(

Adapte le nom de ta feuille et j'ai corrigé une coquille

oui j'avais compris pour la feuille ;)
J'avais aussi corrigé la petite erreur, mais j'avais oublié le (1).
En tout cas, ça fonctionne, merci pour tout.