MSchart avec plusieurs courbes - VB/VBA/VBS - Programmation
MarshPosté le 18-08-2005 à 18:26:58
Pouvez vous m'aidez sur un pb avec mschart? J'arrive a afficher ma premiere courbe mais pas la deuxième, je ne comprend pas mon erreur ... courbes de type X,Y,X1,Y1
Dim countGraf As Integer
Dim countRepere As Integer
countGraf = DataGridViewGraf.Rows.Count - 1
countRepere = DataGridRepere.Rows.Count - 1
Dim arrValues(countGraf, 6)
Dim i As Integer
'serie1 For i = 1 To countGraf
arrValues(i, 1) = "Visu panneau " & i ' Étiquettes
Marsh Posté le 18-08-2005 à 18:26:58
Pouvez vous m'aidez sur un pb avec mschart? J'arrive a afficher ma premiere courbe mais pas la deuxième, je ne comprend pas mon erreur ...
courbes de type X,Y,X1,Y1
Dim countGraf As Integer
Dim countRepere As Integer
countGraf = DataGridViewGraf.Rows.Count - 1
countRepere = DataGridRepere.Rows.Count - 1
Dim arrValues(countGraf, 6)
Dim i As Integer
'serie1
For i = 1 To countGraf
arrValues(i, 1) = "Visu panneau " & i ' Étiquettes
arrValues(i, 2) = DataGridViewGraf.Item("ZModif", i).Value '
arrValues(i, 3) = DataGridViewGraf.Item("YModif", i).Value ' Next i
'serie2
For i = 1 To countGraf
arrValues(i, 4) = "Visu panneau " & i ' Étiquettes
arrValues(i, 5) = DataGridViewGraf.Item("ZModif", i).Value '
arrValues(i, 6) = DataGridViewGraf.Item("YModif", i).Value '
Next i
'affectation des culeurssur les deux courbes
Graf.Plot.SeriesCollection(1).Pen.VtColor.Set(255, 255, 0)
'------->ca plante ici car il ne reconnait pas la deuxième courbes
Graf.Plot.SeriesCollection(2).Pen.VtColor.Set(100, 100, 0)
Graf.ChartData = arrValues