Pb avec le compos CHART de VB! Aidez Moi SVP

Question

En fait je n'arrive pas à rentrer les données via le code dans la feuille excel pour obtenir le graphique (du composant Chart), je sais qu'il y a le composant mschart mais personnellement je préfère celui ci.

Donc si quelqu'un peut m'aider au plus vite çà serait super cool.

Y faut bien s'aider entre programmeur!!!

Merci d'avance.

Pierrot

JBTHEBEST · Answer

Voila des sources te permettant de découvrir un peu mschart :

Private Sub Command1_Click()
'Graphe sous forme d'histogramme
Graph.chartType = 1
Graph.DrawMode = 2
End Sub

Private Sub Command2_Click()
'Graphe sous forme de camembert
Graph.chartType = 14
Graph.DrawMode = 2
End Sub

Private Sub Command3_Click()
'Graphe sous fomre d'escalier
Graph.chartType = 6
Graph.DrawMode = 2
End Sub

Private Sub Command4_Click()
'Graphe sous forme de barre
Graph.chartType = 0
Graph.DrawMode = 2
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
'---------------------------------------------
'Affichage des en-têtes de ligne et de colonne
'---------------------------------------------
For i = 1 To 6
   Grid.Row = 0
   Grid.Col = i
   Grid.Text = Chr(64 + i)
Next i
For j = 1 To 4
   Grid.Col = 0
   Grid.Row = j
   Grid.Text = j
Next j

'Définition de la largeur des colonnes
Grid.ColWidth(0) = 800
For i = 2 To 6
   Grid.ColWidth(i) = 1200
Next i

'définition de l'alignement des colonnes
For i = 0 To 6
   Grid.ColAlignment(i) = 1
Next i

'Lecture des données à afficher et affichage
Open "c:\Windows\Bureau\données.TXT" For Input As #1
For i = 1 To 4
   Grid.Row = i
   For j = 1 To 6
      Grid.Col = j
      Input #1, a
      Grid.Text = a
   Next j
Next i
Close #1
Grid.Row = 1
For i = 2 To 6
   Grid.Col = i
   Graph.Column = i - 1
   Graph.ColumnLabel = Grid.Text
Next i

'Définition du graphe par défaut
For i = 2 To 6
Grid.Row = 2
Grid.Col = i
Graph.Column = i - 1
Graph.Data = Grid.Text
Next i
Grid.Col = 1
Graph.TitleText = Grid.Text
Graph.DrawMode = 2

End Sub

Private Sub Grid_Click()

If Grid.Col = 1 And Grid.Row <> 1 Then
  For i = 1 To 5
     Grid.Col = i + 1
     Graph.Column = i
     Graph.Data = Grid.Text
  Next i
  Grid.Col = 1
  Graph.TitleText = Grid.Text
  Graph.DrawMode = 2
End If
End Sub

il faut sur la feuille un msflexgrid,  5 commandbutton et un mschart

Ca c'est pour tous gérer de VB pour gérer avec excel il te faut untilise l'objet EXCEL.9 (le code est dans le m^me style,

Il y à des source sur ce site qui doivent t'aider...

@+

J&B

J&B

Pb avec le compos CHART de VB! Aidez Moi SVP

1 réponse

Discussions similaires