Mise en forme conditionnelle de + de 3 Critères

bizarre!
il y a là:

http://www.excelabo.net/xl/conditions.php#7formats


et à bien d'autres endroits

--
Serge CENCI
sergiofranceENLEVER@wanadoo.fr
MVP Microsoft WINDOWS
NB - adresse : enlever ENLEVER
"matsan" <matsan@discussions.microsoft.com> a écrit dans le message de news:
17FB00AC-27DB-4CD8-B943-C32931A01F32@microsoft.com...

Bonjour à tous,

Je cherche à faire une mise en forme conditionnelle de plus de 3 critères
(Ex: A1<1, bleu, A1>1, rouge, A1>b1, vert et A1<b8, orange)

J'ai visité pas mal de sites et je n'ai rien trouvé qui répond à ce que je
cherche.

Si vous pouvez me donner une astuce (Via macro ou formule, je suis
preneur).

D'avance merci

Matsan

Bonjour,

(Ex: A1<1, bleu, A1>1, rouge, A1>b1, vert et A1<b8, orange)

Sous réserve que la couleur de la première condition remplie soit accepter.
Ceci:
'--------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case [A1]
Case Is > 1
[A1].Interior.ColorIndex = 3
Case Is < 1
[A1].Interior.ColorIndex = 33
Case Is > [b1]
[A1].Interior.ColorIndex = 4
Case Is < [b8]
[A1].Interior.ColorIndex = 44
Case Else
[A1].Interior.ColorIndex = xlNone
End Select
End Sub
'----------
Salutations
JJ

"matsan" <matsan@discussions.microsoft.com> a écrit dans le message de
news:17FB00AC-27DB-4CD8-B943-C32931A01F32@microsoft.com...

Bonjour à tous,

Je cherche à faire une mise en forme conditionnelle de plus de 3 critères
(Ex: A1<1, bleu, A1>1, rouge, A1>b1, vert et A1<b8, orange)

J'ai visité pas mal de sites et je n'ai rien trouvé qui répond à ce que je
cherche.

Si vous pouvez me donner une astuce (Via macro ou formule, je suis
preneur).

D'avance merci

Matsan

Merci

Je teste dès que possible.

Bonjour,

(Ex: A1<1, bleu, A1>1, rouge, A1>b1, vert et A1<b8, orange)

Sous réserve que la couleur de la première condition remplie soit accepter.
Ceci:
'--------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case [A1]
Case Is > 1
[A1].Interior.ColorIndex = 3
Case Is < 1
[A1].Interior.ColorIndex = 33
Case Is > [b1]
[A1].Interior.ColorIndex = 4
Case Is < [b8]
[A1].Interior.ColorIndex = 44
Case Else
[A1].Interior.ColorIndex = xlNone
End Select
End Sub
'----------
Salutations
JJ

"matsan" <matsan@discussions.microsoft.com> a écrit dans le message de
news:17FB00AC-27DB-4CD8-B943-C32931A01F32@microsoft.com...

Bonjour à tous,

Je cherche à faire une mise en forme conditionnelle de plus de 3 critères
(Ex: A1<1, bleu, A1>1, rouge, A1>b1, vert et A1<b8, orange)

J'ai visité pas mal de sites et je n'ai rien trouvé qui répond à ce que je
cherche.

Si vous pouvez me donner une astuce (Via macro ou formule, je suis
preneur).

D'avance merci

Matsan