Bonsoir,
 
Je cherche une méthode pour afficher ou cacher un graphe selon la valeur d'une cellule.
 
Au fait j'ai deux graphe que je veux superposer mais n'afficher qu'un seul à la fois selon le choix fait par l'intermédiaire d'une liste (cellule avec validation)
 
Merci

Bonjour,
ActiveSheet.ChartObjects("Graphique 1" ).Visible = False
 
adapter Graphique 1       et False
Cordialement

Salut ça va ?
 
Je vais tester ça.

J'ai introduis ce code dans la feuille où se trouve les deux graphiques.
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Range("b23" ).Select
If Cell.Value = "Graph1" Then
 
ActiveSheet.ChartObjects("Graphique 1" ).Visible = True
ActiveSheet.ChartObjects("Graphique 2" ).Visible = False
 
Else
 
ActiveSheet.ChartObjects("Graphique 1" ).Visible = False
ActiveSheet.ChartObjects("Graphique 2" ).Visible = True
 
End If
End Sub
 
A l'exécution, j'ai une erreur "objet requis" sur la ligne trois.
Est-ce que quelqu'un voit où ça bloque

Bon j'ai trouvé
 
J'ai remplacé les deux premières lignes par celle-ci
 
If Range("b23" ) = "Graph1" Then
 
ça marche maintenant.
 
Par contre il faut que je clic sur une autre cellule (autre que la b23) pour que la permutation des graphe se fasse. Si quelqu'un a une idée du pourquoi
 
Edit:
ça marche maintenant    
il fallait mettre la fonction dans "Private Sub Worksheet_Change" et pas dans "Private Sub Worksheet_SelectionChange"
 

Bravo et
Bonne semaine,
Cordialement