Bonjour à tous ,
Une proposition avec une fonction personnalisée VBA SommeNeg. Voir formule en F13.
Le code dans module1 :
Function SommeNeg(xPlage As Range) As Currency
Dim xrg As Range, x As Range, v$, s, y, res As Currency
Set x = Intersect(xPlage, xPlage.Parent.UsedRange)
For Each x In xPlage
v = Replace(Mid(Trim(x.Formula), 2), ",", ".")
If v <> "" Then
s = Split(Replace(Replace(v, "-", "|-"), "+", "|+"), "|")
For Each y In s: res = res + IIf(Val(y) < 0, Val(y), 0): Next
End If
SommeNeg = res
Next x
End Function