Discussion :

[rob2-9]

Bonjour,
je crée un formulaire automatique ou s'affichent un tableau et un graphique. Mon graphique doit avoir 3 courbes seulement je n'arrive pas à ajouter de séries pour avoir ces 3 courbes; J'ai utilisé ceci mais ça ne marche pas trop du tout :p

Sub AjoutSerie2()
Dim GraphPPMFour As Chart
Dim NouvSerie As Series

With ActiveWorkbook.Worksheets(1)
Set GraphPPMFour = .ChartObjects(1).Chart
Set NouvSerie = GraphPPMFour.SeriesCollection.NewSeries
NouvSerie.Values = .Range("plage, donnee")
NouvSerie.Name = "Nombre de dossiers"
End With
End Sub

[anouar_chaieb]

Les séries doivent porter les noms des champs sources provenant de la table ou rêq. Si le cas éditez le formulaire en mode modification dble click sur le graph dans option graph choisir afiicher légende.