Affectation de source de données à un graphique en VBA
Bonjour,
Voici mon problème, je souhaite générer des graphiques type radar via VBA.
Je dois avoir au final un graphique par ligne (les données sources se trouvent sur la ligne).
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
For j = 1 To monCompteur
maSourceDeDonnees = ""
'créer le radar
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlRadarFilled
ActiveChart.SetSourceData Source:=Range("synthese!$A$1:$AF$300")
ActiveChart.SeriesCollection.NewSeries
maSourceDeDonnees = "C" & numLigne & ";F" & numLigne & ";I" & numLigne & ";L" & numLigne & ";O" & numLigne & ";R" & numLigne & ""
ActiveChart.SeriesCollection(1).Name = "=synthese!$A$" & numLigne & ""
ActiveChart.SeriesCollection(1).XValues = "=calcul!$C$3:$C$8"
ActiveChart.SeriesCollection(1).Values = ActiveSheet.Range(maSourceDeDonnees)
'************
' j'enchaîne ensuite avec la mise en forme des radars
'************
numLigne = numLigne + 1
Next j |
Une erreur 1004 apparaît lors de l'execution de la ligne :
Code:
1
2
|
ActiveChart.SeriesCollection(1).Values = ActiveSheet.Range(maSourceDeDonnees) |
J'ai essayé avec Sheets("synthese").Range(maSourceDeDonnees), également avec "=synthese!C" & numLigne & ";synthese!F" & numligne ... etc
A chaque fois la même erreur.
L'un d'entre vous pourrait-il m'éclairer ?
Merci !
