filtrer les dates dans un tcd

[nicolase78]

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.

 

[ERIC S]

Re : filtrer les dates dans un tcd

Bonjour

peut-être cela

'
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

 

[nicolase78]

Re : filtrer les dates dans un tcd

Super, c'est exactement ce que je voulais.