C
Christelle
Guest
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
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