VBA soustraction si condition (avec valeur cell décalée)

Bonjour à tous,

Voilà je m'explique. Je souhaiterai soustraire cumulativement des montants à un solde en fonction d'une date (ici en jour). J'ai pensé à :

Sub test()

Dim Y As Range
Dim cell As Range

Set Y = Range("I6:I48")
'ou Set Y = Sheets("onglet").Range("selection")

For Each cell In Y

If cell.Value > Range("O1").Value Then

Range("N4").Select
'ActiveCell.FormulaR1C1 = "=R[-2]C-OFFSET(R[2]C[-5],0,-4)"
ActiveCell.FormulaR1C1 = "=R[-2]C-OFFSET(R[cell]C[cell],0,-4)"

End If
Next
'ou next cell
End Sub

Je souhaite que cela soit : N2 - (la valeur décalée de la cellule si condition remplie). Par exemple, aujourd'hui nous sommes le 10, donc logiquement seule la ligne 30 devrait être soustraite du solde (500) donc 500 - 28.60 = 471.40 en N4.

une idée ? le fichier et le code sont en copie.

merci :)

et une bonne rentrée à tous,

Bonjour,

Je ne sais pas quelle est la finalité et il doit sûrement y avoir une solution.

Mais, parfois, il vaut mieux aller au plus simple. Pour traiter les questions de solde, en général, on a 3 colonnes : les débits, les crédits et les soldes.

Solde = Solde j-1 + Credit j - Debit j

Ensuite, vous pouvez facilement reprendre le solde en N2 :

solde = Solde n°1 + total credits - total debit

Cordialement,