Supprimer une ligne si colonne B ET C sont vides

Bonjour,

C'est mon post sur ce forum que je consulte régulièrement et m'ait très utile.

Ma question: J'essaie d'intégrer à une Macro une fonction qui supprimerais une ligne entière seulement si les cellules des colonnes B ET C sont vides.

Je trouve plusieurs réponse si une seul cellule est vide amis dans mon cas je veux seulement supprimer si B et C sont vide.

Dans mon exemple, je voudrais que la ligne 5, 10 et 11 soient supprimées.

Merci de m'aider,

Guillaume

Bonjour,

Essaye le code suivant :

Sub supprimerLigne()
    For Each cel In Range("B1:B" & Range("C" & Rows.Count).End(xlUp).Row)
        If cel = "" And cel.Offset(0, 1) = "" Then
            Rows(cel.Row).EntireRow.Delete
        End If
    Next cel
End Sub

bonsoir,

Il y a plus rapide que moi

Option Explicit
Sub sup_CelVide()
Dim celvide As Variant
    For Each celvide In Range("B1:B" & Range("C" & Rows.Count).End(xlUp).Row)
        If celvide = "" And celvide.Offset(0, 1) = "" Then
            Rows(celvide.Row).EntireRow.Delete
        End If
    Next celvide
End Sub

Bonjour,

Wow merci des réponses aussi rapide! Seul bémol ça fonctionne mais pas lorsqu'ils y a plus d'une ligne vide de suite.

Une solution pour ce détail?

Bonsoir,

Essaye plûtot ça :

Sub supprimerLigne()
    For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Cells(i, 3) = "" And Cells(i, 2) = "" Then
            Rows(i).EntireRow.Delete
        End If
    Next i
End Sub

Parfait, ça fonctionne !

Merci!