Discussion :

[Hydex]

Je cherche à faire varier les plages que doit utiliser mon graphique en fonction du code. (Dans mon cas, X champs appartenant à la plage A1:A12 peuvent être vide, j'aimerais les éliminer du graphique).
C'est possible?
merci !

[jfontaine]

Peut être avec un truc comme ca.
Ca fonctionne mais c'est à améliorer

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
 
Dim i As Byte
 
For i = 3 To 14 'Ligne a tester en valeur
    If Range("C" & i).Value = 0 Then GoTo suite
Next i
 
suite:
 
If i > 3 Then i = i - 1
 
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("C3:C" & i), PlotBy:= _
    xlColumns

[Hydex]

Question probablement bête, mais comment on fait pour ne pas modifier les valeurs sources de l'axe des abscisses? Là ça me supprime ma série et ça en recrée une nouvelle et je perds mes données sources d'axe...

[jfontaine]

Tu ajoutes ce code après la mise a jour de la plage de donnée en recalant ta plage d'étiquette d'abscisse

Code :

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

ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R3C2:R14C2"