Hello à tous,
J'essaye de faire fonctionner un autofilter depuis ce matin mais rien n'y fais, il m'affiche un message d'erreur:
"Autofilter Method of Range class Failed".
En fait ce que je souhaite réaliser serait de supprimer toutes les lignes dont les cellules de la colonne F ne commencent pas par B, N, W ou V. J'ai également mis un exemple en pièce jointe.
Le code est le suivant :
Sub Exemple()
With Sheets("Sheet1")
.AutoFilterMode = False
With Range("f1", Range("f" & Rows.Count).End(xlUp))
.AutoFilter Field:=1, Criteria1:=Array("<>B*", "<>N*"), Operator:=xlFilterValues
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
With Range("f1", Range("f" & Rows.Count).End(xlUp))
.AutoFilter Field:=1, Criteria1:=Array("<>W*", "<>V*"), Operator:=xlFilterValues
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
End With
End Sub