Bonjour le Forum

J'ai un graphique ou je gère plusieurs types de données par VBA dans la plage de donnée de ce graphique en fonction d'une listBox.
le problème est qu'en fonction de certain type de données, j'ai soit une courbe continue où alors une succession de points.
J'ai donc insérer un bout de code qui fonctionne parfaitement :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ToggleButton1_Click()
'Interpolated data
If ToggleButton1 = True Then
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.DisplayBlanksAs = xlInterpolated
 Else
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.DisplayBlanksAs = xlNotPlotted
 End If
Sheets("Graph").Range("A1").Activate
 
End Sub
Par contre j'aimerais savoir s'il est possible de supprimer le . Activate pour le graphique
J'ai essayé directement avec :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
 ChartObjects("Graphique 1").DisplayBlanksAs = xlInterpolated
où même avec un bloc With mais cela me génère toujours une erreur.
L'astuce peu élégante que j'ai trouvé pour que le graphique ne soit plus activé, c'est d'activer la cellule A1, mais déontologiquement c'est bof...

Merci à vous de m'indiquer une piste.

Cordialement

Domimart