1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Range(Cells(4, 1), Cells(32000, 2)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Worksheets(1).Range("D2:E32000"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).XValues = Worksheets(1).Range("a4:a32000")
ActiveChart.SeriesCollection(1).Values = Worksheets(1).Range("b4:b32000")
ActiveChart.SeriesCollection(1).Name = Worksheets(1).Range("a2")
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Worksheets(1).Range("a2")
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Concordance de la cellule "
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Date"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Concordance (%)"
End With
ActiveChart.HasLegend = False
Worksheets(1).Select |
Partager