supprimer si somme ligne = 1

[ozaland]

Bonjour à tous,

mon fichier possède plusieurs milliers de lignes, sur certaines une erreur est présente: la ligne est vide sauf en AH.
j'aimerais supprimer les lignes avec un 1 dans AH et vide à côté. c'est à dire faire un test du style:
si la somme des cellules sur la ligne égale 1 alors la supprimer

merci
oza

 

[natorp]

Re : supprimer si somme ligne = 1

Bjr Oza

ce qui reviens à supprimer les lignes dont la cellule en colonne A est vide :

Sub sup()
On Error Resume Next
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Merci à Jacques Boisgontier

Cordialement, Gérard

 

[Efgé]

Re : supprimer si somme ligne = 1

Bonjour ozaland, Bonjour natorp,
Une autre façon:

Sub test()
With Sheets("Feuil1")
    For i = .Cells(Rows.Count, 34).End(xlUp).Row To 2 Step -1
        If Evaluate("SUM(A" & i & ":AG" & i & ")") = 0 Then .Rows(i).Delete
    Next i
End With
End Sub

Cordialement