Discussion :

[Nicolas Plan]

Bonjour à tous,

Je travaille sur une macro, j'essaye de faire un filtre en ne séléctionnant que les lignes supérieures à une date donnée (J+7).
La syntaxe semble correcte, cependant le filtre ne s'exécute pas.

Code :

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

Selection.AutoFilter Field:=9, Criteria1:=">=" & Left(Now() + 7, 10), Operator:=xlOr, Criteria2:="="

Si je clique sur "Personnaliser" après le passage de la macro, la sélection du critère est correcte, le problème est juste qu'elle ne s'exécute pas lors du déroulement, et m'affiche uniquement les champs vides.



Merci d'avance pour votre aide.

Cordialement,
Nicolas

[Qwazerty]

Salut
J'ai deja vu passer pas mal de sujet traitant des filtres et des date, tu devrais faire une recherche sur le forum.
La personne ici ne nous a pas fait profité d'une quelconque réponse donc du coup, impossible de savoir si celle qui lui a été apportée était efficace.
En espérant que cela résolve ton problème
A++
Qwaz

[Nicolas Plan]

Bonjour Qwazerty,

Merci pour ta réponse, malheureusement cela ne résoud pas mon problème, j'ai peur de ne pas être assez compétent pour adapter le code fournit Ormonth. En revanche, mon problème semble être le même que celui rencontré par l'auteur du sujet, donc à priori en rapport avec le format.

Quelqu'un aurait peut être une solution ?

Cordialement,
Nicolas

[Qwazerty]

Salut
Essais comme cela

Code :

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

1
2
3
Sub essaiFiltre()
Selection.AutoFilter Field:=9, Criteria1:=">=" & Format(CStr(Date + 7), "mm/dd/yyyy")
End Sub

Si ça fonctionne et que tu veux plus d'infos dis le moi.

Il faudrait voir un peu plus de ton code afin de supprimer le Selection et le remplacer par les cellules concernées
A++
Qwaz

[pgz]

Bonjour.

Et en supprimant le critère 2 qui a un opérateur, mais pas d'argument?

Code :

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

Selection.AutoFilter Field:=9, Criteria1:=">=" & Left(Now() + 7, 10)

A mon avis, ce n'est pas un problème de date US.
En prime, tu pourrais manipuler ta plage avec autre chose que l'objet Selection...

Cordialement,

PGZ

[Qwazerty]

Salut pgz
J'avais testé de cette manière, mais le filtrage n'est pas bon, toutes les date sont masquée, il semblerait qu'il faille systématiquement passer par un marquage US dans les filtres génère via vba.
L'ayant mentionné au dessus, je ne peu que plussoyé la remarque sur le Selection
a++
Qwaz

[Nicolas Plan]

Parfait, avec ton code cela fonctionne, merci beaucoup Qwazerty.

Bonjour pgz,
Pour répondre à ta suggestion le critère 2 me permet de sélectionner les lignes n'ayant pas de date.

En revanche, à propos de l'objet Selection, vous voulez dire que je peux faire

Code :

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

Columns("A:I").AutoFilter Field:=9, Criteria1:=">=" & Format(CStr(Date + 7), "mm/dd/yyyy"), Operator:=xlOr, Criteria2:="="

au lieu de

Code :

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

1
2
    Columns("A:I").Select
    Selection.AutoFilter Field:=9, Criteria1:=">=" & Format(CStr(Date + 7), "mm/dd/yyyy"), Operator:=xlOr, Criteria2:="="

c'est bien ça ?
Quel est l'intêret, la requête s'exécute peut être plus vite c'est ça ?


Merci encore pour votre temps.
Nicolas