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 :

VBA et graphique


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
    Juillet 2009
    Messages
    40
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 40
    Par défaut VBA et graphique
    Bonjour,

    Je viens vers vous car je ne trouve de solution nul part pour mon problème.

    Je viens de créer une macro qui modifierai automatiquement un graphique mais j'ai une erreur de code (il ne detecte pas mon graphique) :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sheets(1).Select
        ActiveSheet.ChartObjects("Graphique 1").Activate
        ActiveChart.Axes(xlValue).MajorGridlin_es.Select
        ActiveChart.SeriesCollection(1).Name = SerieNOM
        ActiveChart.SeriesCollection(1).Values = SerieValeur
    erreur : "L"élément portant ce nom est introuvable."

    Le graphique est sur le premier onglet appelé "Graph1", il se nomme bien "Graphique 1".

    Si quelqu'un à une idée à m'apporter je suis preneur. Merci.

  2. #2
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Octobre 2010
    Messages
    338
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Octobre 2010
    Messages : 338
    Par défaut
    Bonjour,

    Essaye ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sheets(1).Select
        ActiveSheet.ChartObjects("Graph1").Activate'Il faut renvoyer le nom de la feuille (ou onglet)
        ActiveChart.Axes(xlValue).MajorGridlin_es.Select
        ActiveChart.SeriesCollection(1).Name = SerieNOM
        ActiveChart.SeriesCollection(1).Values = SerieValeur
    Personnellement je privilégierait une structure du type:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    With Sheet("Graph1")
    'Ton code
    End with

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2009
    Messages
    40
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2009
    Messages : 40
    Par défaut
    Merci Vincent pour cette réponse mais, hélas, ça ne fonctionne toujours pas.

    J'ai essayé ces deux codes et les deux me renvoient la même erreur :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    With Sheets("Graph1")
            .ChartObjects("Graphique 1").Activate
            .Axes(xlValue).MajorGridlin_es.Select
            .SeriesCollection(1).Name = SerieNOM
            .SeriesCollection(1).Values = SerieValeur
        End With
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Sheets(2).Select
        Sheets(2).ChartObjects("Graphique 1").Activate
        ActiveChart.Axes(xlValue).MajorGridlin_es.Select
        ActiveChart.SeriesCollection(1).Name = SerieNOM
        ActiveChart.SeriesCollection(1).Values = SerieValeur
    Le graphique prend toute la page, cela a t-il de l'importance ?

    Je viens de trouver ce code sur le net :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub Comptegraph()
    Dim Graph As ChartObject
    Dim nbG As Integer
    nbG = 0
    For Each Graph In Sheets("Graph1").ChartObjects
    nbG = 1 + nbG
    Next Graph
    MsgBox "Nombre de graphique(s) de la feuille active: " & nbG
    End Sub
    Il comptabilise le nombre de graphique sur un onglet. Pour moi le résultat est de 0 alors que j'en ai bien un ....

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

Discussions similaires

  1. [VBA-E] Graphique et position
    Par Itori dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 23/06/2006, 14h50
  2. [VBA-E]Graphique Excel
    Par shinobi dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 04/04/2006, 13h40
  3. [VBA-E] graphique avec plage de donnees variable
    Par gigs dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 03/04/2006, 14h50
  4. [VBA-E]Graphique
    Par kasjacques dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 21/03/2006, 17h56
  5. [VBA-E]graphique excel dans un userform
    Par alex_95 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 20/03/2006, 09h03

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