SOMMEPROD() et COULEUR()

[alb05]

bonjour
je n'arrive pas à faire fonctionner SOMMEPROD() et une fonction personnalisée permettant de tester la couleur d'une cellule.
ci joint le jeu d'essai
merci

 

[BOISGONTIER]

Re : SOMMEPROD() et COULEUR()

Bonjour,

=SOMMEPROD((couleurfond(B2:B10)=3)*(B2:B10="chat"))

Fonction perso matricielle:

Function couleurFond(champ As Range)
  Application.Volatile
  Dim temp()
  ReDim temp(1 To champ.Count)
  For i = 1 To champ.Count
     temp(i) = champ(i).Interior.ColorIndex
  Next i
  couleurFond = Application.Transpose(temp)
End Function

Formules Matricielles

JB