Test couleur cellule après mise en forme conditionnelle

[fx83]

Bonjour à tous,

j'aimerai compter dans une plage de cellule C8:N29 le nombre de cellules ayant la couleur rouge. Cette couleur rouge est donné par une mise en forme conditionnelle.

J'ai essayé avec du VBA mais si les cellules de la plage ne sont pas colorées avec l'outil de remplissage, cela ne détecte pas les couleurs ....

Voici le code VBA utilisé:

Public Function NbColor(Plage As Range, vCellcolor As Range) As Byte
Dim vColorTest As Long
Dim Compteur As Long
Dim vColorCell As Range

Compteur = 0
vColorTest = vCellcolor.Interior.Color
For Each vColorCell In Plage
If vColorCell.Interior.Color = vColorTest Then
Compteur = Compteur + 1
End If
Next vColorCell

NbColor = Compteur
End Function

Je mets ensuite dans une cellule W2 la couleur que je souhaite testée.
Et dans une autre cellule la formule suivante: =NbColor(C8:N29;W2)

Auriez-vous une idée pour tester la couleur d'une cellule donnée par une mise en forme conditionnelle?

Merci.

 

[SergiO]

Re : Test couleur cellule après mise en forme conditionnelle

Bonjour fx83,

Si tu veux compter par VBA, il faut que tu utilises dans ton code la même formule que ta mise en forme conditionnelle.

Joins un exemple si tu as besoin d'aide pour cela.

@+

 

[pierrejean]

Re : Test couleur cellule après mise en forme conditionnelle

bonjour fx83

ce sujet est recurent et la reponse toujours la même:
utiliser la formulation de la MFC pour savoir si ta cellule doit etre rouge

c'est la seule solution (on peut si necessaire et par VBa aller pecher cette formulation mais si tu es l'auteur du fichier ....)


Arf

avais pas rafraichi

Salut Sergio

 

[fx83]

Re : Test couleur cellule après mise en forme conditionnelle

Oui j'ai entendu parler de la MFC vaguement en cherchant une solution à mon problème mais je ne sais pas ce que c'est ni comment l'appliquer a mon problème...

Sergio -> mes cellules ont 2 mises en forme conditionnelle qui sont les suivantes dans l'ordre:
Couleur jaune:

=ET($B$5>$R$9;$K11="";OU(O11<>"";P11<>"";Q11<>""))

Couleur rouge:

 =ET($B$5>$R$9;$K11="")

 

[Staple1600]

Re : Test couleur cellule après mise en forme conditionnelle

Bonjour



En VBA (anglophone, mais VBA est en anglais, donc nous sommes tous anglophone 😉)

voir =CountOfCF(A1:A10,1)

 

[fx83]

Re : Test couleur cellule après mise en forme conditionnelle

Merci pour vos réponses.

Staple -> merci pour ce lien intéressant... seulement, que c'est compliqué ...!!!! Il faut que je finisse le fichier pour maintenant, un petit coup de main pls ?!

 

[pierrejean]

Re : Test couleur cellule après mise en forme conditionnelle

bonjour a tous

Atester:

Public Function NbColor(Plage As Range, vCellcolor As Range) As Byte
Dim vColorTest As Long
Dim Compteur As Long
Dim vColorCell As Range
 
Compteur = 0
vColorTest = vCellcolor.Interior.Color
For Each vColorCell In Plage
If range("B5")>range("R9") and range("K11")="" then
Compteur = Compteur + 1
End If
Next vColorCell
 
NbColor = Compteur
End Function

valable si le 11 de K11 n'evolue pas sinon il faudra le parametrer en fonction de l'adresse de vCellcolor

 

[fx83]

Re : Test couleur cellule après mise en forme conditionnelle

Merci pour votre aide Pierre jean, seulement il s'agit ma demande concerne "une plage de cellule C8:N29".

J'ai essayé avec le lien fourni par Staple...
J'ai donc fait un copier-collier des fonctions de "ActiveCondition" , de "GetStrippedValue" puis de "CountOfCF"...
Enfin dans une cellule de ma feuille, j'ai mis la formule suivante: =CountOfCF(C8:N29;2)

Hors le résultat est: #VALEUR!

Je ne sais pas pourquoi ....

 

[Staple1600]

Re : Test couleur cellule après mise en forme conditionnelle

Re

fichier joint


mais je ne comprends pas pourquoi cela ne fonctionne pas
edit (on est au moins deux 🙁 )

Si quelqu'un peut jeter un coup d'oeil.

Merci d'avance


(code vba issu du lien de mon précédent message)

 

[fx83]

Re : Test couleur cellule après mise en forme conditionnelle

Afin de vous faire une meilleure idée de ma demande, je vous joints le fichier concerné...

Le fichier faisant 400Ko, je ne peux pas le joindre, je vous mets donc un lien ou le télécharger gratuitement: Ce lien n'existe plus

 

[Staple1600]

Re : Test couleur cellule après mise en forme conditionnelle

Ton lien ne fonctionne pas

 

[fx83]

Re : Test couleur cellule après mise en forme conditionnelle

Ce lien n'existe plus

Lien corrigé et mis à jour.

 

[Staple1600]

Re : Test couleur cellule après mise en forme conditionnelle

Re


Chez moi, les liens ne fonctionnent pas

 

[pierrejean]

Re : Test couleur cellule après mise en forme conditionnelle

re

Staple

pas fait l'effort de controler le flot de Vba que tu nous propose

par contre j'ai commis une fonction basée sur les expressions de tes MFC

Si fx83 faisait l'effort de nous transmetre un petit fichier exemple (dénué de donnéeés confidentielles on viendrait plus vite a bout de son problème)

 

[Staple1600]

Re : Test couleur cellule après mise en forme conditionnelle

Bonsoir


->pierrejean:

• 1) mes respects
• 2) je bloque sur ta macro ici dans ce post: ici

J'ai pris le temps de lire le code VBA de cpearson

mais je ne comprends pas pourquoi il ne fonctionne pas.

Avis aux amteurs.