Renommer un graphique

[Troudz]

Bonjour tout le monde,

Je fais appel à vos services car je vais finir par devenir dingue.
J'ai un grand nombre de graphiques à renommer. Pour cela, je me suis fait une macro toute basique mais qui ne veut pas fonctionner.

Donc si je fais :

Msgbox ActiveChart.Name

J'obtiens bien le nom du graphique actif. Par contre si je veux le renommer en faisant :

ActiveChart.Name = "Test"

J'obtiens l'erreur "La méthode 'Name' de l'objet '_Chart' a échoué.

J'ai tourné ça dans tous les sens et impossible de trouver une solution.

Auriez vous une idée ?

 

[Pierrot93]

Re : Renommer un graphique

Bonjour,

essaye peut être ainsi :

Sheets("Feuil1").Shapes(1).Name = "NomGraph"

bon après midi
@+

 

[Troudz]

Re : Renommer un graphique

Bonjour Pierrot et merci pour ta réponse

Le soucis c'est que j'ai plusieurs graphiques sur chaque feuille. Comment puis je récupérer le numéro d'index de mon Shapes ?

 

[Pierrot93]

Re : Renommer un graphique

Re,

ou ceci du reste :

Sheets("Feuil1").ChartObjects(1).Name = "NomGraph"

 

[Troudz]

Re : Renommer un graphique

Nos messages semblent s'être croisés Pierrot.
Mon soucis est que ma macro se lance sur le graphique sélectionner par l'utilisateur. Du coup je ne connais pas son numéro d'index et ne peut le saisir "en dur" dans ma macro.

 

[Pierrot93]

Re : Renommer un graphique

Re,

pourquoi ne pas utiliser une variable objet alors :

Dim c As Chart
Set c = ActiveChart

ensuite dans ton code, quand tu veux faire référence au graph tu te sert de la variable "c"....

 

[Troudz]

Re : Renommer un graphique

Tous simplement parce que je n'y avais pas pensé

Merci pour ton aide Pierrot.

Bonne fin de journée à tous !