Plage nommée dans un graphique par VBA

[Daranc]

Bonjour
j'ai un graphique dont le nombre de séries varie de 105 à 202 (environ)
je nomme les plages définissant les séries par VBA

Code :

1
2
3
4
5
6
7
8
9
10
With ActiveSheet
fin = .Range("l9").Value
taquet = .Range("l11").Value
For t = 23 To t + fin
p = t - 22
Nom(p) = .Range("k" & t).Value
With ThisWorkbook
ActiveWorkbook.Names.Add Name:=Nom(p), RefersToR1C1:="=Feuil1!R1C1:R" & t & "C" & taquet
End With
Next

les plages nommées sont bien à leur place, et sélectionnent bien les cellule demandées
par contre ça coince c'est lorsque je veux utiliser ces plages pour les séries du graphique j'emploie ceci

Code :

1
2
3
4
5
6
7
8
9
For p = 1 To fin
Nom(p) = "=" & ActiveWorkbook.Name & "!" & Nom(p)
Next
For p = 1 To fin
Sheets(2).Select
ActiveSheet.ChartObjects("Chart 1033").Select
With ActiveChart
  ActiveChart.SeriesCollection(p).Values = Nom(p)
End With

Merci
bon je me réponds
j'ai trouvé l'erreur
l'emploi de plage nommées marche très bien sur le graphique au niveau de la feuille
Pour l'entrée par VBA par contre je dois employer des formes du style $A$1:$F$1
la macro se modifie comme suit:

Code :

1
2
3
4
5
6
7
8
9
With Sheets(2)
fin = .Range("l9").Value
taquet = .Range("l11").Value
.Range("l7").Value = .Range("l10").Value
For t = 1 To fin
p = t + 22
Nom(t) = .Range("k" & p).Value
Set mc = .Range(.Cells(p, 12), .Cells(p, taquet))
ZonA(t) = mc.AddressLocal()

pour la création du tableau de série
et

Code :

1
2
3
4
5
6
7
8
9
10
Sheets(2).Select
ActiveSheet.ChartObjects("Chart 1033").Activate
ActiveChart.ChartArea.Select
For p = 1 To fin
With ActiveChart
.SeriesCollection(p).Values = Sheets(2).Range(ZonA(p))
.SeriesCollection(p).Name = Nom(p)
End With
Next p
End With

ceci pour entrer les séries.