supprimer si somme ligne = 1

ozaland · 29 Juillet 2011

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 · 29 Juillet 2011

Re : supprimer si somme ligne = 1

Bjr Oza

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

Code:

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

Merci à Jacques Boisgontier

Cordialement, Gérard

Efgé · 29 Juillet 2011

Re : supprimer si somme ligne = 1

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

VB:

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

supprimer si somme ligne = 1

ozaland

Guest

Pièces jointes

natorp

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Discussions similaires

supprimer si somme ligne = 1

ozaland

Guest

Pièces jointes

natorp

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency