Bonjour,

J'ai un soucis avec un bout de code. Je dois générer un graphique pour chaque ligne d'une feuille de résultat.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
ActiveSheet.Shapes.AddChart2(317, xlRadar).Select
ActiveChart.SetSourceData Source:=Range("Résultats!$F$" & intlig & ":$L$" & intlig)
ActiveChart.FullSeriesCollection(1).XValues = "=Résultats!$F$1:$L$1"
ActiveChart.FullSeriesCollection(1).Name = "=Résultats!$A$" & intlig
intlig me donne le numéro de la logne, tout fonctionne bien... à la première exécution.
Ce matin, je relance et les colonnes sont inversées. J'ai donc modifié :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
ActiveSheet.Shapes.AddChart2(317, xlRadar).Select
ActiveChart.PlotBy = xlColumns
ActiveChart.SetSourceData Source:=Range("Résultats!$F$" & intlig & ":$L$" & intlig)
ActiveChart.FullSeriesCollection(1).XValues = "=Résultats!$F$1:$L$1"
ActiveChart.FullSeriesCollection(1).Name = "=Résultats!$A$" & intlig
Cela fonctionne.

Je régénère mes données de résultat et maintenant c'est revenu comme au début et je dois de nouveau supprimer le PlotBy.

Savez-vous comment je peux faire pour que le graphique ait toujours le même format ?

Merci.