Private Sub CommandButton1_Click()
Dim date1 As String
Dim date2 As String
date1 = Format(TextBox1.Value, "mm/dd/yyyy")
date2 = Format(DateValue(TextBox2.Value), "mm/dd/yyyy")
ActiveCell.Select
Selection.AutoFilter Field:=4, Criteria1:=">=" & date1, Operator:=xlAnd _
, Criteria2:="<=" & date2
Unload Me
End Sub
merci beaucoup , je tournais autour du pot avec l'enregistreur sans jamais y arriver ........;
un bon coup de cerveau de ta part lol!!!
j'ai juste modifié field:= 4 pour prendre en compte la bonne colonne bien sur,
et > par >= et <= pour prendre en compte dans la fourchette les dates saisies
bonne journée et excuses pour le fichier joint
ça a bloqué plusieurs fois ,il n'a jamais voulu partir
(d'habitude pas de prob)
bonne fin de journée et encore Merci
Evelynetfrancois