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 :

graphe automatique avec données sources variables [XL-2000]


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
    Avril 2010
    Messages
    27
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 27
    Par défaut graphe automatique avec données sources variables
    Bonjour/soir tout le monde!

    Je dispose d'un tableau (mis en forme automatiquement par une macro) avec un nombre de lignes/colonnes qui varie et que j'illustre par un graphique, que je souhaiterais actualisable en même temps que le tableau.

    j'ai utilisé l'enregistreur de macro en vue de le modifier, toutefois j'obtiens ceci:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub Macro1()
    '
    ' Macro1 Macro
    ' Macro enregistrée le 11/08/2010 par I00
    '
        Sheets("Graph1").Select
        ActiveChart.ChartArea.Select
        ActiveChart.SeriesCollection(1).XValues = "=Croismt!R4C5:R4C26"
        ActiveChart.SeriesCollection(1).Values = "=Croismt!R2464C5:R2464C26"
    End Sub
    Je me retrouve cependant face à un problème:
    comment automatiser les plages de ce type??
    R4C5:R4C26
    R2464C5:R2464C26
    je suis un peu perplexe,
    moi qui ai l'habitude de gérer les bornes des plages de cette manière (par exemple)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    LastLig = .Cells(Rows.Count, "A").End(xlUp).Row
    j'ai lu le post de tarnx qui semblait traiter du même sujet, pourtant la forme de mes plages est totalement différente...

    je vous remercie bien d'avance!

  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
    à essayer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
        ActiveChart.SeriesCollection(1).Values = "=Croismt!R" & LastLig & "C5:R" & LastLig & "C26"

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    27
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 27
    Par défaut
    niquel, ça fonctionne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveChart.SeriesCollection(1).Values = "=Croismt!R" & LastLig + 4 & "C5:R" & LastLig + 4 & "C" & DerniereCol - 1
    merci bien!

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

Discussions similaires

  1. Réponses: 4
    Dernier message: 25/02/2011, 16h31
  2. Envoi d'un e-mail automatique avec données dynamiques
    Par rcjcrcjc dans le forum Langage
    Réponses: 4
    Dernier message: 24/07/2009, 21h13
  3. Créer un graphique avec des données sources variables
    Par Tom1402 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 02/12/2008, 18h19
  4. [VBA] Graph Excel avec données en X et Y
    Par thierry-69007 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 01/04/2008, 22h01
  5. SSIS : foreach loop avec Répertoire source variable ?
    Par kaboume dans le forum MS SQL Server
    Réponses: 6
    Dernier message: 04/08/2006, 15h42

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