valeur cellule en fonction d'une couleur

[gothc]

Bonjour le forum
je cherche une formule
si la cellule a1 est noir a2 =2 si a1 est blanc a2=1

merci de votre aide

 

[Staple1600]

Re : valeur cellule en fonction d'une couleur

Bonjour à tous

Question succincte, réponse succincte 😉
En A2
=SI(ESTBLANC(A1);1;2)

Function ESTBLANC(ByRef r As Range) As Boolean
ESTBLANC = r.Font.ColorIndex = 2
End Function

 

[Victor21]

Re : valeur cellule en fonction d'une couleur

Bonjour, gothc.

Deux questions :
- pourquoi les cellules sont elles noires ou blanches ?
- L'extrait représentatif de votre fichier Excel, nous permettant de voir sa structure, et de vous proposer des réponses adaptées, vous savez, celui qui est sur votre disques, ce fichier donc, on doit tenter de le reconstituer, ou bien allez-vous éditer votre premier message pour nous le soumettre ?

Edit : Alors, JM, on se lâche ?

 

[Staple1600]

Re : valeur cellule en fonction d'une couleur

Bonsoir Victor21

Je me lâche pas, je m'ennuie devant mon écran en écoutant des billevesées à la radio 😉
Et j'attends juste le : "Merci mais cela ne fonctionne pas" 😉

Sinon je plussoie à tout ce que tu viens de dire
(et tu m'épargnes de joindre ma petite image pour dire la même chose 😉 )

 

[gothc]

Re : valeur cellule en fonction d'une couleur

Pièce jointe
Merci

 

[Staple1600]

Re : valeur cellule en fonction d'une couleur

Re

gothc
Merci pour la PJ.
As-tu essayé ma fonction ESTBLANC
(voir mon précédent message)

 

[gothc]

Re : valeur cellule en fonction d'une couleur

Oui mais elle ne fonctionne pas sur mon fichier
Merci pour votre Aide

 

[Staple1600]

Re : valeur cellule en fonction d'une couleur

Re


Victor21
Je n'ai pas attendu longtemps 😉

Et j'attends juste le : "Merci mais cela ne fonctionne pas" 😉

gothc
Et pourquoi elle ne fonctionne pas (si tel est vraiment le cas) ?
Parce qu'il manquait des précisions (que la PJ a désormais comblé...🙄)

Donc essaies avec cette version sur ta PJ

Function ESTBLANC(ByRef r As Range, Optional TypeCouleur As String = "FOND") As Boolean
Select Case TypeCouleur
Case Is = "FOND"
ESTBLANC = r.Interior.ColorIndex = 2
Case Is = "POLICE"
ESTBLANC = r.Font.ColorIndex = 2
End Select
End Function

et cette formule

=SI(ESTBLANC(A2;"FOND");1;2)

Cela fonctionne non ?

Formule que tu peux aussi écrire
=SI(ESTBLANC(A2);1;2)

et qui peut aussi servir si tu testes la couleur de police en l'écrivant comme ceci
=SI(ESTBLANC(A2;"POLICE");1;2)

 

[gothc]

Re : valeur cellule en fonction d'une couleur

elle Fonctionne
Merci a vous

 

[Victor21]

Re : valeur cellule en fonction d'une couleur

Re,

JM 🙂

gothc : Merci pour votre fichier (qui répond à ma deuxième question) 🙂
La première ne semblant pas avoir de réponse, pourriez-vous nous dire ce qu'est sensée contenir la cellule A1 ?

 

[gothc]

Re : valeur cellule en fonction d'une couleur

non j'arrive pas dsl tsss

 

[gothc]

Re : valeur cellule en fonction d'une couleur

la cellule a1 rien

 

[Staple1600]

Re : valeur cellule en fonction d'une couleur

re

gothc
j'ai testé sur ton fichier et cela fonctionne
(la formule est à mettre en B2, comme tu l'indiques toi-même
ci dessous ce que'onpeut lire dans ton fichier exempel

B2 = 2 si la cellule A2 est noir
B2=1 Si la cellule A2 est Blanche

PS: Tu utilises bien la seconde version de ESTBLANC (voir mon précédent message)

Ça fonctionne non ? (En tout cas chez moi, c'est le cas)

 

[gothc]

Re : valeur cellule en fonction d'une couleur

ok je contrôle mon fichier Merci

 

[Victor21]

Re : valeur cellule en fonction d'une couleur

Re,

Si rien dans les cellules colorées, voyez le fichier joint.