Autofilter ne fonctionne pas

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
9exemple.xlsm (15.14 Ko)

Bonjour

Tu devrais t'y prendre autrement :

Bye !

118exemple-v1.xlsm (22.23 Ko)
Rechercher des sujets similaires à "autofilter fonctionne pas"