Bonsoir.
Je sollicite votre aide pour un petit souci que je rencontre lors d'un filtre entre 2 dates avec un formulaire qui contient 2 TextBox le premier pour la date de début et le second pour la date de fin.
Voici mon code mais il ne filtre rien :
Comment régler ce problème.
Merci d'avance pour vos réponses.
Je sollicite votre aide pour un petit souci que je rencontre lors d'un filtre entre 2 dates avec un formulaire qui contient 2 TextBox le premier pour la date de début et le second pour la date de fin.
Voici mon code mais il ne filtre rien :
VB:
Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Entrer Une Date De Début"
Else
If TextBox2 = "" Then
MsgBox "Entrer Une Date De Fin"
Else
Dim datedbut As String
Dim datefin As String
datedebut = Format(TextBox1, "dd-mm-yyyy")
datefin = Format(TextBox2, "dd-mm-yyyy")
ActiveSheet.ListObjects("Tableau2").Range.AutoFilter Field:=3, Criteria1:=">=" & datedebut, Operator:=xlAnd, Criteria2:="<=" & datefin
End If
End If
End Sub
Merci d'avance pour vos réponses.