Problème format date pour PivotFields

Version imprimable

17/03/2016, 20h40
ericdev67

Problème format date pour PivotFields
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:

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,
17/03/2016, 21h35
Docmarti
Citation:
Envoyé par ericdev67

Code:

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:

Value1:=CLng(Sheets("Feuil4").Cells(1, 7).Value)
17/03/2016, 21h49
ericdev67

1 pièce(s) jointe(s)

Bonjour,

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

Merci pour votre aide,

Le fichier test en PJ

A+

Bonjour

Il faut réinitialiser le filtre

Code:

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")

17/03/2016, 22h49
ericdev67

Merci 78chris,

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

Merci pour votre aide,
17/03/2016, 23h10
mercatog

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

Code:

Type:=xlBefore, Value1:=Format(Date + 1, "yyyy/mm/dd")
17/03/2016, 23h44
Invité

Bonsoir,
Type:=xlBefore, Value1:=Format(Date + 1, "yyyy-mm-dd")
17/03/2016, 23h48
78chris

Re

Citation:

Envoyé par ericdev67

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

Code:

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