Discussion :

[DarkGriffin]

Bonjour,

J'ai une erreur incompréhensible.

J'ai un fichier avec des graphiques (voir pièce jointe).

J'essaie de modifier par macro les formules des séries, or je n'arrive pas à sélectionner ces séries.

Du coup, j'ai voulu passer par l'enregistrement d'une macro, j'obtiens ça :

Code :

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

1
2
3
Sheets("ACR-N TC1").Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(2).Select

Sauf que, chose complètement incompréhensible, quand j'essaie de relancer cette macro (générée automatiquement hein !), il me sort l'erreur :

"L'élément portant ce nom est introuvable"

Et en effet, il ne trouve pas le "Graphique 1" !

Et si j'essaie de parcourir l'intégralité des "ChartObjects" de la feuille, il ne trouve rien !

Code :

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

1
2
3
4
5
For Each Graph In Workbooks(stFichier).Sheets(nomGraph).ChartObjects
        For Each Sc In Graph.SeriesCollection
            ...
        Next Sc
Next Graph

Je ne comprend pas
Une idée ?

[Daniel.C]

Bonjour,

La feuille "ACR-N TC1" n'existe pas dans la pièce jointe. Et il n'y a pas de graphique sur la feuille.

[DarkGriffin]

Ah oui, en effet, je me suis planté

Mais bon, j'ai trouvé la solution, aussi bizarre que ça puisse paraître, on peut se passer de ChartObjects et faire directement Sheets(...).SeriesCollection().Formula = ...

Donc c'est bon, résolu, merci !

[Daniel.C]

Uniquement sur les feuilles de graphique (il n'y a pas, dans ce cas de "ChartObject" qui représente un graphique inclus dans une feuille de données).