suppression ligne entiére

[Arnaud5962]

Bonjour, j'ai actuellement une macro qui me permet de supprimer toute les lignes qui contiennent le mot "méga"
cependant parfois il n'y a pas de ligne qui contienne méga,et dans ce cas, la macro bloque. Comment puis je faire?

Sub SupprimeLigne()
Dim LastLig&, pf As Range
Application.ScreenUpdating = False
With Sheets("Feuil1")
LastLig = .Cells(.Rows.Count, 4).End(3).Row
Range("D1" & LastLig).AutoFilter 1, "MEGA "
Set pf = [_FilterDataBase]
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12).EntireRow.Delete
.AutoFilterMode = False
End With
Set pf = Nothing
End Sub

 

[Pierrot93]

Re : suppression ligne entiére

Bonjour,

essaye ceci :

Dim pf As Range
Set pf = Range("_FilterDatabase")
If WorksheetFunction.Subtotal(3, pf.Offset(1).Resize(pf.Rows.Count - 1, 1)) > 0 Then
    pf.Offset(1).Resize(pf.Rows.Count - 1).EntireRow.Delete
End If

bonne journée
@+

 

[Arnaud5962]

Re : suppression ligne entiére

je l'ajoute à ma macro existante?

 

[Pierrot93]

Re : suppression ligne entiére

Re,

oui, en lieu et place de ceci :

Set pf = [_FilterDataBase]
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12).EntireRow.Delete