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 :

Parcourir un tableau croisé dynamique pour n'afficher que les valeurs différentes de zéro [XL-2013]


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti Avatar de nekcorp
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2006
    Messages
    592
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Décembre 2006
    Messages : 592
    Points : 383
    Points
    383
    Par défaut Parcourir un tableau croisé dynamique pour n'afficher que les valeurs différentes de zéro
    Bonjour,

    je souhaite ne pas afficher dans mon tableau croisé dynamique les lignes contenant des zéros à l'aide d'une macro.

    Nom : Capture.JPG
Affichages : 794
Taille : 15,5 Ko

    Voici mon code :

    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
     
    Sub filtresTCD()
    '
    ' filtresTCD Macro
    '
    Dim PvI As PivotItem
    Sheets("Data").Select
    Sheets("Data").Activate
    With ActiveSheet.PivotTables("TCD").PivotFields(2)
        For Each PvI In .PivotItems
            Select Case PvI.Name
                Case Is = "0"
                PvI.Visible = False
            End Select
        Next
    End With
    End Sub
    Je parcours ma deuxième colonne et si la valeur est nulle alors je souhaite ne pas voir la ligne. Le soucis c'est que mon filtre est sur ma première colonne du coup le PvI.Visible n'est pas appliqué dans la bonne colonne.

    Pourriez vous m'aider afin d'appliquer le PvI.Visible à ma première colonne lorsque je rencontre une valeur nulle.

    Merci pour votre aide.

  2. #2
    Expert éminent sénior

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 420
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 420
    Points : 16 264
    Points
    16 264
    Par défaut
    Bonjour

    Sachant qu'un filtre de ce style peut rester actif même à l’actualisation du TCD, je ne vois pas trop l'intérêt de coder...
    Chris
    PowerQuery existe depuis plus de 13 ans, est totalement intégré à Excel 2016 &+. Utilisez-le !

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

  3. #3
    Membre averti Avatar de nekcorp
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2006
    Messages
    592
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Décembre 2006
    Messages : 592
    Points : 383
    Points
    383
    Par défaut
    Citation Envoyé par 78chris Voir le message
    Bonjour

    Sachant qu'un filtre de ce style peut rester actif même à l’actualisation du TCD, je ne vois pas trop l'intérêt de coder...
    Désolé mais je n'ai pas compris ? Qu'entendez vous par filtre actif ?

    De plus je n'ai pas de filtres sur ma deuxième colonne de mon TCD du mon problème même avec ma macro.

  4. #4
    Expert éminent sénior

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 420
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 420
    Points : 16 264
    Points
    16 264
    Par défaut
    RE


    Tu sembles méconnaitre les TCD...

    On ne filtre que les champs d'analyse, soit sur leur propre valeur soit sur les valeurs leur correspondant.

    Un filtre actif est un filtre déjà positionné, manuellement ou pas

    Il subsiste à l'actualisation
    Chris
    PowerQuery existe depuis plus de 13 ans, est totalement intégré à Excel 2016 &+. Utilisez-le !

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

  5. #5
    Membre averti Avatar de nekcorp
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2006
    Messages
    592
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Décembre 2006
    Messages : 592
    Points : 383
    Points
    383
    Par défaut
    Citation Envoyé par 78chris Voir le message
    RE


    Tu sembles méconnaitre les TCD...

    On ne filtre que les champs d'analyse, soit sur leur propre valeur soit sur les valeurs leur correspondant.

    Un filtre actif est un filtre déjà positionné, manuellement ou pas

    Il subsiste à l'actualisation
    Effectivement je ne connais pas très bien les TCD je les découvre.

    Du coup pour avoir un filtre actif sur ma colonne contenant mes valeurs je dois le définir avec d'avoir fait mon TCD ?

    Merci

  6. #6
    Expert éminent sénior

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 420
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 420
    Points : 16 264
    Points
    16 264
    Par défaut
    RE

    Non.

    Manuellement : on crée le TCD puis on positionne le filtre

    Les TCD vivent des années. Il est rarement utile de les créer/manipuler par VBA
    Chris
    PowerQuery existe depuis plus de 13 ans, est totalement intégré à Excel 2016 &+. Utilisez-le !

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

  7. #7
    Membre averti Avatar de nekcorp
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2006
    Messages
    592
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Décembre 2006
    Messages : 592
    Points : 383
    Points
    383
    Par défaut
    Citation Envoyé par 78chris Voir le message
    RE

    Non.

    Manuellement : on crée le TCD puis on positionne le filtre

    Les TCD vievnet des années. Il est rarement utile de les créer/manipuler par VBA
    Ok j'avais pas vue qu'il était possible de filtrer sur les valeurs directement dans le filtre de ma première colonne.

    Nom : 2019-05-25_05-13-49.png
Affichages : 829
Taille : 29,1 Ko

    ça devrait le faire pour la suite.

    Merci pour ton aide.

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 09/11/2018, 23h35
  2. Réponses: 3
    Dernier message: 16/02/2017, 12h17
  3. Réponses: 2
    Dernier message: 03/11/2016, 10h14
  4. Réponses: 5
    Dernier message: 07/10/2008, 11h25
  5. Réponses: 1
    Dernier message: 22/09/2006, 13h05

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