Supprimer ligne si cellules vides dans les 3 premieres colonnes

Bonjour à tous,

J'ai besoin d'un coup de main pour me permettre de nettoyer un fichier :

Je souhaite supprimer toutes les lignes d'un fichier dont les cellules des 3 premieres colonnes sont vides.

Merci

J-Pascal

Bonjour,

A insérer dans un module standard :

Sub NET()
Dim R%, LR%
Application.ScreenUpdating = False
With ActiveSheet
    LR = .Cells(Rows.Count, 4).End(xlUp).Row + 1
    For R = LR To 1 Step -1
        If .Cells(R, 1).Value = "" And .Cells(R, 2).Value = "" And .Cells(R, 3).Value = "" Then Cells(R, 1).EntireRow.Delete
    Next R
End With
Application.ScreenUpdating = True
End Sub

Cdlt,

Bonjour,

Ne sachant pas quelle colonne contient le plus grand nombre de données, petit essai :

Sub suppr()
Application.ScreenUpdating = False
For i = 100000 To 1 Step -1
If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = "" Then Rows(i & ":" & i).EntireRow.Delete
Next
End Sub

Edit : oups ! Hello Ergotamine. Ça faisait un sacré moment dis donc !

Merci à Ergotamine, ca fonctionne parfaitement, et merci à tout ceux qui se sont impliqués

Bonne journée à tous

Bonjour,

Petites précisions, sur les 2 macros proposées :

• Dans le code d'Ergotamine, la 4eme colonne de la dernière ligne du tableau ne doit pas être vide
• Dans le code de JoyeuxNoel, macro un peu moins efficace et se "limite" à un tableau de 100'000 lignes

Cordialement,