Aide pour le tri

bonjour

je voudrais regarder sur trois collonnes si :si 3 cellules vide sur la ligne supprimer la ligne

je connais rien du tout en vba

Sub effacer()
For Each c In Sheets("FEUILLE_PROD").Range("B22:B23:B24:B25" & Range("B65356").End(xlUp).Row)
If c = "" Then c.EntireRow.Delete
Next c
End Sub

j ai trouvé ça sa marche pas

il reste pleins de lignes

pouvez vous m'aider

merci

Bonsoir,

Tu es tout proche de la solution.

Vois ce code à adapter.

Sub effaceLigne()
Dim Efface As Variant
For Each Efface In Sheets("Feuil1").Range("A1:A15")
    If Efface = "" And Efface.Offset(, 1) = "" And Efface.Offset(, 2) = "" Then
       Efface.EntireRow.Delete
    End If
Next
End Sub

cordialement

merci

pour ton aide,j'ai essayé mais rien

Sub effaceLigne()
    Dim Efface As Variant
    For Each Efface In Sheets("FEUILLE_PROD").Range("22:25")
        If Efface = "" And Efface.Offset(, 1) = "" And Efface.Offset(, 2) = "" Then
           Efface.EntireRow.Delete
        End If
    Next
    End Sub

tu veux tester quelles colonnes?

Car j'ai regardé ton fichier mais je n'ai pas compris.

les colonnes 22 23 24 25 si les 4 cellules sont vides supprimer la lignes

Re,

Attention ça va faire du ménage

Cordialement

ddetp88

peux-tu le mettre en xls s'il te plait chez moi je suis en 2003

Merci

Bonne fin de soirée

super c est génial

Merci a toi