Aide sur MsChart
mebilo
Messages postés
8
Date d'inscription
vendredi 22 août 2003
Statut
Membre
Dernière intervention
23 août 2004
-
18 sept. 2003 à 22:25
trexor Messages postés 134 Date d'inscription mercredi 9 mars 2005 Statut Membre Dernière intervention 17 octobre 2010 - 19 août 2005 à 11:32
trexor Messages postés 134 Date d'inscription mercredi 9 mars 2005 Statut Membre Dernière intervention 17 octobre 2010 - 19 août 2005 à 11:32
A voir également:
- Aide sur MsChart
- Mschart - Forum Visual Basic 6
- MSCHART - Forum Visual Basic 6
- MSChart - Forum Visual Basic 6
- Mschart - Forum Visual Basic
- Mschart - Forum Visual Basic 6
3 réponses
tmeg
Messages postés
33
Date d'inscription
mardi 17 juin 2003
Statut
Membre
Dernière intervention
12 mars 2009
17 nov. 2003 à 13:02
17 nov. 2003 à 13:02
ben tu fais un tablea de 4 colone
dans les 2 premieres tu met ton tableau1 et dans les 2 autres ton tableau2
c tout simple
font=Comic Sans MS]tmegSans MS
dans les 2 premieres tu met ton tableau1 et dans les 2 autres ton tableau2
c tout simple
font=Comic Sans MS]tmegSans MS
trexor
Messages postés
134
Date d'inscription
mercredi 9 mars 2005
Statut
Membre
Dernière intervention
17 octobre 2010
18 août 2005 à 17:57
18 août 2005 à 17:57
C'est ce que j'ai fait mais ca ne marche pas...
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 ...je cherche depuis 3 heures sans succès sur le forum
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 2" & 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
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 ...je cherche depuis 3 heures sans succès sur le forum
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 2" & 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
trexor
Messages postés
134
Date d'inscription
mercredi 9 mars 2005
Statut
Membre
Dernière intervention
17 octobre 2010
19 août 2005 à 11:32
19 août 2005 à 11:32
En fait laméthode permet d'afficher des donner XY XY1....mais pas XY X1Y1....ca devrait être possible puisque excel le fais tres bien!
Maiscane marche tjs pas...
Dim arrValues(countGraf, 6)
Dim i
As
Integer
For i = 1
To countGraf
arrValues(i, 1) =
"Visu panneau " & i
' Étiquettes
arrValues(i, 2) = DataGridViewGraf.Item(
"ZModif", i).Value
' Valeurs de la série 1.
arrValues(i, 3) = DataGridViewGraf.Item(
"YModif", i).Value
' Valeurs de la série 2.
Next i
For i = 1
To countRepere
arrValues(i, 4) =
"Visu panneau " & i
' Étiquettes
arrValues(i, 5) = DataGridRepere.Item(
"ZModif", i).Value
' Valeurs de la série 1.
arrValues(i, 6) = DataGridRepere.Item(
"YModif", i).Value
' Valeurs de la série 2.
Next i
Graf.ChartData = arrValues
Maiscane marche tjs pas...
Dim arrValues(countGraf, 6)
Dim i
As
Integer
For i = 1
To countGraf
arrValues(i, 1) =
"Visu panneau " & i
' Étiquettes
arrValues(i, 2) = DataGridViewGraf.Item(
"ZModif", i).Value
' Valeurs de la série 1.
arrValues(i, 3) = DataGridViewGraf.Item(
"YModif", i).Value
' Valeurs de la série 2.
Next i
For i = 1
To countRepere
arrValues(i, 4) =
"Visu panneau " & i
' Étiquettes
arrValues(i, 5) = DataGridRepere.Item(
"ZModif", i).Value
' Valeurs de la série 1.
arrValues(i, 6) = DataGridRepere.Item(
"YModif", i).Value
' Valeurs de la série 2.
Next i
Graf.ChartData = arrValues
