valeur cellule en fonction d'une couleur

Staple1600

XLDnaute Barbatruc

• 30 Mai 2014

• #2

Re : valeur cellule en fonction d'une couleur

Bonjour à tous

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

Code:

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 30 Mai 2014

• #3

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 ?

 

Dernière édition: 30 Mai 2014

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Mai 2014

• #4

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 😉 )

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 30 Mai 2014

• #5

Re : valeur cellule en fonction d'une couleur

Pièce jointe
Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Mai 2014

• #6

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)

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 30 Mai 2014

• #7

Re : valeur cellule en fonction d'une couleur

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Mai 2014

• #8

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" 😉

Cliquez pour agrandir...

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

Code:

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

Code:

=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)

 

Dernière édition: 30 Mai 2014

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 30 Mai 2014

• #9

Re : valeur cellule en fonction d'une couleur

elle Fonctionne
Merci a vous

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 30 Mai 2014

• #10

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 ?

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 30 Mai 2014

• #11

Re : valeur cellule en fonction d'une couleur

non j'arrive pas dsl tsss

 

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 30 Mai 2014

• #12

Re : valeur cellule en fonction d'une couleur

la cellule a1 rien

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Mai 2014

• #13

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

Cliquez pour agrandir...

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)

 

Dernière édition: 30 Mai 2014

Vote positif 0 Vote négatif

gothc

XLDnaute Occasionnel

• 30 Mai 2014

• #14

Re : valeur cellule en fonction d'une couleur

ok je contrôle mon fichier Merci

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 30 Mai 2014

• #15

Re : valeur cellule en fonction d'une couleur

Re,

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

 

Pièces jointes

• couleur gothc.xlsx

  9.4 KB · Affichages: 25

Vote positif 0 Vote négatif