Discussion :

[Vincent32]

Bonjour,

Je souhaite faire un graphique avec plusieurs séries et deux axes d'ordonnées. Les valeurs d'une des séries correspondent au deuxième axe des ordonnées tandis que les autres séries doivent être tracées avec le premier axe des ordonnées.

Comment je définis ça (en admettant par exemple que la série 4 dont les valeurs Y2 sont stockées dans le tableau 5).

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 Dim Feuillet As New ChartArea, Catalyseur As New ChartArea
 
                                                                Feuillet.Name = "Feuillet"
                                                                G1.ChartAreas.Add(Feuillet) 'trace le graphe feuillet
                                                                Dim S1 As New Series, S2 As New Series, S3 As New Series, S4 As New Series, S5 As New Series
 
                                                                'afficher un second axe
                                                                G1.ChartAreas(0).AxisY2.Enabled = AxisEnabled.True
 
                                                                S1.Name = "S1"
                                                                S2.Name = "S2"
                                                                S3.Name = "S3"
                                                                S4.Name = "S4"
                                                                S4.Name = "S5"
 
                                                                G1.Series.Add("S1")
                                                                G1.Series("S1").ChartArea = "Feuillet"
                                                                G1.Series("S1").Points.DataBindXY(T1, T2)
                                                                G1.Series("S1").ChartType = SeriesChartType.Spline
                                                                G1.Series("S1").Color = Color.FromArgb(255, 120, 60, 140)
 
                                                                G1.Series.Add("S2")
                                                                G1.Series("S2").ChartArea = "Feuillet"
                                                                G1.Series("S2").Points.DataBindXY(T1, T3)
                                                                G1.Series("S2").ChartType = SeriesChartType.Spline
 
                                                                G1.Series.Add("S3")
                                                                G1.Series("S3").ChartArea = "Feuillet"
                                                                G1.Series("S3").Points.DataBindXY(T1, T4)
                                                                G1.Series("S3").ChartType = SeriesChartType.Spline
 
                                                                G1.Series.Add("S4")
                                                                G1.Series("S4").ChartArea = "Feuillet"
                                                                G1.Series("S4").Points.DataBindXY(T1, T5)
                                                                G1.Series("S4").ChartType = SeriesChartType.Spline
 
                                                                G1.Series.Add("S5")
                                                                G1.Series("S5").ChartArea = "Feuillet"
                                                                G1.Series("S5").Points.DataBindXY(T1, T6)
                                                                G1.Series("S5").ChartType = SeriesChartType.Spline
 
                                                                'Nom des axes
                                                                G1.ChartAreas(0).AxisX.Title = "% de bord M"
                                                                G1.ChartAreas(0).AxisY.Title = "Nombre de Mo"
                                                                G1.ChartAreas(0).AxisY2.Title = "Nombre de Mo total (courbe bleue uniquement)"
 
                                                                'couleur des axes
                                                                G1.ChartAreas(0).AxisX.LineColor = Color.FromArgb(255, 0, 110, 185)
                                                                G1.ChartAreas(0).AxisY.LineColor = Color.FromArgb(255, 0, 110, 185)
                                                                G1.ChartAreas(0).AxisY2.LineColor = Color.FromArgb(255, 0, 110, 185)
 
                                                                'plage des axes
                                                                G1.ChartAreas(0).AxisX.Minimum = 0
                                                                G1.ChartAreas(0).AxisX.Maximum = 100
                                                                G1.ChartAreas(0).AxisY.Minimum = 0
                                                                G1.ChartAreas(0).AxisY2.Minimum = 0
 
                                                                'supprimer la grille
                                                                G1.ChartAreas(0).AxisX.MajorGrid.Enabled = False
                                                                G1.ChartAreas(0).AxisX.MinorGrid.Enabled = False
                                                                G1.ChartAreas(0).AxisY.MajorGrid.Enabled = False
                                                                G1.ChartAreas(0).AxisY.MinorGrid.Enabled = False
                                                                G1.ChartAreas(0).AxisY2.MajorGrid.Enabled = False
                                                                G1.ChartAreas(0).AxisY2.MinorGrid.Enabled = False
 
 
 
 
 
 
 
 
 
                                                                G1.Location = New System.Drawing.Point(500, 500)
                                                                G1.Location = New System.Drawing.Size(6, 6)
                                                                G1.ChartAreas(0).Position.Auto = False
                                                                G1.ChartAreas(0).Position = New ElementPosition(0, 0, 100, 100)
 
                                                                Graphes.TabControl1.TabPages(1).Controls.Add(G1)

Merci de votre aide

[Vincent32]

J'ai trouvé :

Code :

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

G1.Series("S1").YAxisType = AxisType.Secondary