Graphique VBA

chaimae123

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour chaimae123, bienvenue sur XLD,

Voyez le fichier joint et cette macro qui crée un graphique adapté aux données :
VB:
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+
 

Pièces jointes

  • Créer un graphique(1).xlsm
    23 KB · Affichages: 8
Dernière édition:

Discussions similaires

Réponses
4
Affichages
254

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 842
dernier inscrit
seb0390