bonsoir à tous,
j'ai eu beau chercher je n'ai pas trouvé mon bonheur , aussi je vous expose mon problème.
Je souhaite compter automatiquement des cellules colorées par ligne, quelque soit la couleur et quelque soit le texte qu’il y a à l’intérieur. j'ai pour l'instant 3 couleurs. s'il est possible de prévoir quelques couleurs de plus.
Function SommeCouleurFondRef(champ As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex >= 1 Then
temp = temp + 1
End If
Next c
SommeCouleurFondRef = temp
End Function