Bonjour à tous,
J'essaye de mettre au point un filtre pour afficher plusieur ligne d'un grands tableau mais voila quand je rentre mes différents critère ça me fil un message d'erreur (1004) et j'arrive pas à m'en sortir.
Ce que je voudrais c'est que mon filtre m'affiche les lignes où :
- Il y a la date du jour en C
- Il y a le jour en N
- Il y a écrit observation en B et il n'y pas écrit Levé en M
Voici le code :
Sub filtre_date_leve()
ActiveSheet.Unprotect "1234"
Dim i As Integer
i = 9
While (Cells(i, 1).Value <> "")
i = i + 1
Wend
ActiveSheet.Range(Cells(8, 1), Cells(i, 16)).AutoFilter Field:=3, Criteria1:=Date, Operator:= _
xlOr, Field:=14, Criteria2:=Date, Operator:= _
xlOr, Field:=2, Criteria3:="OBSERVATION", Operator:=xlAnd, Field:=13, Criteria3:="<>" & "Levé"
'C'est ce pack la qui bug
ActiveSheet.Unprotect "1234"
End Sub