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 :

Automatiser les résultats d'un TCD


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2014
    Messages
    48
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2014
    Messages : 48
    Points : 35
    Points
    35
    Par défaut Automatiser les résultats d'un TCD
    Bonjour à tous,

    J'espère que vous allez bien.

    Je sollicite votre aide toujours dans le but de pouvoir progresser dans l'apprentissage d'excel concernant un besoin particulier.

    Je souhaiterai automatiser le détails des données présent dans un TCD.

    C'est à dire dans un onglet j'ai un certains nombre de données, dans lequel je réalise un tcd pour regrouper ces données. J'aimerai par la suite créer quelque chose de dynamique qui me permets d'afficher les détails du TCD.

    Dans l'exemple que j'ai créé pour être plus clair, j'ai réalisé un TCD par ville pour regrouper certaines données météos. Donc je souhaiterai par la suite créer un onglet avec les détails de chaque ville. Mais comme il y a plusieurs villes, j'aimerai que tous les données soit regroupés dans un seul et même onglet, et qui m'afficherai les données en fonction de la ville sélectionné.


    Pour cela j'ai pensé à différente solution, mais comme je suis très limité dans excel et surtout en VBA, je ne sais pas si mon besoin est réalisable.
    Par exemple créer une liste déroulante qui pointerait sur une ville et pouvoir afficher dynamiquement le détails des données.

    En fait à la différence d'un tcd, ce n'est pas les valeurs qui m'intéressent mais bien le contenu des valeurs, comme lorsque vous double-cliquer sur les valeurs d'un tcd qui vous affiche, le détail. C'est ça que je recherche à automatiser/dynamiser.


    J'espère avoir pu être clair, parce que c'est aussi à ce niveau que j'ai du mal à être compris. Donc n'hésitez à me poser des questions pour plus d'informations.

    Je vous remercie d'avance pour le temps consacré à la lecture du sujet, ainsi qu'a l'aide apporté par la suite.
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 183
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 183
    Points : 5 515
    Points
    5 515
    Par défaut précisions souhaitées
    La demande pourrait-elle être reformulée de la façon suivante ?
    - avoir seulement 2 feuilles: une feuille 'Données' et une feuille 'Résultat'
    - un double-clic sur une ville quelconque indiquée dans la feuille 'Données' affiche dans la feuille 'Résultat' toutes les données qui concernent cette ville (en ordre chronologique)

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2014
    Messages
    48
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2014
    Messages : 48
    Points : 35
    Points
    35
    Par défaut
    Bonjour EricDgn,

    Oui l'idée est là, c'est bien de regrouper toutes les données par ville dans un seul et même onglet. Et d'avoir la permutation dynamique en fonction du choix d'une ville.

    Merci de ton retour.

  4. #4
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 183
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 183
    Points : 5 515
    Points
    5 515
    Par défaut Fonction filtre insuffisante ?
    La fonction "filtre" n'est-elle pas suffisante pour effectuer cela ?

    Nom : Filtrer.png
Affichages : 396
Taille : 52,6 Ko

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2014
    Messages
    48
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2014
    Messages : 48
    Points : 35
    Points
    35
    Par défaut
    Merci de ta réponse EricDgn,

    Mais je dois dire que la solution des filtres n'est pas très ergonomique, je souhaiterai que l'affichage soit dynamique et permettent rapidement d'afficher les données en fonction de la ville.

    Tandis qu'avec un filtre, solution je dirais "trop" manuelle.

    D'autant plus que dans mon exemple il n y a pas beaucoup de colonnes, mais dans le vrai cas que j'étudie, il y a beaucoup de colonnes (fichier issue d'une extraction), et donc toutes les colonnes ne vont pas servir.

  6. #6
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 183
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 183
    Points : 5 515
    Points
    5 515
    Par défaut Double-clic sur une ville
    Placer ce code dans la feuille "Données":
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        Dim lastRow As Long, lastCol As Long
        If Me.FilterMode = True Then                                    '--- filtre en cours
            ActiveSheet.ShowAllData
        Else
            lastRow = Range("A" & Rows.Count).End(xlUp).Row             '--- n° dernière ligne
            lastCol = Cells(1, Columns.Count).End(xlToLeft).Column      '--- n° dernière colonne
            Range("A1").AutoFilter
            ActiveSheet.Range(Cells(1, 1), Cells(lastRow, lastCol)).AutoFilter Field:=2, Criteria1:=Cells(Target.Row, 2).Value
        End If
        Range("B1").Select
    End Sub
    Chaque double-clic sur une ligne filtre sur la ville sélectionnée.
    Si la vue est déjà filtrée, le double-clic réaffiche toutes les données.
    Bonne continuation.

  7. #7
    Membre expert
    Profil pro
    Inscrit en
    Février 2007
    Messages
    2 267
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 2 267
    Points : 3 663
    Points
    3 663
    Par défaut
    Bonjour,

    Si tu as 2013 tu peux mettre un Segment sur ta feuille de données.
    eric

Discussions similaires

  1. [XL-2007] Automatiser les champs d'un TCD
    Par Tom55555 dans le forum Excel
    Réponses: 3
    Dernier message: 08/06/2015, 10h41
  2. [XL-2007] macro pour afficher les résultats d'un TCD
    Par SEBALBERTVILLE dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 10/11/2014, 08h30
  3. Réponses: 0
    Dernier message: 22/03/2012, 14h03
  4. [XL-2003] comment automatiser les résultats ?
    Par MARGAR dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 17/12/2011, 20h11
  5. Ouvrir les résultats d'un TCD par macro
    Par illight dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 31/03/2008, 11h41

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