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

PCharlier · 18 Décembre 2021

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

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

PCharlier

XLDnaute Nouveau

Pièces jointes

Discussions similaires