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 :

Comment ajouter des séries dans des graphes sur des feuilles variables


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    juillet 2012
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Service public

    Informations forums :
    Inscription : juillet 2012
    Messages : 1
    Points : 3
    Points
    3
    Par défaut Comment ajouter des séries dans des graphes sur des feuilles variables
    Bonjour à tous,

    Je voudrais réaliser une petite écriture dans VBA (avec Excel 2003) qui me permette d’ajouter des séries de données dans des graphes en les définissant par un nom et des données en Y (les valeurs en X restant identique). Le problème est que je souhaiterais définir la feuille sur exécuter la macro comme une variable !

    Exemple :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    ActiveSheet.ChartObjects("Chart 13").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(4).Values = "='Feuil1'!R51C19:R62C19"
    ActiveChart.SeriesCollection(4).Name = "='Feuil1'!R51C7"
    Je voudrais donc fixer le nom de la feuille (en rouge) comme une variable qui soit justement dépendante de la feuille dans laquelle je souhaite que la macro s’exécute. Les lignes et colonnes à utiliser sont les mêmes pour toutes les feuilles. J’ai 87 feuilles et 5 graphiques par feuille à modifier alors la solution serait précieuse...

    Un grand merci d'avance pour votre aide.

  2. #2
    Membre confirmé Avatar de jackborogar
    Homme Profil pro
    Etudiant Ingénierie Financière
    Inscrit en
    avril 2012
    Messages
    290
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Etudiant Ingénierie Financière
    Secteur : Finance

    Informations forums :
    Inscription : avril 2012
    Messages : 290
    Points : 481
    Points
    481
    Par défaut
    Bonjour,

    Si j'ai bien compris, tu souhaites que ton nom en rouge se remplace par le nom de la feuille sur laquelle tu es?

    Dans ce cas ce n'est pas très dur, tu mets en variables le nom de ton onglet actuelle :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    NomOnglet = ActiveWorkbook.ActiveSheet.Name
    et remplace dans ton code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    ActiveSheet.ChartObjects("Chart 13").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(4).Values = "='" & NomOnglet & "'!R51C19:R62C19"
    ActiveChart.SeriesCollection(4).Name = "='" & NomOnglet & "'!R51C7"

    Cdt,
    Pour la carotte, le lapin est la parfaite incarnation du Mal.
    N'oublie pas de ou si la réponse t'a plu ou pas.

    Une fois que le topic est solutionné n'oublie pas

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

Discussions similaires

  1. Comment ajouter une information dans la liste déroulante des résultats ?
    Par jmbinformatique dans le forum Odoo (ex-OpenERP)
    Réponses: 3
    Dernier message: 15/05/2014, 14h11
  2. Réponses: 3
    Dernier message: 04/08/2011, 00h20
  3. Réponses: 1
    Dernier message: 13/07/2007, 10h17
  4. Réponses: 9
    Dernier message: 04/04/2007, 12h16
  5. Réponses: 3
    Dernier message: 21/07/2006, 14h22

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