Renommer des graphiques sur une feuille

[RENAUDER]

Bonjour,
J'ai un trou de mémoire.
Lorsque je crée plusieurs graphiques sur une feuille, un nom par défaut leur est attribué.
Graphique 1
Graphique 2
Graphique 3
etc ...

J'ai essayé en vain de les renommer mais sans succès ?
D'avance merci

 

[Gael]

Re : Renommer des graphiques sur une feuille

Bonjour Renauder,

Ci-dessous une réponse trouvée sur le site Excelabo:

Nommer un graphique
Je fais référence à des graphiques excel dans d'autres applications, mais je m'y perds dans les noms attribués par excel.
Appuie sur contrôle puis clique sur ton graphique. Le nom du graphique appararaît dans la zone
de nom dans le coin en haut à gauche de l'écran. Tape le nouveau nom et appuie sur entrer.

Excel numérote les graphes dans une feuille suivant une logique qui lui est propre. Pour faire
référence de façon commode à ces graphiques dans d'autres applications, il faut les nommer et
les appeller par leurs noms. Pour cela, clique dans une des cellules de la feuille à
l'extérieur du graphique. Sélectionne maintenant le graphique en maintenant la touche CTRL
appuyée ce qui sélectionne l'objet graphique (et non pas la zone de graphique). Tu as des
petits ronds blancs sur le cadre externe. A l'extrême gauche de la barre de formule, dans une
boîte de liste, il y a un nom de type graphique5. Clique dans cette zone et tape un nom de ton
choix. Tu peux ensuite utiliser ce nom.
(traduction Flo Cabon)

@+

Gael

 

[pierrejean]

Re : Renommer des graphiques sur une feuille

bonjour RENAUDER
Salut Gael

A la lumière des manips de Gael , et si ta feuille n'a que des graphiques on peut faire quelque chose du genre:

Sub test()
x = 0
For Each gr In ActiveSheet.Shapes
x = x + 1
  gr.Name = "LeGraph " & x
Next gr
End Sub

pour le cas ou l'on aurait des shapes de type different

Sub test()
x = 0
For Each gr In ActiveSheet.Shapes
x = x + 1
  If gr.Type = msoChart Then gr.Name = "LeGraph" & x
Next gr
End Sub

 

[job75]

Re : Renommer des graphiques sur une feuille

Bonjour Renauder, Gael

Je ne sais pas du tout si l'on peut considérer que les graphiques incorporés sont des Shapes. Si c'était le cas, voir le fil :

https://www.excel-downloads.com/threads/shape-renumeroter.106341/

A essayer, tiens nous au courant RENAUDER, c'est intéressant.

Edit : salut pierrejean, apparemment on est sur la même longueur d'onde.

A+

 

[RENAUDER]

Re : Renommer des graphiques sur une feuille

Bonjour,
La soultion de PierreJean fonctionne.
Toutefois Excel doit balayer les graphiques en fonction de leur nom d'origine car il ne numérote pas à partir du haut et gauche à a droite comme par exemple :
1, 2, 3
4, 5, 6