Graphique VBA

[chaimae123]

Bonjour
J'ai une macro qui trace une courbe a partir des deux premieres lignes de mon tableau je veux tracer plusieurs courbes sur la même feuille (la 3eme ligne en fct de la 1ere ligne...)avec la même macro mais j'arrive pas à le faire.
Pourriez-vous m'aider je suis débutante en VBA.

 

[job75]

Bonjour chaimae123, bienvenue sur XLD,

Voyez le fichier joint et cette macro qui crée un graphique adapté aux données :

Sub CreerGraphique()
Dim P As Range, Nserie%, n%
Set P = [A1].CurrentRegion.Offset(, 1)
If P.Columns.Count > 1 Then Set P = P.Resize(, P.Columns.Count - 1)
Nserie = P.Rows.Count - 1
If ActiveSheet.ChartObjects.Count Then ActiveSheet.ChartObjects.Delete 'RAZ
With ActiveSheet.ChartObjects.Add(100, 100, 400, 200).Chart
    .ChartType = xlXYScatterSmooth 'nuage de points
    For n = 1 To Nserie
        With .SeriesCollection.NewSeries
            .Name = P(n + 1, 0)
            .XValues = P.Rows(1)
            .Values = P.Rows(n + 1)
        End With
    Next
End With
End Sub

A+

 

[job75]

J'ai ajouté la 4ème ligne de la macro, c'est mieux bien que pas indispensable.

 

[chaimae123]

Merci job75