Re: Condition sur les couleurs dans les cellules
bonjour Charles,
si les couleurs proviennent de la MEFC (mise en forme conditionnel), il faut reprendre les même condition dans la formule.
s'il proviennent de la barre d'outils "Mise en forme", tu pourrais utiliser une fonction personnalisé.
Function Comptecouleur(plage As Range, couleur As Integer)
Application.Volatile
For Each c In plage
If c.Font.ColorIndex = couleur Then
Comptecouleur = Comptecouleur + 1
End If
Next
End Function
isabelle
|