Filtres avancés VBA et dates

Résolu/Fermé
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 - Modifié le 1 mars 2020 à 20:56
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 - 1 mars 2020 à 21:11
Bonjour,

J'essaye de copier un tableau en le filtrant, vers une plage, avec une zone de critères.
Sub MacroFiltre()

    Range("TabEntrées[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
        :=Range("I1:O2"), CopyToRange:=Columns("R:X"), Unique:=False
End Sub

Tous les critères fonctionnent sauf le filtre "Date", peu importe le format.

>05/01/2020 ou >=05/01/2020 par exemple, ne revoient rien, je n'ai pas d'erreur mais aucun résultat, quand je lance le code VBA fait avec l'enregistreur.

Mais quand je le fais manuellement (Filtré avancé manuel, je clique dans copier vers une autre zone et le garde les même range), ca marche parfaitement, j'ai bien mes lignes après le 5 janvier.

J'ai du mal à comprendre pourquoi ça marche à la main et pas en VBA!
J'ai essayé plusieurs formats de cellules partout.

1 réponse

thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
1 mars 2020 à 20:54
Bonsoir,

Forcément car ">05/01/2020" est interprété comme du texte.
Il faut utiliser une formule du type : =">" & CNUM("05/01/2020").

1
Anthelm Messages postés 198 Date d'inscription lundi 15 octobre 2018 Statut Membre Dernière intervention 2 mars 2024 1
1 mars 2020 à 21:11
Merci!
Oui en effet!
0