Discussion :

[ericdev67]

Bonjour,

J'ai un ensemble de données, j'ai fait un TCD et je cherche à sélectionner dans mon TCD les dates inférieures à aujourd'hui.

J'ai mis en Feuil4 cellule G1, la date d'aujourd'hui et j'ai essayé avec l'assistant :

Code :

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

1
2
 ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
        PivotFilters.Add Type:=xlBefore, Value1:=Sheets("Feuil4").Cells(1, 7)

Mais cela ne fonctionne pas....je pense qu'il s'agit d'un problème de format...J'ai donc essayé en utilisant la formule "TEXTE" pour ma cellule G1, mais idem, marche pas....

Une petite aide ?

En vous remerciant,

[Docmarti]

Code :

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

1
2
 ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
        PivotFilters.Add Type:=xlBefore, Value1:=Sheets("Feuil4").Cells(1, 7)

Bonjour.

Peut-être en convertissant la valeur dans Value1 en valeur de type Long ou Double.

Code :

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

Value1:=CLng(Sheets("Feuil4").Cells(1, 7).Value)

[ericdev67]

Bonjour,

Non, fonctionne pas, message d'erreur....j'avais essayé aussi, sans succès....

Merci pour votre aide,

Le fichier test en PJ

A+

[78chris]

Bonjour

Il faut réinitialiser le filtre

Code :

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

1
2
3
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date").ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date"). _
        PivotFilters.Add Type:=xlBefore, Value1:=Format(Date, "yyyy/mm/dd")

[ericdev67]

Merci 78chris,

Mais si je veux faire <= date (=aujourd'hui), cela ne fonctionne pas.....

Merci pour votre aide,

[mercatog]

Tu as déjà xlbefore
Ensuite tu peux toujours faire

Code :

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

Type:=xlBefore, Value1:=Format(Date + 1, "yyyy/mm/dd")

[78chris]

Re

Merci 78chris,Mais si je veux faire <= date (=aujourd'hui), cela ne fonctionne pas.....

Code :

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

PivotFilters.Add Type:=xlBefore, Value1:=Format(Date, "yyyy/mm/dd")

veut pourtant bien dire antérieur à la date du jour...

et cela fonctionne à condition d'effacer le filtre existant comme indiqué.

Pour <= utilise comme proposé par rdurupt et mercatog : Date +1