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 :

Graphique plage de données variables [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
    Janvier 2011
    Messages
    5
    Détails du profil
    Informations forums :
    Inscription : Janvier 2011
    Messages : 5
    Par défaut Graphique plage de données variables
    Bonjour à tous, et bonnne année!

    J'ai réalisé il y a quelques temps un outil sur excel 2007 qui utilisait des macros dont une qui servait à afficher un graphique en histogramme avec du texte en abscisse.
    Tout fonctionnait bien jusqu'à ce que je passe je lance l'outil sous excel 2003, et là ce code ne fonctionne plus..

    Voici mon code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sheets("Maison").Activate
             b = Cells(3, 1).Value & "-" & Cells(1, 18).Value
              Charts("Graphique").SetSourceData Source:=Range("='Maison'!R3:R" & Cells(1, 1).Value + 2)
                 Charts("Graphique").SeriesCollection(1).Name = b
                Charts("Graphique").SeriesCollection(1).XValues = "='Maison'!$B$3:$C$" & Cells(1, 1).Value + 2 '
    C'est la dernière ligne de code qui pose problème sous Excel 2003 alors que tout fonctionnait sous 2007, pourriez-vous m'aider?

    Merci d'avance

    x0ran

  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
    quelque chose comme ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Dim b As String
     
    With Sheets("Maison")
       b = .Cells(3, 1).Value & "-" & .Cells(1, 18).Value
       Charts("Graphique").SetSourceData Source:=.Range("R3:R" & .Cells(1, 1).Value + 2)
       Charts("Graphique").SeriesCollection(1).Name = b
       Charts("Graphique").SeriesCollection(1).XValues = .Range("B3:B" & .Cells(1, 1).Value + 2)
    End With
    même sujet avec 2 pseudo différents

  3. #3
    Membre à l'essai
    Inscrit en
    Janvier 2011
    Messages
    5
    Détails du profil
    Informations forums :
    Inscription : Janvier 2011
    Messages : 5
    Par défaut
    Merci beaucoup mercatog ça marche très bien désormais!

    En fait nous sommes deux sur ce projet, et apparemment nous avons eu tous les deux la bonne idée de venir sur ce forum

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

Discussions similaires

  1. Réponses: 11
    Dernier message: 01/04/2019, 17h34
  2. [XL-2003] Graphique avec plage de données variables
    Par yoord dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 17/06/2009, 11h48
  3. graphique et plage de données variable.
    Par abouhossam dans le forum Excel
    Réponses: 2
    Dernier message: 29/12/2008, 11h53
  4. Plage de donnée variable pour un graphique
    Par Krovax dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/09/2008, 13h41
  5. plage de données variable pour un graphique
    Par Patnel dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 24/11/2007, 06h47

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