Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…