Graphique à partir des données d'une combobox

Graphique à partir des données d'une combobox - VB/VBA/VBS - Programmation

Marsh Posté le 20-10-2013 à 10:52:58    

Bonjour,
 
J'ai comme projet de faire un logiciel analyseur de tâche d'un étudiant: celui-ci marque les activités faites durant les journée ainsi que leurs durée, puis un graphique doit apparaitre, sous forme de colonne et de camembert.
 
http://img15.hostingpics.net/pics/925252Capture.png
 
Sur cette fenêtre , l'étudiant ajoute ces activités et leur durée sur les combobox. Mon but est lorsque l'ajout de toute les activités est terminées, en appuyant sur  "analyse", il faudrait que les graphiques apparaissent avec les données contenues dans les combobox (Nbr d'heure en ordonnée et nom des activités en abscisse) ainsi  qu'un nombre d'heure par activité de référence (j'imagine qu'il faut juste les rajouter dans les propriétés du chart?)
 
Cependant, voilà seulement un mois que j'ai découvert les bases du codage et je n'ai aucune idée comment faire. Je n'ai pas réussi à trouver sur internet une notice m'expliquant comment faire cela, le cours par Philippe Lassere non plus.
La seule aide que j'ai pu obtenir est une moitié de code non annoté que m'a envoyé mon prof, mais je ne la comprend pas.  
 

Code :
  1. Dim lstJour As String
  2.     Dim CordY As Double
  3.     Dim SubTitle As Integer
  4.     Dim NameForm As Integer
  6.     Private Sub Chart1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chart1_Enter
  7.         lstJour.Items.Clear()
  8.         lblListe.Text = ""
  9.         Chart1.Titles(0).Text = "Répartition sur la Semaine"
  10.         Chart1.Series(0).Points.Clear()
  11.         NameForm = Nothing
  13.         For i = 0 To 4
  14.             NameForm = Define_NameForm_Cat(i)
  15.             StrJour = Define_STR_Jour(i)
  16.             If (NameForm.Items.Count - 1) >= 0 Then
  17.                 For j = 0 To NameForm.Items.Count - 1
  18.                     SubTitle = StrJour & (Chr(13) & Chr(10)) & NameForm.Items(j).SubItems(2).Text & (Chr(13) & Chr(10)) & NameForm.Items(j).SubItems(1).Text & " #PERCENT"
  19.                     'Jour ; Nom de l'activité ; categorie ; valeur en pourcent
  20.                     CordY = Val(NameForm.Items(j).Text)
  21.                     Chart1.Series(0).Points.AddXY(SubTitle, CordY)
  22.                 Next
  23.             End If
  24.         Next
  25.     End Sub


 
Est-ce que vous pouvez m'aider? Ce travail est très important et je vous serais vraiment reconnaissant si vous pouvez m'aider à avancer. Je suis totalement bloqué.
Merci de votre attention et bonne soirée.
 

Reply

Marsh Posté le 20-10-2013 à 10:52:58   

Reply

Sujets relatifs:

Leave a Replay

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