créer un graphique a ortir dune feuille excel et le metrre a jour dynamiquement

Question

Bonjour, 



je souhaite, via un timer, acquerir des donn&#233;es (ca, ca marche!!) et
pondre juste derriere ca , un graphe temps r&#233;el de ces valeurs. 

1) vous mettriez quel type d'objet ? (picture box, image, ole, etc...?)

2) comment le coderiez vous?



voila le code de mon timer. j'ai tent&#233; de mettre un graphe excel mais ca foire..



merci



Stef

----------------------------------------------------------------------------

Private Sub Timer2_Timer()

'mise en marche du timer et acquisition



'teste si l'autorisation est donn&#233;e

If flagmarche = False Then Exit Sub

If flagmarche = True Then

       

Dim chaine As String

Dim paramcanal(20) As String

Dim compt As Double

Dim index As Double



'Ouverture du fichier qui contient les parametres du timer2

Open chemin & "\configcanaux.txt" For Input As #1

compt = 1

'Boucle de parcours s&#233;quentiel

Do While Not EOF(1) 

Input #1, chaine

paramcanal(compt) = chaine

compt = compt + 1

Loop

Close #1



'le dernier parametre lu est le tempo du timer

index = compt - 1

Timer2.interval = paramcanal(index)

tempo = Timer2.interval



'lecture desdonn&#233;es recueillies par la carte sur le port com1    

    TXD 1 'la validation passe a 1 et l'acquisition commence

    val1 = FormatNumber(READBYTE() / 255) * Alim

    val2 = FormatNumber(READBYTE() / 255) * Alim

    val3 = FormatNumber(READBYTE() / 255) * Alim

    val4 = FormatNumber(READBYTE() / 255) * Alim

                    

'affichage des valeurs mesur&#233;es dans des textbox pour un controle visuel

       Text1.Text = val1

          i = i + 1

      'conversion en secondes

      t = i * tempo / 1000

        Text5.Text = i

              

        Text2.Text = val2

      j = j + 1

        Text6.Text = j

        

        Text3.Text = val3

      k = k + 1

        Text7.Text = k

        

        Text4.Text = val4

      l = l + 1

        Text8.Text = l

        

'remplissage du tableur excel recueuillant les valeurs exp&#233;rimentales

apex.Worksheets(1).Cells(t, 1).Value = t

apex.Worksheets(1).Cells(t, 2).Value = val1

apex.Worksheets(1).Cells(t, 3).Value = val2

apex.Worksheets(1).Cells(t, 4).Value = val3

apex.Worksheets(1).Cells(t, 5).Value = val4





'c'est la que j'ai besoin d'aide !!!!

'cr&#233;ation du graphique

apex.Range("a1:b" & t + 1).Select  ' graphe de la prmiere des 4 valeurs en fonction du temps

apex.Charts.Add

apex.ActiveChart.ChartType = xline

 

'fin de ma partie difficile



 ' fin de l'acquisition sur ce cycle

       TXD 0



End If

End Sub

-------------------------------------------------------------------------

jpleroisse · Answer

Bonjour,

Voici un mod&#232;le de cr&#233;ation de graphique dans Excel.



Sub Graphe()

    Charts.Add

    ActiveChart.ChartType = xlColumnClustered

    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:F3"), PlotBy:= _

        xlRows

    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"

    With ActiveChart

        .HasTitle = False

        .Axes(xlCategory, xlPrimary).HasTitle = False

        .Axes(xlValue, xlPrimary).HasTitle = False

    End With

End Sub



jpleroisse

stefsuire · Answer

merci pour ton code ...



mais comment est ce que j'utilise ta partie de code? elle s'insere
entre mes partie marqu&#233;es en rouge..c'est une fonction a mettre dans
un  module ?



merci! 



Stef

jpleroisse · Answer

Re,

Oui , met le code dans la partie marqu&#233;e en rouge, bien sur je suppose
que tu as plac&#233;s la r&#233;f&#233;rences &#224; Excel et ouvert un classeur ?





jpleroisse

stefsuire · Answer

Oui j'ai ouvert juste avant, dans un bouton la proc&#233;dure d'ouverture d'un fichier excel, pret a etre rempli !!!



par contre le graphe va t'il se mettre ajour facon continu au fur et a
mesure que vont apparaitre les donn&#233;es dans le classeur...???



il parait que le fameux DoEvents, c'est top.... sauf que je sais pas l'utiliser...



tu sais toi  ?

jpleroisse · Answer

Je pense que chaque fois que tu vas cliquer pour introduire les donn&#233;es, le graph vas se recr&#233;&#233;, donc mis &#224; jour.

C'est un essai qu'il te faut faire, personnellement je n'ai jamais eu &#224; utiliser cette m&#233;thode.



jpleroisse

Créer un graphique a ortir dune feuille excel et le metrre a jour dynamiquement

5 réponses