Erreur 1004 pour création seriescollection (chart)

[jeff202]

Bonjour,

Une erreur 1004:" erreur définie par l'objet ou l'application" apparait à l’exécution de ce code

"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub essaichart1()
 
Dim ChartObj As ChartObject
 
Dim C1 As Series, C2 As Series
 
Worksheets("Essai pivot1").Activate
 
 
Set ChartObj = ActiveSheet.ChartObjects.Add(Left:=100, Width:=800, Top:=75, Height:=325)
 
Set C1 = ChartObj.Chart.SeriesCollection.NewSeries
 
 
With C1
.Name = "2011"
.Values = Sheets("Essai pivot1").Range("B3:B54")
.XValues = Sheets("Data").Range("A2:A53")
End With
 
ChartObj.Chart.ChartType = xlLine
ChartObj.Chart.Axes(xlValue).MaximumScale = 40
ChartObj.Chart.Axes(xlValue).MinimumScale = 28
 
 
Set C2 = ChartObj.Chart.SeriesCollection.NewSeries
 
With C2
            .Name = "2010"
            .Values = Sheets("Data").Range("H2:H53")
            .XValues = Sheets("Data").Range("A2:A53")
 
End With
 
End Sub
"

L'erreur apparait dès le set C1. Pourtant j'utilise la fonction newsseries le plus basiquement possible.
Le plus bizarre c'est que ça marchait parfaitement jusqu'à hier. pourtant pas de changement qui puisse affecter quelque chose là dedans
J'ai beau cherché et je ne vois d'où vient le problème.

Merci de votre aide