recopie adresse des séries d'un graph

[Rémi]

Bonjour à tous,

Voilà, je souhaite copier dans des cellules, les adresses des séries d'un graphique...


Voici ma macro:

Sheets('Graphique').Select
i = 2

For q = 1 To ActiveChart.SeriesCollection.Count


serie = ActiveChart.SeriesCollection(q).Formula
MsgBox (serie)

Sheets('Feuil1').Range('B' & i).Formula = _
ActiveChart.SeriesCollection(q).Formula



i = i + 1

Next q

 

[MichelXld]

bonjour Rémi

tu peux tester


Sheets('Graphique').Select
i = 2
For q = 1 To ActiveChart.SeriesCollection.Count

Serie = ActiveChart.SeriesCollection(q).Formula
Sheets('Feuil1').Range('B' & i).Value = ''' & Serie

i = i + 1
Next q


bon week end
MichelXld

 

[Rémi]

Merci, j'ai aussi trouvé ça ce week-end...

Merci de ta réponse!