pb de filtre

Il me semble qu'il faut inverser le jour et le mois??

Sub filtre()
Range("C4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, _
Criteria1:=">01/01/1950", Operator:=xlAnd,
Criteria2:="</31/1950"
End Sub

Sub filtre2() ' dates en I2 et I3 (jj//mm/aa)
Range("C4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, _
Criteria1:=">" & Range("i2"), Operator:=xlAnd, Criteria2:="<=" &
inversedate(Range("i3"))
End Sub

Function inversedate(x)
p1 = InStr(x, "/")
p2 = InStr(p1 + 1, x, "/")
inversedate = Mid(x, p1 + 1, p2 - p1 - 1) & "/" & Left(x, p1 - 1) &
"/" & Mid(x, p2 + 1)
End Function

Sub tout()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

JB

j'ai essayé, et moi ça fonctionne, sauf que j'ai mis mes dates en
format aaaa/mm/jj

et es-tu sûr que tu as des données entre ces deux dates ?

et que c'est bien le field #3 ?

bonne chance

tiah

t'ai répondu dans ton autre fil. Reste sur le même fil!!!!

Le filtre suivant ne fonctionne pas et je n'arrvive pas à voir pourquoi. Il
n'y a pas de message d'erreur mais aucune ligne ne s'affiche.Pourtant
lorsque je le crée manuellement des données s'affichent.

Selection.AutoFilter Field:=3, Criteria1:=">!/10/2005", Operator:=xlAnd _
, Criteria2:="<$/10/2005"


Merci