Sélection date de la veille dans filtre

Bonjour,

Je souhaiterais insérer une procédure VBA qui permette de sélectionner la date veille dans un filtre d'un tableau croisé dynamique.

Si vous avez une suggestion.

En vous remerciant par avance.

Bonne journée.

Bonjour

La solution la plus simple est d'ajouter une colonne à la source qui affichera 0 ou 1 selon que la date de la ligne est ou non la veille et de placer ce champ en zone de page du TCD (ou dans un segment si le filtre n'est pas systématique)

Sinon pré-traitement des données par PowerQuery intégré à ta version

Dans les 2 cas tenir compte des week end et jours fériés peut être utile

Bon après midi tout le monde

essaye ce code:

Sub Tri_TCD_Date()
'Données à changer
'Date ==> colonne Date
'Tableau croisé dynamique2

    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date"). _
        CurrentPage = Format(Now() - 1, "m/d/yyyy")
End Sub

Autre alternative

Sub TCD_Dates()
Dim p As PivotItem
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date")
    For Each p In .PivotItems
        p.Visible = True
    Next p
    For Each p In .PivotItems
        If p.Value <> Format(Now() - 1, "m/d/yyyy") Then p.Visible = False
    Next p
End With
Application.ScreenUpdating = True
End Sub

Bonjour,

Merci à tous pour vos réponses. Je vais les essayer.

Bonne journée.