Compter les cellules colorées

[Eric]

Bonjour,
je viens d'essayer la methode d'un "post de Anne" ci dessous afin de compter le nombre de cellules de couleur.
Ca fonctionne mais il y a un probleme dans le rafraichissement, je suis obligé de mettre un espace dans la celllue pour que le compteur ce mette à jour.

Quelqu'un peut m'aider?

D'avance merci
Eric

Post de Anne:

tu mets ça dans une cellule :

=nb_couleur(plage;6)

cela additionnera les cellules dont la couleur est jaune (index 6)


et tu colle ça dans un module :

Function nb_couleur(x As Range, Index_couleur As Integer)
s = 0
For Each cell In x
If cell.Interior.ColorIndex = Index_couleur Then
s = s + 1
End If
Next
nb_couleur = s
End Function

 

[pat5]

Bonsoir
Si ça peut t'aider
Salut ;o)

 

[SEB60OISE]

Re : Compter les cellules colorées

Merci pour vos réponses mais quand je fais =nb_couleur(HC4:HL4;6), ça m'affiche #NOM?
et je ne sais pas ce que c'est qu'un module ? C'est une cellule du fichier ?

 

[SEB60OISE]

Re : Compter les cellules colorées

et quand j'essaye le fichier Somme couleurPV5 j'ai :
erreur d'execution '1004'
quand je clique sur somme fonds en couleur.

 

[phlaurent55]

Re : Compter les cellules colorées

Bonjour SEB,

Pour que tu puisses avoir la réponse attendue plus rapidement il vaudrait mieux créer un nouveau fil de discussion plutôt que de "squatter" un fil qui date depuis plus de 9 ans

Crée donc un nouveau fil de discussion et n'oublie pas de mettre ton fichier en pièce jointe

à+
Philippe

 

[SEB60OISE]

Re : Compter les cellules colorées

ok désolé je n'avais pas vu que j'étais sur un autre fil :
je continue sur
https://www.excel-downloads.com/thr...-ou-sans-mise-en-forme-conditionnelle.186207/
A+