Discussion :

[Thenewdahut]

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)

[joe.levrai]

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

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

[Thenewdahut]

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 :

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

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

[joe.levrai]

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 :

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

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))

[Thenewdahut]

C'est Parfait.
Merci Joe