Macro AutoFilter pour les dates >= J+7

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:

---

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.

http://img7.hostingpics.net/pics/561940Sans_titre.jpg

Merci d'avance pour votre aide.

Cordialement,
Nicolas

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

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

Salut
Essais comme cela

Code:

---

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

Bonjour.

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

Code:

---

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

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:mouarf:
a++
Qwaz

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:

---

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

---

au lieu de

Code:

---

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

Re,

Citation:

---

Envoyé par Nicolas Plan

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

---

C'est bien cela. Le fait de faire .Select modifie effectivement la sélection. Si tu veux seulement filtrer, pourquoi sélectionner? En fait les 2 codes ne font pas la même chose, même si dans les 2 cas le résultat "principal" est obtenu.

Tu vois?

PGZ

Effectivement, pratique !

Merci ;)

Bien cordialement,
Nicolas

Si je peux me permettre de solliciter à nouveaux vos compétences, je souhaiterais ouvrir un message proposant 2 choix (boutons) à l'ouverture du fichier excel :

1. Mise à jour des données
2. Consultation

J'ai beau rechercher ici et sur google, je ne tombe jamais sur ce que je recherche, faute de bons termes je pense.

Je sais déjà crééer une macro en autoexécution, ce que je cherche c'est la syntaxe du style OpenMessage( "Mise à jour des données", "Consultation" )
et à assigner au bouton MAJ ma macro développée précédemment.

Cordialement,
Nicolas Plan

Re,

Tu pourrais utiliser un MsbBox, masi tu n'as pas le choix du texte des boutons. Par contre, tu peux utiliser une UserForm.

PGZ

Bonjour,

Je vais l'incrusté dans ce sujet je suis désolé :?
Au fait je doit faire la même chose qu'ici sauf que j'ai une column qui contien des valeur en texte il y en a qui correspondent à des Date et d'autres non.
Ce que je voulais faire c'est en gros je veux filter les lignes qui ont une date qui remonte à plus de 2 ans mon soucis c'est que la colonne contient des valeur hétérogène

voilà ce que j'ai pu faire pour l'instant merci pour votre aide

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Activate()   Range("B7").AutoFilter Field:=2, Criteria1:=">=" & Format(DateAdd("yyyy", -2, Now), "dd/mm/yyyy")     End Sub

---

Pas certain d'avoir tout compris, mais à priori la solution serait de mettre toute ta colonne en format date avant de faire ton filtre.

Code:

---

Columns("B:B").NumberFormat = "dd/mm/yyyy"

---