Sub CreerGraphique()
'
' CreerGraphique Macro
'
Dim MonGraph As Chart
Dim L, LDeb, LFin, Precedent, Position
Position = 10 ' position du 1ier graphe
Dim NomFeuille As String
NomFeuille = "Validation profils en long"
Worksheets(NomFeuille).Activate
Worksheets(NomFeuille).ChartObjects.Delete ' supprimer tous les graphes existants
L = 2
While Cells(L, 2) <> ""
'reperer début fin plage
Precedent = Cells(L, 2)
LDeb = L
While Cells(L, 2) = Precedent
L = L + 1
Wend
LFin = L - 1
'
Set Mongraphe = ActiveSheet.ChartObjects.Add(Left:=400, Top:=200, Width:=400, Height:=300)
Mongraphe.Name = "G" & Precedent
With Mongraphe.Chart
.ChartType = xlLineMarkers
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Worksheets(NomFeuille).Range("E" & LDeb & ":E" & LFin)
.SeriesCollection(1).Values = Worksheets(NomFeuille).Range("F" & LDeb & ":F" & LFin)
.SeriesCollection(1).Name = "=""Substrat"""
.SeriesCollection(1).MarkerStyle = -4142
.SeriesCollection.NewSeries
.SeriesCollection(2).Values = Worksheets(NomFeuille).Range("G" & LDeb & ":G" & LFin)
.SeriesCollection(2).Name = "=""Ligne d'eau"""
.SeriesCollection(2).MarkerStyle = -4142
.Axes(xlValue).HasMajorGridlines = True
.Axes(xlValue).HasMinorGridlines = True
.Axes(xlCategory).AxisBetweenCategories = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Text = "Distances cumulées" 'titre X
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Text = "Dénivellés en centimètres" 'titre Y
.HasTitle = True
.ChartTitle.Text = "Profil en long session " & Precedent
End With
p = ActiveSheet.ChartObjects.Count
With Worksheets(NomFeuille).ChartObjects(p)
.Left = 700
.Top = Position
Position = Position + .Height + 10
End With
Wend
End Sub