Discussion :

[Guillaume_1]

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 !

[Godzestla]

Bonjour,

que vaut numligne lors de l'erreur ?
Es-tu certain() de l'Activesheet ?

[Guillaume_1]

numLigne est initialisé à 10 avant ma boucle.
oui l'ActiveSheet correspond bien à la feuille où se situe mes données à mettre en source.

[Guillaume_1]

bon j'ai trouvé une solution qui fonctionne :

Je pense que le problème venait du fait que mes colonnes sources ne se suivaient pas et que la syntaxe doit alors être plus compliquée.

J'ai donc copié mes cellules sources dans des cellules mitoyennes et mon code devient alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.SeriesCollection(1).Values = "='synthese'!BA" & numLigne & ":BF" & numLigne & ""

et fonctionne.