Discussion :

[forges]

Bonjour,

J'ai créé un graphique dans un formulaire avec plusieurs options pour modifier l'aspect du graphique. Je me suis inspiré du tuto de loufab qui m'a beaucoup aidé.

Mon graphique contient des courbes de températures de fours en fonction du temps. Je voudrais à partir de cases à cocher faire afficher ou masquer certaines courbes mais sans toucher au rowsource du graph (celui-ci est modifié selon le four qui est sélectionné dans une liste modifiable).

Est-il possible de modifier en vba le datasheet du graph et afficher / masquer une courbe (comme l'action du double-clic en manuel) ?

[lelensois16]

Bonjour,

Je dois aussi faire un travail similaire à la votre et j'ai recontré le même problème , j'ai eu cette option :

- Jouer sur les couleurs , ( sachant que l'arrière plan du graphique est en blanc ). Si je coche la case , ce code se déclenche sinon si la case est décochée , je reviens aux couleurs initiales.

Code :

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

1
2
3
4
5
 
gSeries.Item(nb - 1).ChartType = xlLineMarkers
gSeries.Item(nb - 1).Border.ColorIndex = 2
gSeries.Item(nb - 1).MarkerForegroundColorIndex = 2
gSeries.Item(nb - 1).MarkerForegroundColorIndex = 2

Après , je suis sur qu'il existe une méthode plus simple ...

Cdt

[forges]

Ce n'est pas très heureux mais ça peut être une solution, par contre il faut aussi passer le texte dans la légende en blanc et ça me laisse un espace vide à la place...

Merci de ta réponse, je vais faire comme ça en attendant de trouver mieux

[forges]

En cherchant un peu j'ai trouvé la méthode Delete qui agit sur le graphe lui-même.

Code :

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

1
2
 
vGraph.SeriesCollection(1).Delete

Ça fonctionne bien par contre pour ré afficher la courbe, je dois réaffecter le rowsource du graphe, c'est un peu lourd

[lelensois16]

Rebonjour,

Par rapport à votre dernière réponse , pourquoi ne pas effacer la ligne de la légende concernée ?

Loufab en a parlé dans son tuto :

Code :

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

vlChart.Legend.LegendEntries(2).Font.Size = _ vlChart.Legend.LegendEntries(2).Font.Size + 2

La méthode irréversible Delete permet de supprimer la ligne choisie ...
Mais bon c'est irréversible ...


Autre méthode un peu zarbi ,
Créer un autre DataSheet , qui servira de "mémoire",
On copie les données de la courbe en question , on le colle dans le datasheet intermédiaire et on efface de suite la courbe.
Peut être que c'est plus rapide ?

Cdt

[forges]

Rebonjour

La suppression de l'entrée dans la légende fonctionne mais le problème de l'affichage en blanc de la courbe, c'est que lorsque j'affiche les lignes de l'échelle (Gridlines) on devine quand même la courbe surtout quand les lignes sont serrées.

Je vais essayer de regarder du côté de la datasheet, je ne maîtrise pas trop cette partie encore...

Merci lelensois16 pour tes contributions