Excel VBA - Le filtre automatique bug

Je veux filtrer un ensemble de date sur une colonne composée de date et de contenu alphabétique.
La macro crée le filtre correctement, mais au résultat toutes les lignes sont masquées.
Pour les faire apparaitre la seule solution que j'ai trouvé est de cliquer sur bouton filtre de la colonne / Filtre chronologique / Filtre personnalisée puis OK (les données dans le filtre étant déjà renseigné).

Ce programme étant intégré a une macro plus importante, je dois trouver une solution pour faire apparaitre correctement le résultat sans cliquer.

Qui a une solution qui marche ? (voir le fichier exemple en pièce jointe)

Bonjour,

mauvaise façon de manipuler la date dans ta procédure probablement.
De façon imagée : si c'est un peu trop "français", t'es obligé d'aller rafraichir à la main l'application du filtre pour qu'Excel comprenne que le petit Anglais de VBA lui parlait (pour une fois) dans sa langue :ptdr:

Blague à part, montre-nous la partie de la procédure qui met en place le filtre ... et surtout la partie où sont définies tes dates

Merci Joe,

La mise en place de l'auto-filtre n'est pas piloté par la macro, il est créé en dur dans le fichier.
Le paramètrage du filtre des dates est créé par la procédure ci dessous. La construction de la date est effectivement réalisée pour forcer la date en français ...

Code:

---

1 2 3 4 5

Sub SelectionnerSemestre() Windows("classeur1.xlsm").Activate ActiveSheet.Range("$A$1:$A$9711").AutoFilter Field:=2, Criteria1:=">" & DateSerial(2015, 1, 0), Operator:=xlAnd, Criteria2:="<=" & DateSerial(2015, 7, 0)   End Sub

---

Bonjour,

il faudrait plutôt utiliser le numéro de série de la date, plutôt que la date directement. Là t'es tranquille, Excel et VBA vont redevenir copain implicitement.

de plus, il est conseillé de toujours mentionner le classeur et la feuille sur laquelle tu travailles, plutôt que d'activer et de travailler sur l'objet actif.

également, tu n'as pas besoin de faire référence à la plage complète, tu fais uniquement référence à la première cellule de ta base (A1) pour poser le filtre.


ceci devrait corriger ton problème, indique le nom de la feuille dans cette procédure (je ne la connais pas), test et dis-nous si c'est ok

Code:

---

1 2 3 4

Workbooks("Classeur1.xlsm").Worksheets("LaFeuille").Range("A1").AutoFilter Field:=2, _ Criteria1:=">" & CLng(DateSerial(2015, 1, 0)), _ Operator:=xlAnd, _ Criteria2:="<=" & CLng(DateSerial(2015, 7, 0))

---

C'est Parfait.
Merci Joe