Macro supprimer ligne excel si somme de 2 cases = 0

[Pitivier]

Bonjour,

Novice en vba, j'aimerais intégrer des écritures comptables sur ciel compta.

Le problème est que c'est que les lignes qui sont égales à 0 ne veulent pas s'interfacer.

Disons que sur la ligne 4, en d4 et en e4, la somme des 2 Fait 0?

Comment supprimer cette ligne en faisant une macro en vba?

Merci d'avance.

 

[JCGL]

Re : Macro supprimer ligne excel si somme de 2 cases = 0

Bonjour à tous,

Bienvenue sur XLD

Peux-tu essayer avec ceci :

Option Explicit

Sub Del_Lig()
Dim DerL&, Lig&
DerL = Feuil1.Range("D" & Rows.Count).End(xlUp).Row
For Lig = 2 To DerL
With Feuil1
If WorksheetFunction.Sum(.Range("D" & Lig), .Range("E" & Lig)) = 0 Then Rows(Lig).EntireRow.Delete
End With
Next Lig
End Sub

A+ à tous