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 :

Filtre Tableau Croisé Dynamique


Sujet :

Macros et VBA Excel

  1. #1
    Débutant
    Inscrit en
    Décembre 2007
    Messages
    1 235
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 1 235
    Points : 269
    Points
    269
    Par défaut Filtre Tableau Croisé Dynamique
    Bonjour,

    J'ai un tableau croisé dynmamique avec plusieurs champs.
    J'ai un champ nommé "Open Time", pour lequel je souhaiterais afficher tous les enregistrements sauf ceux nuls (= "").

    J'ai testé plusieurs choses, mais sans succès.

    Je pense qu'il faut utiliser le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    .PivotItems("").Visible = False
    J'ai essayé de simuler un enregistrement de macro en faisant :

    1) Tout sélectionner
    2) Décocher les enregistrements vides

    Mais le générateur de code, ne fait pas la différence entre selectionner tout et décocher vide.

    J'ai également testé une boucle du genre :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
       With ActiveSheet.PivotTables("PivotTable18").PivotFields("Open Time")
                For Each pi In .PivotItems
                    If pi.Name <> "" Then .PivotItems(pi.Name).Visible = True
                Next
        End With
    Merci d'avance

  2. #2
    Débutant
    Inscrit en
    Décembre 2007
    Messages
    1 235
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 1 235
    Points : 269
    Points
    269
    Par défaut
    Cette commande fonctionne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    With ActiveSheet.PivotTables("PivotTable18").PivotFields("Open Time")
            .PivotItems("").Visible = False
        End With
    Il faudrait que je puisse indiquer en dessous

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
     
    With ActiveSheet.PivotTables("PivotTable18").PivotFields("Open Time")
            .PivotItems( <> "").Visible = True
        End With

Discussions similaires

  1. [WD19] Filtre tableau croisé dynamique
    Par mimi1255 dans le forum WinDev
    Réponses: 0
    Dernier message: 23/09/2014, 18h14
  2. [Toutes versions] Problème condition pour filtre tableau croisé dynamique VBA
    Par Mikamac dans le forum Excel
    Réponses: 0
    Dernier message: 07/09/2014, 18h23
  3. [XL-2007] Filtre Tableau Croisé Dynamique
    Par Boboxien dans le forum Excel
    Réponses: 12
    Dernier message: 02/09/2014, 11h10
  4. Mise a jour filtre tableau croisé dynamique en VBA
    Par excelstef dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 13/12/2012, 17h43
  5. Filtre Tableau croisé dynamique
    Par adrien.gendre dans le forum Excel
    Réponses: 1
    Dernier message: 29/07/2007, 14h06

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