Filtre par date

[ericTA]

Boujour à tous,
Voila j'ai dans ma colonne A des dates (ex: 12/06/2008) avec un filtre, seulement quand je rentre comme critére */06* pour avoir que les lignes du mois de juin mais il ne trouve pas de résultat.

Il y a-t-il une solution en VB

Critere = "=*/06/*"
Selection.AutoFilter Field:=1, Criteria1:=Critere, Operator:=xlAnd
Range("A5:W4283").Sort Key1:=Range("A4"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Car ça ne marche pas.
Help.

 

[PascalXLD]

Re : Filtre par date

Bonjour

je crois que tu es obligé de faire ainsi

Selection.AutoFilter Field:=1, Criteria1:=">=01/06/2008", Operator:=xlAnd _
, Criteria2:="<01/07/2008"

 

[wilfried_42]

Re : Filtre par date

bonjour à tous

personnelement, j'ai toujours eu des problemes avec les filtres automatiques sur les dates, meme en utilisant l'enregistreur de macro, les problemes continuaient.......

je les ai definitivement réglés, en utilisant les integer (long)

dim datedeb as long, datefin as long
datedeb =clng(datevalue("01/06/2008"))
datefin = clng(datevalue("30/06/2008"))

ensuite le classique :

Selection.AutoFilter Field:=1, Criteria1:=">=" && datedeb, Operator:=xlAnd _
, Criteria2:="<=" & datefin