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 :

Problème génération de 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 éprouvé
    Homme Profil pro
    Inscrit en
    Novembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Novembre 2008
    Messages : 618
    Par défaut Problème génération de graphique
    Je renseigne plusieurs feuilles d'un même classeur et, à partir des données situées en colonne A et B, je souhaite faire une courbe sur la même feuille.

    En abscisses, je souhaite avoir la colonne A et en ordonnées, la colonne B.

    J'ai codé cela mais je n'ai aucun graphique en sortie:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
     
     ' Objet pour dessiner un graphique par département
       Dim Grf As ChartObject
     
       ' Objet pour prendre en compte la feuille
       Dim Sh As Worksheet
     
       ' Emplacement pour le graphe
       Dim Emplacement As Range
     
    Set Sh = Sheets(deplu)
     
                      ' Suppression de tous les graphiques
                      For Each Grf In Sh.ChartObjects
                          Grf.Delete
                      Next Grf
     
                      ' Création du graphique
                      Set Emplacement = Sh.Range("E6:L28")
     
                      Set Grf = Sh.ChartObjects.Add(Emplacement.Left, Emplacement.Top, Emplacement.Width, Emplacement.Height)
     
                      With Grf.Chart
                            ' .SetSourceData Source:=Range("A1:B" & lig)
                            .ChartType = xlLineStacked
                            .SeriesCollection.NewSeries
     
                            With .SeriesCollection(1)
                                .Values = Sh.Range("B1:B" & lig)
                                .XValues = Sh.Range("A1:A" & lig)
                            End With
                      End With
     
                      Set Grf = Nothing
                      Set Sh = Nothing
                      Set Emplacement = Nothing
    Merci d'avance.

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, un oubli ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim lig As Long
    ....
    lig = Range("A" & Rows.Count).End(xlUp).Row
    Sans oublier ceci ?

  3. #3
    Membre éprouvé
    Homme Profil pro
    Inscrit en
    Novembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Novembre 2008
    Messages : 618
    Par défaut
    Ces variables sont renseignées auparavant et ont les bonnes valeurs.

    Merci quand même !

  4. #4
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Re, surement pas car ici si tu rajoutes ce qui est donné ci-dessus cela fonctionne.

  5. #5
    Membre éprouvé
    Homme Profil pro
    Inscrit en
    Novembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Novembre 2008
    Messages : 618
    Par défaut
    Effectivement, j'avais un problème sur la valeur de la variable lig.

    Merci beaucoup !

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

Discussions similaires

  1. Réponses: 8
    Dernier message: 31/05/2011, 09h42
  2. Problème génération graphique par macro VBA
    Par Quent4491 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 11/05/2011, 15h00
  3. Problème avec la génération de graphique
    Par Mr_asticot dans le forum Jasper
    Réponses: 3
    Dernier message: 16/02/2010, 16h37
  4. Problème d'accélération graphique....
    Par jeebay dans le forum OpenGL
    Réponses: 3
    Dernier message: 02/08/2004, 17h28

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