Supprimer lignes filtrées

Bonjour,

Je cherche à supprimer les lignes que j'ai filtré (filtre colonne A dont les cellules sont vides à supprimer) :

ActiveSheet.Range("$A$4:$BC$2403").AutoFilter Field:=1, Criteria1:="="

Delete.Select

C'est la 2 ème ligne qui ne fonctionne pas

ActiveSheet.Range("$A$4:$BC$2403").AutoFilter Field:=1, Criteria1:="="

Selection.SpecialCells(xlCellTypeVisible).Delete

Ca fonctionne par contre ça supprime ma ligne 4 ou il y a les noms de colonne (les cellules ne sont pas vide)

Bonjour

Essaie ça :

Sub essai()
    ActiveSheet.Range("$A$4:$BC$2403").AutoFilter Field:=1, Criteria1:="="
    ActiveSheet.Rows("5:2403").SpecialCells(xlCellTypeVisible).Delete
    ActiveSheet.ShowAllData
End Sub

Bye !

Bonjour,

Une autre piste :

Sub Test()

    With Worksheets("Feuil1")

        .Range("$A$4:$BC$2403").AutoFilter 1, "="
        .AutoFilter.Range.EntireRow.Delete

    End With

End Sub

Merci GMB ça fonctionne

'filtre les valeurs moyenn, standa etc.. puis supprime ces lignes

For I = Range("A1").End(xlDown).Row To 1 Step -1
If UCase(Cells(I, 1).Value) Like "MOYENN*" Or UCase(Cells(I, 1).Value) Like "STANDA*" Or UCase(Cells(I, 1).Value) Like "MAX*" Or UCase(Cells(I, 1).Value) Like "MIN*" Or UCase(Cells(I, 1).Value) Like "STATIS*" Or UCase(Cells(I, 1).Value) Like "PAGE*" Or UCase(Cells(I, 1).Value) Like "ACT*" Then
Cells(I, 1).Clear
End If
Next I

        ActiveSheet.Range("$A$4:$BC$2403").AutoFilter Field:=1, Criteria1:="="
        ActiveSheet.Rows("5:2403").SpecialCells(xlCellTypeVisible).Delete
        ActiveSheet.ShowAllData

je souhaite effacer les valeurs qui commence par c, j'ai mis ce code à la suite.

Le problème c'est que cela ne fonctionne pas. Ca marche si je supprime le code du dessus. Ca doit venir du I qui doit être bloqué

  For I = Range("A1").End(xlDown).Row To 1 Step -1
If UCase(Cells(I, 1).Value) Like "C*" Then
Cells(I, 1).Clear
End If
Next I

Merci de votre aide

Bonjour

A voir le fichier que tu joins et la macro que tu donnes, l'un n'a rien à voir avec l'autre.

Tu devrais donner le bon fichier et expliquer ce que tu veux obtenir.

A te relire.

Bye !