Modifier la série de donnée d'un graphique

Fermé
feriadax Messages postés 15 Date d'inscription vendredi 25 septembre 2009 Statut Membre Dernière intervention 5 décembre 2009 - 4 déc. 2009 à 19:26
Bonjour,

j'ai une feuille de cacul avec un graphique dessus
J'effectue une macro qui replie 2 colonne et la traphique est automatiquement tracé.
Cependant, il faudrait que je puissse changer la série car suivant mes paramètres, la série est plus ou mons longue.
J'ai écris les ligne de commandes suivantes mais ça ne fonctionne pas. Ca plante dés la premiére ligne:

ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select

If N = 512 Then
ActiveChart.SeriesCollection(1).XValues = "='Resultats'!$C$1:$C$513"
ActiveChart.SeriesCollection(1).Values = "='Resultats'!$D$1:$D$513"
ElseIf N = 1024 Then
ActiveChart.SeriesCollection(1).XValues = "='Resultats'!$C$1:$C$1025"
ActiveChart.SeriesCollection(1).Values = "='Resultats'!$D$1:$D$1025"
ElseIf N = 2048 Then
ActiveChart.SeriesCollection(1).XValues = "='Resultats'!$C$1:$C$2049"
ActiveChart.SeriesCollection(1).Values = "='Resultats'!$D$1:$D$2049"
ElseIf N = 4096 Then
ActiveChart.SeriesCollection(1).XValues = "='Resultats'!$C$1:$C$4097"
ActiveChart.SeriesCollection(1).Values = "='Resultats'!$D$1:$D$4097"
ElseIf N = 8192 Then
ActiveChart.SeriesCollection(1).XValues = "='Resultats'!$C$1:$C$8193"
ActiveChart.SeriesCollection(1).Values = "='Resultats'!$D$1:$C$8193"
Else
End If


Quelqu'un peux-t-il m'aider
merci d'avance