Discussion :

[françoisc]

Bonjour,

J’ai un tableau Excel de 4 colonnes : les colonnes A et C sont des colonnes de temps différentes et les colonnes B et D sont les amplitudes devant être tracées respectivement en fonction de A et C.

Comment tracer B en fonction de A et D en fonction de C sur une même feuille graphique ?

Merci d’avance

[bidou]

La méthode la plus simple consiste à utiliser la méthode Paste de SerieCollection.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim MonGraph As ChartObject
 
Set MonGraph = ActiveSheet.ChartObjects.Add(10, 10, 300, 150)
MonGraph.Chart.ChartType = xlXYScatterLines
ActiveSheet.Range("A1:B16").Copy
MonGraph.Chart.SeriesCollection.Paste Rowcol:=xlColumns, SeriesLabels:=True, _
        CategoryLabels:=True, Replace:=False, NewSeries:=True
ActiveSheet.Range("C1:D16").Copy
MonGraph.Chart.SeriesCollection.Paste Rowcol:=xlColumns, SeriesLabels:=True, _
        CategoryLabels:=True, Replace:=False, NewSeries:=True
Application.CutCopyMode = False

Tu peux aussi rentrer directement les formules de série

Code :

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

1
2
3
4
5
6
7
8
Dim MonGraph As ChartObject, MaSerie As Series
 
Set MonGraph = ActiveSheet.ChartObjects.Add(10, 10, 300, 150)
MonGraph.Chart.ChartType = xlXYScatterLines
Set MaSerie = MonGraph.Chart.SeriesCollection.NewSeries
MaSerie.Formula = "=SERIES(Feuil1!R1C2,Feuil1!R2C1:R16C1,Feuil1!R2C2:R16C2,1)"
Set MaSerie = MonGraph.Chart.SeriesCollection.NewSeries
MaSerie.Formula = "=SERIES(Feuil1!R1C4,Feuil1!R2C3:R16C3,Feuil1!R2C4:R16C4,2)"

[françoisc]

Merci beaucoup