Trouvé cette fonction de notre ami eriiic (que je salue) :
Avec une fonction personnalisée :
VB:
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
Et sur la feuille en C1:
=textSansCouleur(A1:A1000) 'Perso : Tu parles d'infini mais la limite de lignes (XL2010) est de 1 048 576), ce qui en C1 serait =textSansCouleur(A:A) mais très long à la saisie donc je pense qu'il faut être raisonnable pour ne pas alourdir le temps d'exécution.
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.
Bonne journée
@+ Eric c