Suppression de lignes sous conditions

[guenfood]

Bonjour,

Comment faire pour supprimer toutes les lignes de mon tableau pour lesquellesà la fois les cellules de mes colonnes A et C sont vides ?

Merci par avance.

 

[porcinet82]

Salut Guenfood,

Avec ce code ca devrait le faire :

Sub test()
Dim i As Integer

For i = Range('A65536').End(xlUp).Row To 1 Step -1
    If Cells(i, 1).Value = '' And Cells(i, 3).Value = '' Then
        Rows(i).Delete
    End If
Next i
End Sub

@+

 

[guenfood]

Impeccable

Merci beaucoup

 

[AV]

Ave,

Pour le smilblick...
Une méthode qui peut faire gagner beaucoup de temps (si beaucoup de données) : ne boucler QUE sur les cellules vides de la colonne A (ou B):

Sub zz_Sup()
Application.ScreenUpdating = False
For Each c In Range('A1', [A65536].End(3)).SpecialCells(xlCellTypeBlanks)
If c = '' And c.Offset(0, 1) = '' Then c.EntireRow.Delete
Next
End Sub

AV [aaa]