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 !