Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel couleur de cellule ?

couleur de cellule ?

20 réponses
Avatar
sycora
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Modeste
Bonsour®
sycora wrote:
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


voir du coté de Format Mise en forme conditionnelle (Excel 2000 et +)

Avatar
nadia.b
Bonsoir,
j'ai reçu d'un puriste MPFE, un lien permettant de voir ce que l'on peut
faire avec les MFC.
http://www.excelabo.net/moteurs/compteclic.php?nom=av-mefc
Salutations
Nadia

"Modeste" a écrit dans le message de
news:%23%
Bonsour®
sycora wrote:
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


voir du coté de Format Mise en forme conditionnelle (Excel 2000 et +)





Avatar
Jacquouille
On veut des noms ! -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"nadia.b" a écrit dans le message de news:

Bonsoir,
j'ai reçu d'un puriste MPFE, un lien permettant de voir ce que l'on peut
faire avec les MFC.
http://www.excelabo.net/moteurs/compteclic.php?nom=av-mefc
Salutations
Nadia

"Modeste" a écrit dans le message de
news:%23%
Bonsour®
sycora wrote:
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


voir du coté de Format Mise en forme conditionnelle (Excel 2000 et +)









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

;-)))))


"Jacquouille" a écrit dans le message de
news:
On veut des noms ! -)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"nadia.b" a écrit dans le message de news:

Bonsoir,
j'ai reçu d'un puriste MPFE, un lien permettant de voir ce que l'on peut
faire avec les MFC.
http://www.excelabo.net/moteurs/compteclic.php?nom=av-mefc
Salutations
Nadia

"Modeste" a écrit dans le message de
news:%23%
Bonsour®
sycora wrote:
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


voir du coté de Format Mise en forme conditionnelle (Excel 2000 et +)













Avatar
Modeste
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)))
@+

Avatar
nadia.b
Oui oui,
car selon un autre poste (auquel tu as aussi participé)
il y avait un texte de ..... (bah je n'ose dire de qui vient le texte)
;-)))))))

;o)))
Contredire(?) le prof....
tu vois Nadia ?? fallait attendre un peu...
et encore il n'y a qu'un "Frere Cinq" qui est intervenu ;o)))

pfff... comme il dit : fastoche !!!


et j'avais signé en ces temps incertains
comme ceci

Je garde espoir.
Nadia {=(V);dans quelques années}




"Modeste" a écrit dans le message de
news:
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)))
@+






Avatar
leo
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" a écrit dans le message de news:
42c970f8$0$3139$
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




Avatar
jps
peut-être qu'en comptant le grand-père de mohammed VI, ça fait la rue
michel, non?
jps

"Modeste" a écrit dans le message de news:

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)))
@+






Avatar
JièL Goubert
Bonjoir(c) Modeste

Le 04/07/2005 21:48 vous avez écrit ceci :
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)))


on récapitule
AV
ChrisV
Paul V
Jean-Paul V (le nouveau)
et la canadienne (dont j'ai zoublié le prénom mais pas le nom : V ;-D)

Bon, ben voila, ça fait bien 5 ;-))
Mais je suis sur qu'il doit y en avoir quelques un en plus de ci de la

JièL Vé !


Avatar
JièL Goubert
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" a écrit dans le message de news:
42c970f8$0$3139$

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









1 2