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

[philo180]

Bonjour,
je souhaiterais filtrer un TCD à partir de la valeur d'une cellule qui est une date.
exemple:
sur la feuille Intro, j'inscris une date en A1 et je souhaiterais que cette date ne s'affiche pas dans le TCD.
merci de vos reponses et ci-joint le fichier

 

[chris]

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

Bonjour

Dans le module de la feuille Intro

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

 

[philo180]

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.

 

[chris]

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

Bonjour

Peux-tu préciser les cas ?

 

[philo180]

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.

 

[philo180]

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

 

[chris]

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...

 

[philo180]

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