Re : =sum_font_color(D2:M2;3) ne fonctionne pas
Bonsoir Jeanpierre
Autant pour moi, je ne savais pas qu'il y avait du code VBA derrière.
OK j'ai trouvé. voici le code à rajouter dans un module:
Function sum_font_color(plage As Range, couleur As Integer) As Double
Application.Volatile
Dim gw_cel As Range, nb As Double
nb = 0
For Each gw_cel In plage
If gw_cel.Font.ColorIndex = couleur Then nb = nb + gw_cel.Value
Next
sum_font_color = nb
End Function
Merci Pierrejean Bon Weekend
@+