XL 2019 Nombre de cellules colorées

[AF291]

Bonjour ,
j’ai un tableau ayant 5 zones correspondants aux jours de la semaine dont je souhaite ,pour chaque jours, connaitre le nombres de cellules de chaque couleurs dans un petit récap.
Merci d’avance ,
Franck .

 

[sylvanu]

Bonjour AF291,
Peut être avec la fonction perso :

Function Couleur(N As Range, C As Range)
    For Each cell In N
        If cell.Interior.Color = C.Interior.Color Then Couleur = Couleur + 1
    Next cell
End Function

La syntaxe est =Couleur(Plage, Cellule) avec Plage est la plage à analyser, Cellule la cellule qui est de la bonne couleur.
Cependant cette fonction ne compte pas les cellules colorées par MFC.

 

[JHA]

Bonjour à tous,

A essayer

Edit: Bonjour Sylvanu 🙂 , j'étais dans la recherche d'une fonction personnalisée et je n'avais pas rafraîchi😡.


JHA

 

[AF291]

Bonjour à tous,

A essayer

Edit: Bonjour Sylvanu 🙂 , j'étais dans la recherche d'une fonction personnalisée et je n'avais pas rafraîchi😡.


JHA

Merci pour cette solution rapide et qui répond a mes attentes ,super !!
Franck