Afficher / Masquer des graphiques sur excel 2007

[slaplace]

Bonjour,

Malgré toutes mes lectures sur différents forums je suis coinçé avec cette problématique.

En fonction de la valeur renseigné dans la cellule D1, je souhaite afficher l'un des graphiques mais pas les 2 en même temps.

Je n'arrive pas à programmer la macro nécessaire avec la fonction ActivateSheet.

Si quelqu'un peut m'aider.

Merci

 

[slaplace]

Re : Afficher / Masquer des graphiques sur excel 2007

Bonjour,

Personne n'a une idée pour résoudre mon problème ?

Merci

 

[job75]

Re : Afficher / Masquer des graphiques sur excel 2007

Bonjour slaplace,

Pas en forme sur XLD en ce moment 😕

Private Sub Worksheet_Change(ByVal Target As Range)
Me.ChartObjects(1).Visible = [D1] = "E5"
Me.ChartObjects(2).Visible = [D1] = "EN"
End Sub

A+

 

[job75]

Re : Afficher / Masquer des graphiques sur excel 2007

Re,

Un peu plus sophistiqué, pour un nombre quelconque de graphiques :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim o As ChartObject
For Each o In Me.ChartObjects
o.Visible = o.Chart.SeriesCollection(1).Name = "Valeur " & [D1]
Next
End Sub

Fichier (2).

Edit : on peut aussi utiliser le titre du graphique, s'il existe, voir fichier (3) :

o.Visible = o.Chart.ChartTitle.Text = "Valeur " & [D1]

A+

 

[slaplace]

Re : Afficher / Masquer des graphiques sur excel 2007

Merci pour la soluce !