Tracer courbe avec MSChart

Question

Bonjour,


Je voudrais tracer une courbe en prenant des données dans uen base MySQL mais il ne me la trace pas.


Voici mon code :
"Public Function rafraichirGraphCourbeDateDerive(ByRef mscGraph As MSChart, ByVal nomProjet As String, Optional ByVal nbHistoAAfficher As Integer 50, Optional ByVal afficherAPartirDe As Integer 0)
    Dim query As String
    Dim nbEnregistrements As Integer 'nombre d'enregistrements retournés par une requête
    Dim tableauDeValeurs() As Variant 'permet de stocker les valeurs des séries avant de les affecter au MSChart
    Dim i As Integer 'parcours les lignes de tableauDeValeurs
    Dim dateFin As Single
    Dim dateDebut As Single
    Dim dateFinReestime As Single
    Dim nbrDateSnapShot As Single
    Dim DateSnapShot As Single
      
    'récupération des informations nécessaire au dessin du graph
    query = "SELECT `dateSnapShot`, `dateFinEstimee`, `dateDebutEstimee`, `dateFinReestimee`, COUNT(`dateSnapShot`) " & _
            "FROM `snapshotprojet`, `infosprojet` " & _
            "WHERE `infosprojet`.`nomProjet` = '" & nomProjet & "' " & _
            "AND `snapshotprojet`.`idInfosProjet` = `infosprojet`.`idInfosProjet` " & _
            "ORDER BY `dateSnapShot` ASC"
    rst.Open query, cnx
    
    dateDebut = rst.Fields(2)
    dateFin = rst.Fields(1)
    dateFinReestimee = rst.Fields(3)
    nbrDateSnapShot = rst.Fields(4)
    DateSnapShot = rst.Fields(0)
    
    MsgBox nbrDateSnapShot
    
    'on compte le nombre d'enregistrements retournés par la requête
    While Not rst.EOF
        nbEnregistrements = nbEnregistrements + 1
        rst.MoveNext
    Wend
    rst.MoveFirst 'on remet le pointeur au début
    
    If nbEnregistrements >= 2 Then
        mscGraph.Visible = True
        txtErreurGraph.Visible = False
        
        With mscGraph
            .Repaint = False
            .ColumnCount = 1
            .RowCount = nbrDateSnapShot
            .chartType = VtChChartType2dLine
            .Column = 1
            
            For i = 1 To nbrDateSnapShot
                .Row = i
                .RowLabel = CDate(CDate(DateSnapShot))
                .Data = CLng(CDate(dateFinReestime))
            Next i
        .Repaint = True
        
        End With
    End If
    
   rst.Close
    
      
End Function"

Je ne vois pas pourquoi




Merci d'avance

mortalino · Answer

salut,

                .RowLabel = CDate(CDate(DateSnapShot))
                .Data = CLng(CDate(dateFinReestime))

Pourquoi plusieurs conversions ? CDate(Cdate(..)) ???  Idem CLng(CDate(..))
Sinon, vérifie la couleur de ta courbe, qu'elle ne soit pas de la même couleur que celle du graphe

@++ 

<hr width="100%" size="2" />( Nouveau forum : Exclusivement Office & VBA/STRONG>

xavier1936 · Answer

C'est bon j'ai trouvé la solution, j'ai changé mon code de A à Z

Je voudrais savoir comment avoir la valeur de la courbe lorsque le pointeur est sur la courbe ?

Merci

ksfoul · Answer

slt, j'ai aussi le meme probleme que toi pour le tracage de la courbe.svp montrer moi la solution que t'a trouvé.

Tracer courbe avec MSChart

3 réponses

Votre réponse

Discussions similaires