Discussion :

[silmarion]

Bonjour,

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

Code :

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

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 ?

[ouskel'n'or]

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

Code :

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

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

Si ça ne te convient pas, tu dis

[silmarion]

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

"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

[JackOuYA]

bonsoir,

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

[silmarion]

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.