Sum if color

Bonjour à tous,

Ma version d'XLS est en anglais

J'ai dû merder quelque part.

J'ai un tout petit tableau avec très peu de lignes et colonnes. Il y a certaines cellules qui sont en orange.

Je souhaite que les cellules qui sont en couleur orange s'additionnent.

Ce que j'ai fait : Un module dans VBA. Code ci-dessous.

Puis je suis retournée sur ma feuille et ai mis : DANSUNECELLULEVIDE=SUM_IF_COLOR(B2:J4) ==> qui correspond à mon tableau avec des valeurs. (Petit tableau). Le Problème est que j'ai #Value!

Elle est ou mon erreur please?

Merci

LE CODE VBA

Function SUM_IF_COLOR(PlageSum As Range, PlageCouleur As Range) As Variant

Dim Cel As Range

Dim Som As Double

If PlageCouleur.Cells.Count > 1 Then

SUM_IF_COLOR = CVErr(xlErrValue)

Exit Function

End If

For Each Cel In PlageSum

If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Sum = Sum + Cel

Next

SUM_IF_COLOR = Sum

End Function

Bonsoir,

Ta fonction a 2 arguments et tu n'en mets qu'un. Le 2e doit référencer une cellule de la couleur que tu veux additionner.

Cordialement.