Nommer des graphiques

J'ai à peu de chose près le même problème que dans cette discussion !

Vos différentes techniques fonctionnent pas mal, mais moi j'ai 7 graphs différents (créé automatiquement) que j'aimerais aligné car sinon ils restent les uns sur les autres...

Le problème c'est comment leur donner un noms car à chaque fois que je lance ma macro qui créer mes graphs le numéro de ceux-ci augmentent !

Graphique 1 .... Graphique 2 .... Graphique 3....

Donc je ne sais pas trop comment faire !

Curahee dit :

Citation:

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Creation_Graphe()   ' ...Creation graphe ...   ' Nommage du graph actif ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = "Graphe_Test"   ' Placement et dimensionnement Placer_Graphique "Graphe_Test", Range("K3"), Range("S17")   End Sub

---

---

Ca peu peut-etre m'aider mais comment etre sur qu'il selectionne le bon graph ???

Merci, @++

Arnaud

Je pense qu'on peut: (mais je ne suis pas expert :roll: )

soit nommer chaque graph et le disposer dès sa création :

Charts.Add
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graphe_Test_" & numéro

ou encore les créer-nommer :

Charts.Add.Name ="Graphe_Test_" & numéro ' attention pas de " := " ici !!)

puis les disposer ensuite comme voulu (par .top et .left )