[E-03] Suppression d'un graphique-objet

Bonjour,

Dans un de mes feuillets, lors de l'activation, j'ai le code:

Code:

---

1 2 3 4 5 6 7

Set Donnees = Worksheets("Cache").Range(Worksheets("Cache").Range("A40"), Worksheets("Cache").Range("B42"))   Charts.Add ActiveChart.ChartType = xl3DPie ActiveChart.SetSourceData Donnees, PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphs"

---

C'est un diagramme circulaire (un camembert quoi ...)

Y a-t-il moyen de lui associer un nom / identifiant pour pouvoir le supprimer lors de la désactivation du feuillet ?

Si ton graphe est le dernier objet créé dans la feuille, pas besoin de le nommer.

Code:

---

Worksheets("LaFeuille").Shapes(Worksheets("LaFeuille").shapes.count).delete

---

Si ça ne te convient pas, tu dis ;)

Ben ton code il avait une bonne tête, mais excel a pas trop aimé.
Il m'a laissé un petit message à te transmettre :cry:

"Erreur d'éxécution '-2147024809 (80070057)':

L'index de cette collection est en dehors des limites."

Pourtant, c'est le seul graphique que le programme génère, et qu'il contient

bonsoir,

le premier index des shapes n'est-il pas 0 ? dans ce cas la il faudrai enlever 1 à ton .count

en fait, je vient de comprendre que le problème ne se pose que lorsque je bidouille le graphique. Donc ça devrait marcher parfaitement avec un petit test sur le count.

Merci beaucoup à tous les 2.