couleur de police

bonjour

si tu ne veux pas utiliser
ni le format de cellule
ni la mfc

il te reste le vba

c'est ce que tu veux ?



Cynoq a formulé la demande :

Bonjour,
Je débute dans excel et je voudrai savoir s'il est possible d'affecter une couleur à du texte ou des valeurs sans passer par le
format de cellule ou par la mise en forme conditionnelle.

J'ai une formule =SI(A2>;2;SI(A2>;1;0). Suivant le résultat à afficher, je voudrai une couleur différente.

Je n'ai pas trouvé de solution dans l'aide Excel.
Si quelqu'un pouvait m'aider.
Merci d'avance.

Cynoq

Je débute dans excel ...

J'ai une formule =SI(A2>;2;SI(A2>;1;0). Suivant le résultat à
afficher, je voudrai une couleur différente.

Je n'ai pas trouvé de solution dans l'aide Excel.

C'est exactement ce que peut faire la Mise En Forme Conditionnelle (MEFC) !

AV

C'est exactement ce que peut faire la Mise En Forme Conditionnelle (MEFC)
!

Oui, je sais. Mais je suis limité à trois mises en forme conditionnelle. Ma
formule contient 8 résultats possibles. Comment affecter une couleur par
résultat ?

Merci tout de même.

Mais je suis limité à trois mises en forme conditionnelle.

Oui et non car en combinant des formats....mais bon...
Pose toi d'abord la bonne question de savoir si tu as besoin de "barbouiller"
autant.
Car la "mauvaise question" qui ne tardera pas à suivre sera :
" Comment dénombrer les cellules rouges" ?
On peut en ayant recours à vba, tranformer ton tableau en oeuvre pointilliste
mais bon.... bonjour l'allourdissement des calculs et la très grande incertitude
des réultats...
A toi de réfléchir et de voir...

AV

Bonjour

essaye ceci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target.Cells, Range("Zn")) Is Nothing Then
For Each c In Target
Select Case c.Value
Case 1 To 3: c.Interior.ColorIndex = 38
Case 4 To 6: c.Interior.ColorIndex = 40
Case 7 To 9: c.Interior.ColorIndex = 36
Case 10 To 12: c.Interior.ColorIndex = 35
Case 13 To 15: c.Interior.ColorIndex = 34
Case 16 To 18: c.Interior.ColorIndex = 37
Case Is >= 19: c.Interior.ColorIndex = 3

Case Else: c.Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub

Salutations

Gilbert

"Cynoq" <poste1.cybercentre@wanadoo.fr> a écrit dans le message de news:
debvpv$m0n$1@s1.news.oleane.net...

C'est exactement ce que peut faire la Mise En Forme Conditionnelle (MEFC)
!

Oui, je sais. Mais je suis limité à trois mises en forme conditionnelle.
Ma formule contient 8 résultats possibles. Comment affecter une couleur
par résultat ?

Merci tout de même.