Creer un graphique via macro

[Jean-Yves]

Bonjour,

J'aimerais savoir comment faire pour créer un graphique comportant 2 séries via une macro.

Voici ce que j'ai fait :

Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Sheets(g + 1).Range('A2:A20')
ActiveChart.SeriesCollection(1).Values = Sheets(g + 1).Range('C2:C20')
ActiveChart.SeriesCollection(2).XValues = Sheets(g + 1).Range('E2:E20')
ActiveChart.SeriesCollection(2).Values = Sheets(g + 1).Range('G2:G20')
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With


Malheureusement,le graphique ainsi créé comporte d'autres séries que celles désignées par la macro.

Je suppose donc qu'il faut d'abord supprimer les séries existantes (qu'excel construit tt seul) avant de désigner les deux nouvelles séries.

J'espère avoir été plus ou moins clair. Si ce n'est pas le cas, n'hésitez pas à demander des renseignements.

Merci

 

[MichelXld]

bonjour Jean-Yves

tu peux essayer cette synthaxe


Charts.Add

ActiveChart.ChartType = xlLine
ActiveChart.SeriesCollection(1).XValues = Sheets(g + 1).Range('A2:A20')
ActiveChart.SeriesCollection(1).Values = Sheets(g + 1).Range('C2:C20')

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = Sheets(g + 1).Range('E2:E20')
ActiveChart.SeriesCollection(2).Values = Sheets(g + 1).Range('G2:G20')
ActiveChart.Location Where:=xlLocationAsNewSheet

With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With




bon apres midi
MichelXld

 

[Jean-Yves]

Merci Michel,

J'essaie ca tt de suite.

Bonne fin de journée