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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !