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 :

Création de graphiques [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Inscrit en
    Octobre 2009
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 4
    Par défaut Création de graphiques
    Bonjour,

    J'essaie de créer des graphiques de façon automatique avec VBA.
    la plage de données des graphiques ainsi que leurs nombres de series sont dynamiques. De plus les graphiques doivent apparaître dans un autre classeur excel que celui où se trouvent les données, exemple:

    classeur 'BDD.xls', feuille Alexandrie contient la plage de donnée.
    classeur 'BDD.xls', feuille Alexandrie_results contient des informations sur la BDD d'alexandrie (comme le nombre de séries).
    classeur 'Alexandrie.xls' feuille Feuil1 doit contenir les graphiques.

    J'ai passé déjà beaucoup de temps à trouver une solution mais en vain. Voici une partie de mon code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Set w_port = Application.ActiveWorkbook.Worksheets(port)
    Set w_rslt = Application.ActiveWorkbook.Worksheets(port & "_results")
    Set w_grph = Workbooks(port & ".xls").Worksheets("Feuil1")
     
    Charts.Add
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SetSourceData Source:=Union(w_port.Range(Cells(gr_ini(1), 5), Cells(gr_fin(1), 5)), w_port.Range(Cells(gr_ini(1), 11), Cells(gr_fin(1), 11))),   PlotBy:=xlColumns
    et l'erreur est la suivante: "la méthode cells de l'objet global a echoué".


    Je pense avoir un probleme de feuille active mais j'en suis pas sure et surtout je n'arrive pas à résoudre mon probleme. J'ai cherché sur plusieurs forums et je n'ai pas rencontré de solution a mon probleme.

    merci à tous pour votre aide.

  2. #2
    Membre à l'essai
    Inscrit en
    Octobre 2009
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 4
    Par défaut
    Bon j'ai finalement trouvé la solution! Voila ce qui fonctionne:

    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
        w_grph.Activate
        Charts.Add
        ActiveChart.ChartType = xlXYScatter
        ActiveChart.SetSourceData Source:=w_grph.Range("A1"), PlotBy:=xlColumns
        For j = 1 To nb_group
            ActiveChart.SeriesCollection.NewSeries
        Next
        For j = 1 To nb_group
            ActiveChart.SeriesCollection(j).Name = "groupe " & j
            ActiveChart.SeriesCollection(j).XValues = _
                    "='[" & BDD & "]" & port & "'!R" & gr_ini(j) & "C5:R" & gr_fin(j) & "C5"
            ActiveChart.SeriesCollection(j).Values = _
                    "='[" & BDD & "]" & port & "'!R" & gr_ini(j) & "C" & 42 & ":R" & gr_fin(j) & "C" & 42
        Next
        ActiveChart.Location Where:=xlLocationAsObject, Name:=w_grph.Name
    Je me prennais la tête sur le setsourcedata qui peut etre contourné finalement.

    bonne journée

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

Discussions similaires

  1. Réponses: 10
    Dernier message: 08/04/2007, 20h17
  2. [VBA-E] Création de graphique
    Par DonKnacki dans le forum Macros et VBA Excel
    Réponses: 21
    Dernier message: 06/03/2006, 11h10
  3. VBA Excel - Création de graphique
    Par sat478 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 06/01/2006, 16h11
  4. [Graphique] Création de graphiques
    Par missnouvelle dans le forum Bibliothèques et frameworks
    Réponses: 4
    Dernier message: 22/11/2005, 19h12
  5. Création de graphique
    Par boxerbara dans le forum Algorithmes et structures de données
    Réponses: 2
    Dernier message: 27/07/2005, 09h39

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