couleur de cellule ?

et la canadienne (dont j'ai zoublié le prénom mais pas le nom : V ;-D)

bonsour® nadia.b

Je donne un indice.
C'est un des cinq frères V

es-tu sûre Nadia ??? que l'on parle des frères "Cinq" qui à ma
connaissance
sont trois ;o)))
car si je ne me trompe "le" quatrième est une soeur canadienne !!!!!

;o)))
@+

Nadia {=(V);dans quelques années}
;-))

3...
4...
5... maintenant !?

p' tain... :-7
t'étais au courant toi Alain ?


ChrisV


"Modeste" <nomail@nomail.net> a écrit dans le message de news:
etfdXFNgFHA.3936@tk2msftngp13.phx.gbl...

bonsour® nadia.b

Je donne un indice.
C'est un des cinq frères V

es-tu sûre Nadia ??? que l'on parle des frères "Cinq" qui à ma
connaissance
sont trois ;o)))
car si je ne me trompe "le" quatrième est une soeur canadienne !!!!!

;o)))
@+

Bonjoir(c) leo

si c'est pas du super superfétatoire ça, je ne m'y connais pas
;-))))))))))

Et la MFEC, c'est pour les chiens ? ;-)))

JièL AMIS

Anti
Macros
Inutilement
Superfétatoire

Le 04/07/2005 22:30 vous avez écrit ceci :

Bonsoir,
J'avais fait la macro ci dessous qui donne une couleur de fond et de
texte à

la case du dessous, en fonction du nombre de la cellule.

Il suffit d'adapter. ( modifier la zone de travail etc... )

Private Sub Worksheet_Change(ByVal plage As Range)
'
Dim cell As Object ' Cellule
Dim zone As Range ' zone de travail
'
Application.ScreenUpdating = False ' suppression rafraichissement de
l'écran

pendant l'execution de la macro
'
Set zone = Range("B2:J2,b6:J6,B10:J10,B14:J14") ' Selection de la zone
de

travail
'
If Not (Intersect(plage, zone) Is Nothing) Then ' si la plage est dans
la

zone
For Each cell In zone
Select Case cell.Value
Case "":
cell.Offset(1, 0).Interior.ColorIndex = 0
cell.Offset(1, 0).Font.ColorIndex = 1
Case 1:
cell.Offset(1, 0).Interior.ColorIndex = 3
cell.Offset(1, 0).Font.ColorIndex = 8
Case 2:
cell.Offset(1, 0).Interior.ColorIndex = 4
cell.Offset(1, 0).Font.ColorIndex = 3
Case 3:
cell.Offset(1, 0).Interior.ColorIndex = 5
cell.Offset(1, 0).Font.ColorIndex = 3
Case 4:
cell.Offset(1, 0).Interior.ColorIndex = 6
cell.Offset(1, 0).Font.ColorIndex = 3
Case 5:
cell.Offset(1, 0).Interior.ColorIndex = 7
cell.Offset(1, 0).Font.ColorIndex = 3
Case 6:
cell.Offset(1, 0).Interior.ColorIndex = 8
cell.Offset(1, 0).Font.ColorIndex = 3
Case 7:
cell.Offset(1, 0).Interior.ColorIndex = 9
cell.Offset(1, 0).Font.ColorIndex = 3
Case Else:
cell.Interior.ColorIndex = 0
cell.Font.ColorIndex = 0
End Select
Next cell
End If
End Sub


--


Amicalement,
Leo


"sycora" <sycora@wanadoo.fr> a écrit dans le message de news:
42c970f8$0$3139$8fcfb975@news.wanadoo.fr...

Bonsoir
Est il possible de donner automatiquement une couleur à une cellule par
rapport au nombre de la cellule voisine ? je m'explique !
Je voudrais que "A2" soit bleu lorsque le nombre dans "A1" soit compris
entre 0 et 80, soit verte entre 80 et 130, et rouge entre 130 et plus
Merci aux spécialistes

bonsour® nadia.b

Je donne un indice.
C'est un des cinq frères V

es-tu sûre Nadia ??? que l'on parle des frères "Cinq" qui à ma
connaissance
sont trois ;o)))
car si je ne me trompe "le" quatrième est une soeur canadienne !!!!!

;o)))
@+

Bonne nuit à tous

Je savais bien que si je m'accrochais, j'aurais dans quelques années le
droit à

Nadia {=(V);dans quelques années}
;-))

Bonne nuit à tous
Nadia


"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de
news:unx5MgOgFHA.3692@TK2MSFTNGP09.phx.gbl...

3...
4...
5... maintenant !?

p' tain... :-7
t'étais au courant toi Alain ?


ChrisV


"Modeste" <nomail@nomail.net> a écrit dans le message de news:
etfdXFNgFHA.3936@tk2msftngp13.phx.gbl...

bonsour® nadia.b

Je donne un indice.
C'est un des cinq frères V

es-tu sûre Nadia ??? que l'on parle des frères "Cinq" qui à ma
connaissance
sont trois ;o)))
car si je ne me trompe "le" quatrième est une soeur canadienne !!!!!

;o)))
@+

t'étais au courant toi Alain ?

format >Motif > bleu > Ok
Condition 2 > la formule est >

format >Motif > vert > Ok
Condition 3 > la formule est >

format >Motif > rouge > Ok

Pour répondre à la question :

Sélection de A2 > Format > Mise en forme conditionnelle >

Condition 1 > la formule est >
=ET(A1<>"";A1>=0;A1<80)

format >Motif > bleu > Ok
Condition 2 > la formule est >

=ET(A1>€;A1<130)

format >Motif > vert > Ok
Condition 3 > la formule est >

¡>130

format >Motif > rouge > Ok

AV

t'étais au courant toi Alain ?

Ben pas du tout !
C'est quoi cette affaire ?
Famille recomposée ?

AV