Excel : Supprimer une ligne si la cellule d'une certaine colonne est vide ?

Vous pouvez le faire très rapidement si les cellules sont vraiment vides en utilisant SpecialCells

Manuel

• Sélectionnez la colonne C
• Appuyez sur F5, puis Special
• Cochez Blanks, puis OK (voir cette étape dans l'image du bas)
• Supprimez les lignes qui sont maintenant sélectionnées (e. g. clic droit dans la sélection > Supprimer les cellules… > Entrée ligne ou via le ruban (voir deuxième capture d'écran))

VBA

Sub QuickCull()
    On Error Resume Next
    Columns("C").SpecialCells(xlBlanks).EntireRow.Delete
End Sub

Voici une méthode manuelle facile

1. Appliquez un Auto Filter à votre feuille
2. Filtrez sur la colonne C Blank
3. Sélectionnez toutes les lignes visibles
4. Supprimez les lignes
5. Supprimez le filtre

Ce processus peut être automatisé avec VBA si nécessaire. Essayez d'exécuter l'enregistreur de macros pour commencer

Cela devrait fonctionner.

Columns("C:C").Select
Set rngRange = Selection.CurrentRegion
lngNumRows = rngRange.Rows.Count
lngFirstRow = rngRange.Row
lngLastRow = lngFirstRow + lngNumRows - 1
lngCompareColumn = ActiveCell.Column
For lngCurrentRow = lngLastRow To lngFirstRow Step -1
If (Cells(lngCurrentRow, lngCompareColumn).Text = "") Then _
Rows(lngCurrentRow).Delete
Next lngCurrentRow

Vous pouvez mettre ce code dans le module Feuille (cliquez sur l'onglet Feuille avec le bouton droit de la souris et sélectionnez “Afficher le code”) :

Sub Delete_Blank_Rows()

'Deletes the entire row within the selection if the ENTIRE row contains no data.

'We use Long in case they have over 32,767 rows selected.

Dim i As Long
Dim LastRow As Integer

'We turn off calculation and screenupdating to speed up the macro.

 With Application
     .Calculation = xlCalculationManual
     .ScreenUpdating = False

     'Reduce the work on the calc and define the range

     LastRow = Range("A" & Rows.Count).End(xlUp).Row
     Range("A2:A" & LastRow).Select

     'We work backwards because we are deleting rows.

     For i = Selection.Rows.Count To 1 Step -1
          If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
              Selection.Rows(i).EntireRow.Delete
          End If
     Next i

    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With

End Sub