Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

[Shpountz]

Bonjour à tous

Je suis néophyte et j'ai besoin de vos lumières.
Je voudrais savoir si il est possible de donner une valeur "vrai" (ou 1) après une recherche dans une plage de cellules en couleur.

Comme c'est difficilement explicable je joint un fichier.

Il s'agit de remplir directement le tableau en fonction des résultats.
Par exemple si cellules VERT et Cellule ROUGE et Cellule Jaune alors "vrai" (ou 1)

En descendant dans la colonne A on trouve des exemples....

Bon.... J'espère que j'ai été assez explicite bien que j'ai du mal a me comprendre moi même...

Merci à tous pour votre aide
François

 

[Hieu]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Salut,

J'ai créé une fonction nommée NbreCellulesCouleur pour faire le compte :

Function NbreCellulesCouleur(tableau As Range, equi As Range)
couleur = equi.Interior.Color
For Each c In tableau
    If c.Interior.Color = couleur Then NbreCellulesCouleur = NbreCellulesCouleur + 1
Next c
End Function

++
Hieu

 

[Shpountz]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Bonjour et merci

Mais je ne comprends pas comment je la lance...
Puis Je m'aperçois que je n'ai pas été assez précis.
En fait la valeur "vrai" (ou 1) doit apparaitre dans 3 cas différents.

1/ si ROUGE/VERT/JAUNE
2/ si ROUGE/VERT/JAUNE/BLEU
3/ si ROUGE/VERT/JAUNE/BLEU/VIOLET

Bien entendu dans des colonnes différentes

En tout cas un grand merci pour cette première réponse

 

[Hieu]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Salut,
La fonction que je t'ai envoyé doit être écrite dans un module. Ensuite, il n'y a rien à lancer ; j'ai vu que tu avais écrit cette fonction, tout à droite de ton fichier excel, mais qui ne donnait pas de résultat. Du coup, je l'ai créé pour que tes formules sortent des résultats.
Il faudra quand meme enregistrer ton fichier sous .xlsm . Je ne t'ai pas envoyé le fichier car il dépasse la limite possible sur le forum. Si c est pas clair, je le zipperai.

 

[Shpountz]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Salut Hieu

Merci de t'occuper de mon problème.
En fait ma formule marche normalement, mais la n'est pas le problème

Je joins une photo qui sera peut être plus explicative de mon souhait.



Merci d'avance
François

 

[Hieu]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Re,

J'ai supprimé quelques lignes, pour que le fichier soit de taille raisonnable pour le forum.

J'ai créé une fonction PlageCouleur dans laquelle tu donnes une plage de données et qui te renvoie "vrai", si dans ta plage, tu as les couleurs rouge, vert et jaune. Un exemple de l'utilisation de la fonction en cellule ab12.

Est-ce que c'est ce que tu cherches ??

Function PlageCouleur(tableau As Range)
' rouge = 255, vert = 5287936, jaune = 65535, bleu = 15773696, violet = 10498160
For Each c In tableau
    If c.Interior.Color = 255 Then rouge = True
    If c.Interior.Color = 5287936 Then vert = True
    If c.Interior.Color = 65535 Then jaune = True
    If c.Interior.Color = 15773696 Then bleu = True
    If c.Interior.Color = 10498160 Then violet = True
Next c
    If rouge = True And vert = True And jaune = True Then PlageCouleur = True
End Function

++

 

[Shpountz]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Salut Hieu

Je vois que tu t'approches... Bien plus vite que moi !
Le seul souci c'est que je dois prendre en compte le resultat par rapport au colonnes A/B/C etc...



ET le résultat devrait ce calculer sur toutes les colonnes...

Je sais... Je suis pénible

Merci d'avance
François

 

[Hieu]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Je ne comprends pas ce qui fait que ton résultat va dans telle ou telle colonne ??

Peut être un exemple un peu plus concret ?

 

[Shpountz]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Salut Hieu

Est ce que cette image t'aide ?



Amicalement
François

 

[Hieu]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

En sélectionnant les plages ??
En pièce jointe, mon fichier non modifiée !
J'ai juste sélectionné la plage à prendre en compte, en fonction.

 

[Shpountz]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Salut Hieu

Ca m'a l'air d'être parfait !
Peut on remplacer "vrai" par "1" ?

Merci beaucoup
Amicalement
François

 

[Shpountz]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Et j'ai oublié mais le tableau continu de la sorte avec

Rouge/Vert/Jaune (c'est fait)
Rouge/Vert/Jaune/Bleu
Rouge/Vert/Jaune/Bleu/Violet

 

[Hieu]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Dans la fonction, il faut remplacer PlageCouleur=True par PlageCouleur=1. Et normalement, ça marche !
Pour les autres couleurs, je te propose de regarder la fonction et, éventuellement creer deux nouvelles fonctions de la meme maniere.
C'est en forgeant, que l'on devient forgeron

 

[Shpountz]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Un grand merci Hieu ou devrais je dire Dieu !

 

[Hieu]

Re : Valeur "vrai" (ou 1) sur recherche dans une plage de cellule en couleur

Après, si tu galères, tu reviens vers moi. sinon, marque ton post comme résolu.

++


PS : J'ai déjà eu cette blague toute mon enfance ^^