chris6999
XLDnaute Impliqué
Bonjour le Forum
Je souhaiterais pouvoir filtrer les lignes de mon tableau lorsque je saisis une date dans la cellule H4.
A ce moment là le système filtre les lignes pour lesquelles la date saisie est présente dans la colonne 2 (ou B).
L'entête du filtre est sur la ligne 6.
J'ai essayé d'adapter une macro que m'avait écrit PierreJean du Forum mais cele ne fonctionne pas
La voici
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "H4" Then
If Target.Value <> "" Then
ActiveSheet.Range("$A$6:$T$6").AutoFilter Field:=2
crit = Format(Target.Value, "dd/mm/yy")
crit = Target.Value
fi = 2
Range("A6:T6").AutoFilter Field:=fi, Criteria1:=crit
Else
Range("A6:F6").AutoFilter Field:=2
End If
End If
Application.EnableEvents = True
Je ne sais pas si c'est un problème de format au niveau de mes dates car si j'applique ce code dans un nouveau fichier,cela semble fonctionner.
Merci de me dire ce que vous en dites
Cordialement
Je souhaiterais pouvoir filtrer les lignes de mon tableau lorsque je saisis une date dans la cellule H4.
A ce moment là le système filtre les lignes pour lesquelles la date saisie est présente dans la colonne 2 (ou B).
L'entête du filtre est sur la ligne 6.
J'ai essayé d'adapter une macro que m'avait écrit PierreJean du Forum mais cele ne fonctionne pas
La voici
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "H4" Then
If Target.Value <> "" Then
ActiveSheet.Range("$A$6:$T$6").AutoFilter Field:=2
crit = Format(Target.Value, "dd/mm/yy")
crit = Target.Value
fi = 2
Range("A6:T6").AutoFilter Field:=fi, Criteria1:=crit
Else
Range("A6:F6").AutoFilter Field:=2
End If
End If
Application.EnableEvents = True
Je ne sais pas si c'est un problème de format au niveau de mes dates car si j'applique ce code dans un nouveau fichier,cela semble fonctionner.
Merci de me dire ce que vous en dites
Cordialement