Couleur dans cellule

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Mai 2012

• #2

Re : Couleur dans cellule

Bonjour desatan,

tu peux t'inspirer d'un exemple ci-dessous
https://www.excel-downloads.com/threads/mise-en-forme-conditionnelle-avec-14-conditions.164352/

à+
Philippe

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 2 Mai 2012

• #3

Re : Couleur dans cellule

Bonjour

avec du code c'est possible

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Not Intersect(Target, Range("A1:A50" )) Is Nothing Then
    With Target
      Select Case Target.Value
        Case 4
          .Interior.ColorIndex =15 
       Case 3
          .Interior.ColorIndex = 3 
       Case 2 
         .Interior.ColorIndex = 44 
       Case 1 
         .Interior.ColorIndex = 27 
       Case 0 
         .Interior.ColorIndex = 4
      End Select
    End With
  End If
End Sub

 

Pièces jointes

• MEFC_5C.xls

  51 KB · Affichages: 37
• MEFC_5C.xls

  51 KB · Affichages: 39
• MEFC_5C.xls

  51 KB · Affichages: 39

Dernière édition: 2 Mai 2012

Vote positif 0 Vote négatif

D

desatan

XLDnaute Occasionnel

• 2 Mai 2012

• #4

Re : Couleur dans cellule

Salut,

Merci pour vos réponses. gilbert_RGI, j'ai copié ton code dans ma feuille, est ce normal que je dois entrer dans chaque cellule et faire entrée pour que ton code fonctionne ?

Merci para avance

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 2 Mai 2012

• #5

Re : Couleur dans cellule

oui c'est normal

 

Vote positif 0 Vote négatif

D

desatan

XLDnaute Occasionnel

• 2 Mai 2012

• #6

Re : Couleur dans cellule

Regarde le fichier joint, j'ai mis une formule en A8 et quand tu changes la valeur en A1, la couleur en A8 ne se change pas automatiquement. Tu peux m'aider ?

Merci par avance

 

Pièces jointes

• MEFC_5C.xls

  46.5 KB · Affichages: 47
• MEFC_5C.xls

  46.5 KB · Affichages: 43
• MEFC_5C.xls

  46.5 KB · Affichages: 50

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 2 Mai 2012

• #7

Re : Couleur dans cellule

desatan à dit:

Regarde le fichier joint, j'ai mis une formule en A8 et quand tu changes la valeur en A1, la couleur en A8 ne se change pas automatiquement. Tu peux m'aider ?

Merci par avance

Cliquez pour agrandir...

Voilà ça fonctionne

 

Pièces jointes

• MEFC_5C.xls

  52.5 KB · Affichages: 52
• MEFC_5C.xls

  52.5 KB · Affichages: 49
• MEFC_5C.xls

  52.5 KB · Affichages: 53

Vote positif 0 Vote négatif

D

desatan

XLDnaute Occasionnel

• 2 Mai 2012

• #8

Re : Couleur dans cellule

J'ai beau saisir n'importe quel chiffre en A1, A8 ne change pas de couleur ?
Encore merci de ton aide

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2012

• #9

Re : Couleur dans cellule

Bonjour.

Un test en pj.
Modifiez la mise en forme dans Couleurs, puis choisissez un nombre dans Liste.

 

Pièces jointes

• MFCValid2.xls

  55.5 KB · Affichages: 65
• MFCValid2.xls

  55.5 KB · Affichages: 67
• MFCValid2.xls

  55.5 KB · Affichages: 70

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 2 Mai 2012

• #10

Re : Couleur dans cellule

desatan à dit:

J'ai beau saisir n'importe quel chiffre en A1, A8 ne change pas de couleur ?
Encore merci de ton aide

Cliquez pour agrandir...

et comme ceci ???

 

Pièces jointes

• MEFC_5C.xls

  64.5 KB · Affichages: 45
• MEFC_5C.xls

  64.5 KB · Affichages: 48
• MEFC_5C.xls

  64.5 KB · Affichages: 47

Vote positif 0 Vote négatif

D

desatan

XLDnaute Occasionnel

• 3 Mai 2012

• #11

Re : Couleur dans cellule

Salut encore merci mais je n'arrive toujours pas a ce que je souhaite.
J'ai modifié la formule de la cellule A9. En fonction du résultat de cette cellule compris entre 0 et 4, je souhaite que la couleur de la cellule A9 change automatiquement. En sachant que 4=vert 3=jaune 2=orange 1=rouge 0=blanc
On peut même imaginer en A9 aucune formule, juste le fait de saisir 4 ou 3 ou etc, la couleur change en fonction du nombre.

Merci pour votre aide

PS : Victor21, je n'ai pas bien compris comment utiliser ton fichier

 

Pièces jointes

• MEFC_5C.xls

  45 KB · Affichages: 45
• MEFC_5C.xls

  45 KB · Affichages: 42
• MEFC_5C.xls

  45 KB · Affichages: 44

Vote positif 0 Vote négatif

D

desatan

XLDnaute Occasionnel

• 3 Mai 2012

• #12

Re : Couleur dans cellule

Quelq'un pour m'aider ? Merci par avance

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 9 Mai 2012

• #13

Re : Couleur dans cellule

Gilber_RGI, bonjour !
j'ai essayé d'adapter le code à mon utilisation, car moi je désire que les cellules Jaunisses lorsque je rentre une valeur alpha-numérique (par exemple AF-1234).

J'ai donc passé en REM toutes les autres couleurs, et ai modifié un peu le code.

Le soucis, c'est que cette valeur alphanumérique est changeante.
Une fois, par exemple : AF-1234, puis cela peut être AF-4567 ...etc ...

Je voudrais que la cellule change de couleur dès que le code repère le début de la valeur, soit le "AF", qui lui ne change jamais.

Comment faire ?

D'avance merci et cordiales salutations

 

Pièces jointes

• Copie de MEFC_5C-1.xls

  32 KB · Affichages: 43

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 9 Mai 2012

• #14

Re : Couleur dans cellule

bonjour

modifier cette ligne

Select Case Target.Value

Cliquez pour agrandir...

par ceci

Select Case Left(Target.Value, 3)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

PatLac

XLDnaute Occasionnel

• 9 Mai 2012

• #15

Re : Couleur dans cellule

Super, Merci beaucoup !
Si je peux abuser encore un peu, je voudrais étendre la couleur au cellule B et C, et inscrire en D "test" ....
Ce serait compliqué à coder pour vous ?
Merci d'avance !

 

Vote positif 0 Vote négatif