MSchart avec plusieurs courbes

MSchart avec plusieurs courbes - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 18-08-2005 à 18:26:58   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed