Verification presence chartobjects dans feuille

[deudecos]

Bonjour a toutes et a tous,

Ma question est la suivante :
Quel est le code pour verifier si il existe un graphique sur une feuille sans avoir a regarder sur la dite feuille ? En gros que cela se passe en tache de fond.
Ne serait ce que pour faire apparaitre un graphique s'il n'existe pas deja...

Merci et bonne journee !

Olivier

 

[Compte Supprimé 979]

Re : Verification presence chartobjects dans feuille

Salut Deudecos,

Tu peux utiliser un truc du style :

 Dim Graph As ChartObject
  For Each Graph In ActiveSheet.ChartObjects
    Graph.Activate
  Next

Voilà 😉

 

[deudecos]

Re : Verification presence chartobjects dans feuille

Salut Bruno

Et merci de ta reponse, mais ma question etait mal posee...

En fait, je voudrais savoir s'il existe un graphique sur ma feuille pour pouvoir ensuite l'effacer.
Le but de la recherche c'est que quand tu essaie d'effacer un graphique inexistant, tu as un message d'erreur. donc je voudrais pouvoir eviter cette erreur...

Bonne journee

Olivier

 

[Compte Supprimé 979]

Re : Verification presence chartobjects dans feuille

Re,

Tu peux tester de la même manière avec la boucle

Sub Macro1()
  Dim Graph As ChartObject
  For Each Graph In ActiveSheet.ChartObjects
    If MsgBox("Graphique existant, supprimer ?", vbQuestion) = vbYes Then
      Graph.Delete
    End If
  Next
End Sub

Si tu n'as pas de graphique, la boucle est passée sans soucis !

A+

 

[deudecos]

Re : Verification presence chartobjects dans feuille

Re,

Ok merci beaucoup, c'est effectivement une solution a adapter. Je voulais juste eviter de faire intervenir l'utilisateur.

Bonne journee

Olivier

 

[Compte Supprimé 979]

Re : Verification presence chartobjects dans feuille

Sans intervention de l'utilisateur, tu enlève le teste

Sub Macro1()
  Dim Graph As ChartObject
  For Each Graph In ActiveSheet.ChartObjects
      ' Suppression du graphique si existant
      Graph.Delete
  Next
End Sub

Voili, voilà 😉

 

[deudecos]

Re : Verification presence chartobjects dans feuille

re

C'est fait, merci encore !

Bonne journee

Olivier