Discussion :

[Kimy_Ire]

Bonjour à tous,

C'est mon premier graphique que je réalise par VBA. Je me suis beaucoup servi de la FAQ suivante : http://excel.developpez.com/faq/?page=Graphique mais certaines questions et problèmes subsistent...

J'explique rapidement le concepte : j'ai une feuille excel dans laquelle des données sont stockées. Je cherche à tracer en fonction des jours (qui se trouvent sur la ligne 1) les valeurs répertoriées sur les colonnes entières en dessous de ceux-ci. Le nombre de lignes pleines sur chaque colonne varie (de 1 à 49).

Actuellement je souhaite tracer les 20 dernière journées. Bref, tout ceci n'a que peu d'importance...

I) Ma première question est : comment puis-je renomer mes séries ? J'ai tenté le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        For i = 0 To 19
            .SeriesCollection(i).Name = Worksheets("TEST").Cells(1, col - 19 + i).Value
        Next i

J'ai tenté plusieurs autres formulations sans succès... Le code d'erreur est "Paramètre non valide."


II) Ma deuxième question est : comment puis-je renomer mon axe des abscices en fonction de ma colonne A ? Celle-ci contient les valeurs suivantes : "Day + 0", "Day + 1", "Day + 2", etc...


III) Ma troisième question est : comment puis-ja ajouter une nouvelle courbe ? Cette question peut parraitre bête, mais je n'y arrive pas. J'ai créé un tableau (Dim Tableau(1 To 20) As Single) qui fait une moyenne par "Day + 0", "Day + 1", etc... que je voudrais tracer d'une autre manière. J'ai utilisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        .SeriesCollection.NewSeries
        .SeriesCollection(.SeriesCollection.Count).Name = "Moyenne"
        .SeriesCollection(.SeriesCollection.Count).ChartType = xlLine
        .SeriesCollection(.SeriesCollection.Count).Values = Tableau

EDIT : problème de placement de ".SetSourceData Source:=plage" => troisième question résolue


IV) Enfin, ma dernière question : comment puis-je supprimer et raffraichir un graphe ? Ce que j'entends par là est le fait que je sois obligé de supprimer mon onglet dans lequel je créer mon graphe "With ActiveChart .Name = "Queries | last 20 daily AppUID" " avant de pouvoir le recréer.

Je met en pièce jointe ce que j'ai réussi à obtenir à l'heure actuelle.

J'imagine ne pas avoir été vraiment très clair avec tout ces problèmes... Mais avoir une objectivité parfaite en posant des questions de ce type au milieu de mon projet est difficile... Je reste donc à votre disposition pour tout complément en espérant tout de même que vous aurez compris mes points de difficulté.

Je vous remercie par avance pour m'avoir lu et pour vos futures réponses.

Kimy