Bonjour,
avec une fonction personnalisée :
Function textSansCouleur(plage As Range) As Long
Dim c As Range
Application.Volatile
For Each c In plage
If c.Value2 <> "" Then textSansCouleur = textSansCouleur - (c.Interior.ColorIndex = xlNone)
Next c
End Function
Ex sur la feuille :
=textSansCouleur(D6:K12)
Un changement de couleur n'est pas un événement détectable par excel.
Si changement faire F9 pour mettre à jour le résultat. Une validation de cellule (ou saisie) met également à jour.
Je détecte les réellement sans couleur, blanc est une couleur.
eric