Filtre qui ne s'exécute pas

Bonjour,

Je veux que la macro suivante face un tri sur mon tableau avec le critère suivant : ne conserver que les lignes dont la colonne Date (la 6e colonne) est égale à la date du prochain mercredi.

Quand j'exécute la macro, toutes les lignes se masquent alors qu'il y a bien des lignes qui correspondent au critère. Si je vais manuellement vérifier le filtre, il est bien indiqué la bonne date. Si je clique «OK», alors là le filtre s'exécute.

Code:

---

1 2 3 4 5 6 7 8 9

Sub ProchainCG() Dim DateMercredi As Date Dim DateCG As Variant   DateMercredi = Now() + 5 DateCG = Left(DateMercredi, 10) Worksheets("MonTab").Range("A1").AutoFilter Field:=6, Criteria1:=DateCG, VisibleDropDown:=True   End Sub

---

Quelle ligne de mon code est erronnée? Merci!
Souriane

Bonjour,

j'ajoute à ta signature sur "une question bien posée ...." : une recherche effectuée sur le forum = 90% de chance de trouver son bonheur


sujet traité et résolu aujourd'hui : http://www.developpez.net/forums/d15...tomatique-bug/

:aie:

Bonjour,

Merci Joe, c'est gentil de me rappeler de faire une recherche... mais je fais TOUJOURS une recherche sur le forum. C'est simplement que je le fais via Google et j'imagine qu'il ne traite pas ce qui a été fait dans les dernières heures. Aussi, c'est peut-être que les mots que j'utilisais pour ma recherche ne couvre pas ce message....

Bref, j'ai lu l'autre post et je ne parviens pas à l'appliquer comme il faut à ma situation. J'ai essayé pleins de méthodes et ça me donne continuellement le code d'erreur «Argument non facultatif».

Aurais-tu la gentillesse de m’aiguiller plus "profondément" car j'y ai passé déjà plus d'une heure ce matin et je m'arrache les cheveux!!!

Un immense merci pour ton aide!

Souriane

Je suis assez surpris ... ton code fonctionne parfaitement de mon côté, j'ai bien les lignes où en colonne F on a une date "03/02/2016" (format date)

je l'ai utilisé ainsi :

Code:

---

Worksheets("Feuil1").Range("A1").AutoFilter 6, Left(Now() + 5, 10)

---

Quel est le format appliqué à tes cellules ? Ainsi qu'une valeur exemple (celle qu'on voit dans la barre de formule)

Bonjour,

Pour répondre à ta question, le format des cellules de ma colonne est le format "date".

Je ne comprends vraiment pas mon problème!

La ligne que JoeLevrai a écrit ci-dessus ne fonctionne pas sur mon poste. (Worksheets("Feuil1").Range("A1").AutoFilter 6, Left(Now() + 5, 10) )

Si j'écris ainsi, ça ne fonctionne pas plus :

Code:

---

Worksheets("Liste des dossiers").Range("A1").AutoFilter 6, Criteria1:="=" & Left(Now() + 5, 10)

---

Mais si j'écris ceci, ça fonctionne!!!!

Code:

---

Worksheets("Liste des dossiers").Range("A1").AutoFilter 6, Criteria1:=">=" & Left(Now() + 5, 10)

---

(Noter, le «>») Cependant, évidemment, ce n'est pas ce que je souhaite, je n'ai pas besoin du "plus grand que"…

Une idée, une piste?

En mode bourrin

Code:

---

1 2 3 4 5

Sub tr()   Worksheets("Feuil2").Range("A1").AutoFilter 6, _ Format(CDate(Left(Now() + 5, 10)), "dd/mm/yyyy", vbMonday, vbFirstFourDays) End Sub

---

essaye de faire un classeur test (sans macro) avec juste un jeu de données fictives mais sur lesquelles tu arrives à reproduire le problème et de le joindre à la discussion.