Bonjour,

j'ai un petit probleme avec une macro. Celle ci fait apparaitre un graphe dans une feuille puis dans une userform

les données du graphe sont:
A19:A50 valeurs en abscisse
F19:F50 valeurs en ordonnées

serie 1

A19:A50 valeurs en abscisse
I19:I50 valeurs en ordonnées

serie 2

Le souci vient du code de: ActiveChart.SeriesCollection(2).Name = "=""Moyenne"""

La methode seriecollection de l'objet chart a echoué


Peut etre que le graphe ne se réalise pas comme il le faudrait ?

je vous met le code:

Sub graphique()

Dim annee, mois As String

annee = UserForm7.ComboBox2.Value
mois = UserForm7.ComboBox1.Value

If mois = "01" Then

Range("A19:A50,F19:F50,I19:I50").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets(annee).Range("A19:A50,F19:F50"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=""Kilometrage"""
ActiveChart.SetSourceData Source:=Sheets(annee).Range("A19:A50,I19:I50"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(2).Name = "=""Moyenne"""

ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Mois"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Jours"
.Axes(xlValue, xlPrimary).HasTitle = False
.Export _
Filename:="D:\Roger\Dossier personnel\Vélo\Graphes\janvier.gif", filtername:="GIF"
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True

End With



Image1.Picture = LoadPicture("D:\Roger\Dossier personnel\Vélo\Graphes\janvier.gif")
End If

End Sub



Merci pour les réponses a venir

Configuration: Windows XP
Internet Explorer 7.0