filtrer un TCD a partir de la valeur d'une celule (date)

chris

XLDnaute Barbatruc

• 18 Juin 2016

• #2

Re : filtrer un TCD a partir de la valeur d'une celule (date)

Bonjour

Dans le module de la feuille Intro

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Cells(1, 1)) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        With Worksheets("TCD").PivotTables(1).PivotFields("Date")
            For Each Pi In .PivotItems
                If Pi.Caption = Format(Target.Value, "m/d/yyyy") Then Pi.Visible = False Else Pi.Visible = True
            Next
        End With
    Application.EnableEvents = True
End Sub

 

Dernière édition: 18 Juin 2016

Vote positif 0 Vote négatif

P

philo180

XLDnaute Nouveau

• 19 Juin 2016

• #3

Re : filtrer un TCD a partir de la valeur d'une celule (date)

bonjour,
merci pour ce code, je l'ai essaye mais il ne fonctionne pas à tous les coups.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 19 Juin 2016

• #4

Re : filtrer un TCD a partir de la valeur d'une celule (date)

Bonjour

Peux-tu préciser les cas ?

 

Vote positif 0 Vote négatif

P

philo180

XLDnaute Nouveau

• 19 Juin 2016

• #5

Re : filtrer un TCD a partir de la valeur d'une celule (date)

en fait j'ai essaye de mettre ce code dans un autre fichier, et un message d'erreur s'affiche:

erreur 1004: impossible de définir la propriete visible de la classe PivotItem.

 

Vote positif 0 Vote négatif

P

philo180

XLDnaute Nouveau

• 19 Juin 2016

• #6

Re : filtrer un TCD a partir de la valeur d'une celule (date)

En fait depuis la feuille Intro, je voudrais filtrer des TCD en excluant une date par le biais d'une macro

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 19 Juin 2016

• #7

Re : filtrer un TCD a partir de la valeur d'une celule (date)

Re

C'est bien ce que fait la macro.

Sur ton fichier exemple, elle fonctionne.

Sur ton autre fichier, il peut y avoir plusieurs raisons pour expliquer le dysfonctionnement.
Soit une mauvaise adaptation du code à cet autre classeur, soit un problème lié au format de date : cela arrive sur les valeurs (vides) et sur les dates en raison d'une mauvaise francisation d'Excel (pareil dans toutes les langues autres qu'US).

Sans extrait dudit classeur, difficile de vérifier...

 

Vote positif 0 Vote négatif

P

philo180

XLDnaute Nouveau

• 21 Juin 2016

• #8

Re : filtrer un TCD a partir de la valeur d'une celule (date)

Merci pour les réponses, ci joint un fichier plus explicicatif
bonne soirée

 

Pièces jointes

• TEST1 DATE.xlsm

  160.9 KB · Affichages: 47

Vote positif 0 Vote négatif