Discussion :

[moicwill]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[conconbrr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

renommera ton premier graphique sous le nom "yoyo"

Apres il te suffit de faire par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?