Discussion :

[basthab]

Bonjour à tous,

Dans ma macro VBA, je souhaiterai faire un filtre chronologique, sur mon TCD, étant antérieur ou égal à J-10 de la date du jour.

Mettant à jour ce fichier toutes les semaines, je n'arrive pas à prendre en compte la date du jour et à faire filtrer le TCD à J-10.

Auriez-vous une solution ?

Bastien

[Jean-Philippe André]

Salut,

dans l'idee, je suis parti sur ce code la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub piou()
    Dim i As PivotItem
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Dt")
        For Each i In .PivotItems
            i.Visible = CDate(i.Caption) <= Date - 10
        Next i
    End With
End Sub

[joe.levrai]

Bonjour,

une proposition sans devoir boucler sur chaque item

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Worksheets("MaFeuille").PivotTables("MonTCD").PivotFields("MonChamps")
    .ClearAllFilters
    .PivotFilters.Add2 Type:=xlBefore, Value1:=CStr(Date - 10)
End With

On supprime les filtres du champs et on pose un filtre chronologique "Avant la date du jour - 10"

Je te laisse compléter le nom de ta feuille, de ton TCD, et du champs à filtrer

[78chris]

Bonjour

A noter qu'on peut également le faire sans VBA en

• ajoutant une colonne calculée à la source qui affiche 0 ou 1 selon que la ligne est ou non dans la plage de dates requise
• plaçant le champ correspondant en champ de filtre (page)
• en le filtrant sur la valeur 1

L'actualisation du TCD recalculera automatiquement le filtre

[basthab]

Bonjour à tous,

Tout d'abord, je vous remercie pour vos réponses.

Je bloque sur la partie Date qui, pour vous, semble afficher la date du jour puisqu'elle s'affiche en bleu mais lorsque j'applique le code sur ma macro, la date du jour ne s'applique pas.

Comment faire ?

Bastien