Discussion :

[Pyrhum]

Bonjour,
J'ai un problème pour ajouter de nouvelles séries sur un graphique :
J'ai un tableau composé de x colonnes et x lignes.
Au final, J'aimerai créer une macro qui crée un graphique avec en abscisse la colonne 1, en ordonné la colonne 2 ;
puis ajouter sur le même graphique une 2eme série avec en abscisse la colonne 3 et en ordonnée la colonne 4 ;
puis une autre série avec avec les colonnes 5 et 6, etc et ce pour un nombre X de colonnes (nombre total de colonne étant paires)
et si possible en s'arrêtant quand il n'y a plus de colonne

Je suis débutant sous VBA et je programme presque quand enregistrant les macros et en faisant des modifications légères.
Et là quand j'enregistre une macro pour ajouter une série sur un graphique, que j'efface la série et que je relance la macro, j'obtient une erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
' création d'un graphique (qui s'appelle graphique 5 avec les colonnes A et B)
' puis je veux ajouter une série avec les colonnes B et C
Range("A1").Select
    ActiveSheet.ChartObjects("Graphique 5").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).XValues = "=Feuil1!C3"
    ActiveChart.SeriesCollection(2).Values = "=Feuil1!C4"	' ERREUR SUR CETTE LIGNE !
    ActiveWindow.Visible = False
    Windows("Regroupés.xls").Activate
    Range("A1").Select

Je comprend pas pourquoi

Code :

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

ActiveChart.SeriesCollection(2).XValues = "=Feuil1!C3"

est bonne et pas

Code :

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

ActiveChart.SeriesCollection(2).Values = "=Feuil1!C4

Voilà si vous pouviez m'aider pour ces 2 problèmes, ça serai sympa
Merci d'avance

[mayekeul]

bonjour,
il n'y a qu'une valeur dans la série, c'est normal??

[Pyrhum]

Ben en fait, c'est bizarre.
Quand j'enregistre la macro, je sélectionne toute la colonne.
Quand je lance la macro (qui est celle que j'ai donner), Il me crée une série ou en abcisse il me sélectionne toute la colonne et s'arrête car il y a une erreur et donc ne pas pas d'ordonné.
quand on regarde le code, on a

Code :

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

ActiveChart.SeriesCollection(2).XValues = "=Feuil1!C3"

Or il me semble que cela correspond à une seule cellule ("=Feuil1!C3")
Pourtant dans les faits il prend toute la colonne

Je met a disposition un fichier excel test si vous vouler voir (c'est la macro 10 dedans)