(vba excel) Copie automatique de charts

Bonjour,

mon pb est le suivant:
Je dispose d'un classeur contenant des graphiques ds des 'charts' et non ds des 'sheets'.
J'aimerais suivant certains critères copiés automatiquement certains graphiques ds une mm sheet, et donc bien sur les bien les loger.

J'ai essayé d'enregistrer une macro et regarder le code.
j'obtiens ceci:

Code:

---

1 2 3 4 5 6 7 8 9

Sheets("XX Chart").Select Sheets("XXChart").Copy Before:=Sheets(4) Sheets("XX Chart (2)").Select ActiveChart.PlotArea.Select ActiveChart.Location Where:=xlLocationAsObject, Name:="Charts Summary" ActiveSheet.Shapes("XX Chart").IncrementLeft -179.25 ActiveSheet.Shapes("Chart 6").IncrementTop -147# ActiveSheet.Shapes("Chart 6").ScaleHeight 0.62, msoFalse, msoScaleFromTopLeft ActiveSheet.Shapes("Chart 6").ScaleWidth 0.72, msoFalse, msoScaleFromTopLeft

---

Mon pb est que je ne sais pas à quoi correspond "cahart 6". Du coup je ne sais pas comment lui dire de selectionner tel ou tel graphe.
N'est il pas possible d'utiliser directement des noms?

J'ai essayé des activechart.name=myname, ensuite remplacer "chart 6" par myname mais sans succès.


Merci de votre aide.

Pour donner un nom à un graphique, il faut renommer le chartobjects :

Code:

---

worksheets(1).chartobjects(1).name="yoyo"

---

renommera ton premier graphique sous le nom "yoyo"

Apres il te suffit de faire par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test()   Dim NBCH As String Dim J As Integer   NBCH = Worksheets(1).ChartObjects.Count For J = 1 To NBCH Worksheets(1).ChartObjects(J).Name = "yoyo" & J Next   End Sub

---

pour renommer tous les graphiques de la page avec un nom générique : yoyo1, yoyo2, ...

J'espère que ça répond à peu près à ta question?