j'ai fait une macro qui execute automatiquement des graphiques.
For j = 1 To 9
If Sheets("Etape3 - par territoire").Range("A37").Value = j Then
'on sélectionne la dernière cellule au niveau des jours
va = Sheets("Etape3 - par territoire").Range("C11").Offset(0, col - 1).Address
'on sélectionne la dernière cellule au niveau des données
k = Sheets("Etape3 - par territoire").Range("C12").Offset(l - 12, col - 1).Address
dat = "C11:" & va
donnees = "C" & l & ":" & k
Range(dat, donnees).Select
Range("C" & l).Activate
Charts.Add
ActiveChart.SetSourceData Source:=Sheets("Etape3 - par territoire").Range("C11:" & va & ",C" & l & ":" & k)
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.ChartArea.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Etape3 - par territoire").Range("C11:" & va & ",C" & l & ":" & k), _
PlotBy:=xlRows
ActiveChart.SeriesCollection(1).Name = "=Etape3 - par territoire!R" & l & "C2"
ActiveChart.Legend.Select
Selection.Delete
Sheets("Etape3 - par territoire").Select
'on reinitialise les variables
va = ""
k = ""
End If
l = l + 1
Next j
Le problème c'est que lorsqu'il arrive à la ligne avec : ActiveChart.SeriesCollection(1).Name = "=Etape3 - par territoire!R" & l & "C2"
la macro buggue et me met "erreur d'execution 1004, impossible de definir la proprieté Name de la classe Series".
Je ne vois pas comment enlever cette erreur!