1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Chart1.Series.Clear()
X = 1
For X = 1 To 2
Chart1.Series.Add(choixannee(X))
Chart1.Series(choixannee(X)).Points.Clear()
Chart1.Series(choixannee(X)).Points.AddXY("JAN", resultat(X, 1))
Chart1.Series(choixannee(X)).Points.AddXY("FEV", resultat(X, 2))
Chart1.Series(choixannee(X)).Points.AddXY("MARS", resultat(X, 3))
Chart1.Series(choixannee(X)).Points.AddXY("AVR", resultat(X, 4))
Chart1.Series(choixannee(X)).Points.AddXY("MAI", resultat(X, 5))
Chart1.Series(choixannee(X)).Points.AddXY("JUIN", resultat(X, 6))
Chart1.Series(choixannee(X)).Points.AddXY("JUIL", resultat(X, 7))
Chart1.Series(choixannee(X)).Points.AddXY("AOUT", resultat(X, 8))
Chart1.Series(choixannee(X)).Points.AddXY("SEPT", resultat(X, 9))
Chart1.Series(choixannee(X)).Points.AddXY("OCTO", resultat(X, 10))
Chart1.Series(choixannee(X)).Points.AddXY("NOV", resultat(X, 11))
Chart1.Series(choixannee(X)).Points.AddXY("DEC", resultat(X, 12))
Chart1.Series(choixannee(X)).ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Column
Next |
Partager