Affichage d'un graphique grâce à un bouton

Bonjour à toutes et tous,

Je souhaite afficher ou non un graphique à l'aide d'un bouton. J'ai déjà une base de code mais je n'arrive pas à l'adapter à un autre documents que celui d'origine.

Le code de base est le suivant :

Private Sub ToggleButton1_Click()
    With ActiveSheet.ChartObjects("Graphique 10")
        If ToggleButton1.Value = True Then
            .Visible = True
            ToggleButton1.Caption = "CHOIX POMPE IMMERGEE"
        Else
            .Visible = False
        End If
    End With
End Sub

Le résultat d'affichage du graphique est celui-ci:

Lorsque le graphique n'est pas affiché j'ai ma fiche de renseignements qui est derrière et qui doit être impérativement accessible.

PS: Le document n'est pas celui d'ou a été extrait le code et par conséquent ne fonctionne pas. Mais au moins il y a une base^^'.

Bonjour,

Comme ceci:

Cdlt

Bonjour Arturo,

Merci pour cette réponse cela marche parfaitement.

Bonne journée à vous