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 :

Tableau de stat dynamique


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
    Janvier 2011
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 19
    Par défaut Tableau de stat dynamique
    Bonjour à tous,

    Je cherche à generer des graphiques via une selection.

    Je m'explique : je choisi deux paramétres au niveau de la feuille "menu" dans les listes de choix. Ensuite je clic sur le commandbutton2. Et j'aimerai qu un graphique soit généré dans la feuille "stats" via les resultats de la feuille "resultats" correspondant à la selection de la feuille menu.

    Ex : je choisi dans menu "UO PL"+"Soudure/US - GERACI" et cela me donne le graphique correspondant (dans la feuille "stats" = Range(A19:C19))

    Voici la macro, j aimerai rendre la plage A19:C19 dynamique.

    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
     
    Private Sub CommandButton2_Click()
     
     
        Charts.Add
        ActiveChart.ChartType = xlColumnClustered
        ActiveChart.SetSourceData Source:=Sheets("stats").Range("A19:C19"), PlotBy:=xlColumns
        ActiveChart.Location where:=xlLocationAsObject, Name:="resultats"
        With ActiveChart
            .HasTitle = False
            .SeriesCollection(1).Name = "=""Taux de FdS/Contrats émis"""
            .SeriesCollection(2).Name = "=""Taux de retour FdS/FdS émis"""
            .Axes(xlCategory, xlPrimary).HasTitle = False
            .Axes(xlValue, xlPrimary).HasTitle = False
        End With
     
     
    End Sub


    Merci pour votre aide future.
    Fichiers attachés Fichiers attachés

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 19
    Par défaut Eureka
    J'ai trouvé la solution.

    Pour ceux que cela intéresse..........

  3. #3
    Modérateur
    Avatar de Chtulus
    Homme Profil pro
    Ingénieur
    Inscrit en
    Avril 2008
    Messages
    3 094
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Santé

    Informations forums :
    Inscription : Avril 2008
    Messages : 3 094
    Par défaut
    Citation Envoyé par tchoutchou69 Voir le message
    J'ai trouvé la solution.

    Pour ceux que cela intéresse..........

    Mais encore ?

    Si vous avez réussit à trouver une solution, ce serait sympa de la noter pour ceux que cela intéresse et pensez au tag "Résolu" en bas de la discussion !

    « Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions. »
    - Confucius -

    Les meilleurs cours, tutoriels et Docs sur les SGBD et le SQL
    Tous les cours Office
    Solutions d'Entreprise



Discussions similaires

  1. char *, string et tableau statique ou dynamique
    Par salseropom dans le forum C
    Réponses: 2
    Dernier message: 05/12/2005, 11h33
  2. Réponses: 1
    Dernier message: 07/09/2005, 22h15
  3. Réponses: 18
    Dernier message: 06/07/2005, 14h58
  4. [Reflection] Créer un tableau d'objets dynamiquement.
    Par salome dans le forum API standards et tierces
    Réponses: 2
    Dernier message: 25/03/2005, 18h59
  5. Réponses: 23
    Dernier message: 21/08/2003, 07h16

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