Re : compter couleur différente du blanc
Hello, en modifiant ta fonction :
Function CoulFond(champ As Range) ', couleurFond)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex <> -4142 Then '= couleurFond Then
temp = temp + 1
End If
Next c
CoulFond = temp
End Function
Voir aussi ton classeur modifié
A+
Claudy