Graphique avec plage discontinue non fixe

[Christelle]

Bonjour,

J'aimerais faire un graphique comportant 3 courbes, la première allant de 1985 à 2002 et les 2 autres de 2003 à 2025. Par conséquent, je dois ajouter des plages de données vides à mes séries avant ou aprés 2002 selon la série. De plus les plages de données de mes séries ne sont pas fixes.
Comment réunir une plage de données vide et une série sachant que mes séries ne sont pas des plages de données fixes mais dépendent de paramètres?
J'ai essayé avec "Union" mais ça ne fonctionne pas.

Avez vous une idée?

Merci d'avance



Sub graph(decalage, compteur,nb_reg)

Dim vide, prevision As Range

Worksheets("resultat").Activate
Set vide = Range(Cells(1, 1), Cells(nb_reg, 1))
Set prevision = Range(Cells(compteur + 13, decalage + 12), Cells(compteur + 12 + nb_prevu, decalage + 12))
Set prevision=Union(vide,prevision)

Charts.Add
ActiveChart.ChartType = xlLine
With ActiveChart
.SetSourceData Source:=Sheets("resultat").Range("A1")
.SeriesCollection.NewSeries
.SeriesCollection.NewSeries
.SeriesCollection.NewSeries

'années de 1985 à 2025
.SeriesCollection(1).XValues = "=NNST0!R9C1:R49C1"

'données de 1985 à 2002 + plage vide
.SeriesCollection(1).Values = "=NNST0!R9C11:R49C11"
.SeriesCollection(1).Name = "mode"

' plage vide + données de 2003 à 2025
.SeriesCollection(2).Values = "=(resultat!R1C1:R1C18,resultat!R14C11:R36C11)"
.SeriesCollection(2).Name = "ip moins"

'plage vide + des autres données de 2003 à 2025
.SeriesCollection(3).Values = prevision
.SeriesCollection(3).Name = "prévision"

.Location Where:=xlLocationAsObject, Name:="resultat"
End With
end sub