IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Trouver un graphique [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 21
    Par défaut Trouver un graphique
    Bonjour tout le monde,

    voilà, j'aimerai beaucoup trouver une graphique dans une feuille. Et s'il existe l'effacer. Sinon, ben ne rien faire.
    Ah oui petite précision, sans connaitre le nom du graphique. (ben oui sinon, c'est trop facile)

    Donc si quelqu'un s'est déjà posé la question merci du tips.

    Flo

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    tu as un seul graphique sur ta feuille?

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 21
    Par défaut
    mmm oui..... pour l'instant, parce que ça risque d'évoluer.
    Mais si ça marche avec un, c'est déjà pas mal.

  4. #4
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    On Error Resume Next
    Sheets("Feuil3").ChartObjects(1).Delete
    On Error GoTo 0
    pour effacer l'unique graphique
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Dim chrt As ChartObject
     
    For Each chrt In Sheets("Feuil3").ChartObjects
       chrt.Delete
    Next chrt
    pour effacer tous les graphiques

    J'ai pris pour exemple le(s) graphique(s) de la Feuil3
    Edit: corrigé une grossière coquille

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 21
    Par défaut
    erreur 1004 : erreur definie par l'application ou par l'objet

  6. #6
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Adapte le nom de ta feuille et j'ai corrigé une coquille

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Trouver l'indice d'un graphique
    Par ac264 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 20/03/2008, 12h02
  2. Ou trouver des drivers pour une carte graphique?
    Par wikers dans le forum Windows Vista
    Réponses: 5
    Dernier message: 15/10/2007, 11h56
  3. ou trouver des boutons graphiques ?
    Par gsmdu62 dans le forum Composants VCL
    Réponses: 2
    Dernier message: 02/05/2006, 22h20
  4. Réponses: 3
    Dernier message: 07/09/2005, 21h37
  5. [perl/GD/CGI] trouver des exemples graphiques
    Par LE NEINDRE dans le forum Web
    Réponses: 4
    Dernier message: 28/07/2005, 17h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo