Microsoft 365 VBA: Filtrer un TCD avec une date dans une cellule

PCharlier

XLDnaute Nouveau
Bonjour!
J'ai créé une macro permettant de lancer la création de plusieurs TCD simultanément, avec un filtre spécifique, et j'aimerai ajouter un filtre supplémentaire si la cellule A1 de la feuil "Mode D'emploi" est remplie avec une date par l'utilisateur.

J'ai tenté les syntaxes suivantes sans succès, sauriez vous comment je peux faire?
Merci d'avance!!
VB:
                Dim dat
                dat = Worksheets("Mode D'emploi").Cells(1, 1).Value
                If dat <> "" Then
                Worksheets("RECAP PAR FAMILLE").Activate
                ActiveSheet.PivotTables("tcd" & i).PivotFields("Date").ClearAllFilters
                ActiveSheet.PivotTables("tcd" & i).PivotFields("Date").CurrentPage = dat
                End If

Code:
                Dim dat
                dat = Worksheets("Mode D'emploi").Cells(1, 1).Value
                If dat <> "" Then
                Worksheets("RECAP PAR FAMILLE").Activate
                ActiveSheet.PivotTables("tcd" & i).PivotFields("Date").ClearAllFilters
                ActiveSheet.PivotTables("tcd" & i).PivotFields("Date").PivotFilters.Add Value:=CLng(Worksheets("Mode D'emploi").Range("A1").Value)
                End If
 

Pièces jointes

  • COMMANDES DE FIN D'ANNEE MASTER_004.xlsm
    819.6 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
297 988
Messages
1 964 906
Membres
200 747
dernier inscrit
mtb60