1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
Charts.Add
ActiveChart.ChartType = xlLineStacked
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B4:V34"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(1).Name = ""opération1"""
ActiveChart.SeriesCollection(2).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(2).Name = "=""opération2"""
ActiveChart.SeriesCollection(3).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(4).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(5).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(6).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(7).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(8).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(9).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(10).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(11).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(12).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(13).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(14).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(15).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(16).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(17).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(18).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(19).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(20).XValues = "=Feuil1!R4C1:R34C1"
ActiveChart.SeriesCollection(21).XValues = "=Feuil1!R4C1:R34C1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "date"
.Axes(xlValue, xlPrimary).HasTitle = False
End With |
Partager