Discussion :

[FloFlosu]

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

[mercatog]

tu as un seul graphique sur ta feuille?

[FloFlosu]

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

[mercatog]

Code :

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

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

pour effacer l'unique graphique

Code :

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

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

[FloFlosu]

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

[mercatog]

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

[FloFlosu]

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.