filtrer les dates dans un tcd

nicolase78

XLDnaute Junior
Bonjour à tous,

Je voudrais faire un filtre dans un tcd en vba, le tcd filtre le champs date du tcd qui ne sont pas comprises entre les dates mis dans deux cellules distinctes de la feuille quand j'appuie sur le bouton.

Impossible d'y arriver même en regardant les forums.

J'ai mis un fichier exemple en pièce jointe.

Si vous pouviez m'aider ça serait top.

Merci.
 

Pièces jointes

  • Test.xlsm
    22.1 KB · Affichages: 56
  • Test.xlsm
    22.1 KB · Affichages: 50
  • Test.xlsm
    22.1 KB · Affichages: 53

ERIC S

XLDnaute Barbatruc
Re : filtrer les dates dans un tcd

Bonjour

peut-être cela

Code:
'
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date")
    'affiche tout
    .CurrentPage = "(All)"
    .EnableMultiplePageItems = True
    'vérif si possible
    possible = 0
    For i = 1 To .PivotItems.Count
        If CDate(.PivotItems(i).Name) < Range("A2").Value Or CDate(.PivotItems(i).Name) > Range("B2").Value Then
        .PivotItems(i).Visible = False
        Else
            .PivotItems(i).Visible = True
                possible = 1
        End If
    Next
    If possible = 0 Then MsgBox "période non valide"
End With
 

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna