Discussion :

[Domimart]

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

[Invité]

Bonsoir,
Si tu n'active pas ton graph, tu n'as pas besoin de le désactiver!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set graph =ActiveSheet.ChartObjects("Graphique 1")
    graph.DisplayBlanksAs = xlNotPlotted

[mercatog]

C'est plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ChartObjects("Graphique 1").Chart.DisplayBlanksAs = xlInterpolated

[Invité]

Oui tu as raison! J'ai regardé vite fait pas dans le détail!

[Domimart]

Bonsoir à tous,

Oui c'est précisément ce que je n'arrivait pas à faire : Ne pas activer le graphique.
Je vois que dans ma syntaxe, il me manquait un .chart derrière ChartObjects("Graphique 1")
Cela marche nickel.

Merci à vous deux rdurupt et mercatog.

Bonne soirée à vous et à tout le forum !