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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| Sub Graphique_essai1()
Dim cDebut1 As Range, cFin1 As Range, Plage1 As Range
Dim LigneDebut1 As Long, LigneFin1 As Long
Dim Ch1 As Chart
Dim Ch2 As Chart
Application.ScreenUpdating = False
LigneDebut1 = ThisWorkbook.Worksheets("Données corrigées").Range("P5").Value
LigneFin1 = ThisWorkbook.Worksheets("Données corrigées").Range("Q5").Value
With ThisWorkbook.Worksheets("données corrigées")
If Not IsError(LigneDebut1) Or IsError(LigneFin1) Then
Set cDebut1 = .Cells(LigneDebut1, "B")
Set cFin1 = .Cells(LigneFin1, "B")
Set Plage1 = cDebut1.Resize(cFin1.Row - cDebut1.Row + 1, 1)
End If
End With
If Not Plage1 Is Nothing Then
Set Ch1 = ThisWorkbook.Charts.Add
Ch1.ChartType = xlXYScatterLinesNoMarkers
With Ch1.SeriesCollection.NewSeries
.Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 5)
.Values = Plage1.Offset(0, 3).Resize(, 1)
.XValues = Plage1.Offset(0, -1).Resize(, 1)
End With
With Ch1.SeriesCollection.NewSeries
.Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 6)
.Values = Plage1.Offset(0, 4).Resize(, 1)
.XValues = Plage1.Offset(0, -1).Resize(, 1)
End With
Set Ch2 = ThisWorkbook.Charts.Add
Ch2.ChartType = xlXYScatterLinesNoMarkers
With Ch2.SeriesCollection.NewSeries
.Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 7)
.Values = Plage1.Offset(0, 5).Resize(, 1)
.XValues = Plage1.Offset(0, -1).Resize(, 1)
End With
With Ch2.SeriesCollection.NewSeries
.Name = ThisWorkbook.Worksheets("données corrigées").Cells(10, 8)
.Values = Plage1.Offset(0, 6).Resize(, 1)
.XValues = Plage1.Offset(0, -1).Resize(, 1)
End With
Set Ch = Nothing
Set Plage = Nothing
End If
End Sub |