Option Explicit
Function SommeCoul(InputRange As Range, ColorRange As Range) As Double
Application.Volatile
Dim cl As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + cl.Value
Next cl
On Error GoTo 0
Set cl = Nothing
SommeCoul = TempSum
End Function
bonsoir a toutBonjour, job75, JCGL
si c'est seulement une vérification de la somme du chèque pour voir si elle existe, voir PJ avec MFC.
@+
Ouuups on c'est croisé......si cela correspond
Bonjour à tous,
Salut XHudi69,
Effectivement Gérard.
A++
A + à tous
bonjour a toutBonjour à tous,
xhudi69 : Ti était un grand Monsieur. Autant pour sa discrétion et sa gentillesse que par sa maîtrise d'XL. Il nous laisse quelques perles que nous pouvons exploiter.
A++
A + à tous