Re : Ma macro filtre sur une valeur "texte" ne fonctionne pas avec une valeur "date"
Merci pierrejean
Effectivement cela fonctionne bien pour les dates. Par contre, au niveau de la recherche par nom la macro ne parvenait plus à filtrer lorsque je cherche par partie de texte.
Par exemple pour afficher toutes les lignes qui contenaient DU sans être obligé de saisir le nom complet.
J'ai donc combiné les deux codes et cela semble fonctionner.
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B4") = "" And Range("E4") = "" Then
Range("A6:F6").AutoFilter Field:=3
Range("A6:F6").AutoFilter Field:=1
Exit Sub
End If
If Target.Address(0, 0) = "B4" Then
' Si la cellule contient une valeur
If Target.Value <> "" Then
' Filter sur cette valeur
Range("A6:F6").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
Else
' Supprimer le filtre
Range("A6:F6").AutoFilter Field:=1
End If
End If
If Target.Address = "$E$4" Then
ActiveSheet.Range("$A$6:$F$13").AutoFilter Field:=1
'crit = Format(Target.Value, "dd/mm/yyyy")
crit = Target.Value
fi = 3
Range("A6:F6").AutoFilter Field:=fi, Criteria1:=crit
Application.EnableEvents = False
Range("B4") = ""
Application.EnableEvents = True
End If
End Sub
Je te remercie pour ton aide
Bon dimanche