Nom d'un graphique

Bonjour, je vous expose la situation :

J'ai une dizaine de graphiques sur un onglet.
J'en fais une copie un par un, chacun sur son onglet de destination avec une macro.

Mon problème est que tout mes graphiques changent de nom entre le premier onglet et l'onglet ou je les copie. Ex : mon graph1 devient graph 6 etc...

Ceci m'empêche de continuer à travailler sur ma feuille de destination. Je ne peux pas par exemple agrandir mon graphique vu qu'il a changé de nom.

Peut-on donner un nom fixe à un graphique, qu'il gardera meme après copie sur un autre onglet?

Merci de m'avoir lu

[MichelXld]

bonjour Chris

pour nommer le 1er graphique dans la feuille active tu peux utiliser

ActiveSheet.ChartObjects(1).Name = 'Le nom du Graphique'


cet autre exemple recupere le nom du 1er graphique dans la feuille 1 , colle ce graphique dans la Feuil3 , puis le renomme avec le meme nom


Sub CopierCollerGraphique_AvecMemeNom()
Dim LeNom As String
Dim NbGraph As Byte
' cet exemple ne prend pas en compte les erreurs si un autre graphique
'porte deja le meme nom dans la feuille

LeNom = Feuil1.ChartObjects(1).Name 'recuperer le nom existant
Feuil1.ChartObjects(1).Copy 'copier le graphique
Feuil3.Range('E5').PasteSpecial xlPasteAll 'coller dans la Feuil3

NbGraph = Feuil3.ChartObjects.Count 'compte le nombre de graphiques dans la Feuil3
'le nouveau graphique correspond à l'index le plus élevé

Feuil3.ChartObjects(NbGraph).Name = LeNom 'réattribuer le nom

End Sub


bonne soiree
MichelXld