Microsoft 365 Comptage de cellule...

[WEIDER]

Bonjour à tous,

Pouvez-vous m'aider à solution mon (petit) problème de comptage de cellule ?
Tout est dit dans mon fichier joint.

D'avance un grand merci pour vos réponses.

Amicalement.

 

[JHA]

Bonjour à tous,

Un essai par filtrage et sous.total(), les données sont en mode tableau.

JHA

 

[Eric C]

Bonjour le forum
Bonjour WEIDER, bonjour Jacky

Trouvé cette fonction de notre ami eriiic (que je salue) :

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

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

 

[WEIDER]

Merci pour vos réponses à tous les deux !

Excellente journée !