=sum_font_color(D2:M2;3) ne fonctionne pas

Re : =sum_font_color(D2:M2;3) ne fonctionne pas

Bonsoir Boby,

=sum_font_color(..;..;..) est une fonction, donc codée en VBA...

Il faudrait voir le code car je ne comprends pas pourquoi elle ne fonctionne pas sous 2007 (quelques termes à modifier peut-être).

A te lire.

Jean-Pierre

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
@+