Suppression . Activate dans procédure de modification d'un graphique
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:
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:
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
