Bonjour,
Proposition de fonction personnalisée en vba à mettre dans un module standard (Alt+F11 pour ouvrir VBE).
Function moyenneCouleur(plage As Range, couleur As Range) As Double
Dim coul As Long, c As Range, nb As Long, total As Double
coul = couleur.Interior.ColorIndex
For Each c In plage
If c.Interior.ColorIndex = coul Then
nb = nb + 1
total = total + c
End If
Next c
moyenneCouleur = total / nb
End Function
Syntaxe :
=moyenneCouleur($C$3:$C$20;E3)
$C$3:$C$20 : plage dont on veut la moyenne
E3 : cellule de la couleur dont on veut la moyenne
eric