Couleur dans cellule

[desatan]

Bonjour,

Voilà je voudrais que mes cellules se remplissent automatiquement d'une couleur en fonction du nombre dans la cellule. 4=vert 3=jaune 2=orange 1=rouge 0=gris

La mise en forme conditionnelle ne me permet que 3 possibilités hors moi j'en ai besoin de 5.
Quelqu'un pourrait il m'aider ?

Merci par avance

 

[phlaurent55]

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

 

[gilbert_RGI]

Re : Couleur dans cellule

Bonjour

avec du code c'est possible

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

 

[desatan]

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

 

[gilbert_RGI]

Re : Couleur dans cellule

oui c'est normal

 

[desatan]

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

 

[gilbert_RGI]

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

Voilà ça fonctionne

 

[desatan]

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

 

[Victor21]

Re : Couleur dans cellule

Bonjour.

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

 

[gilbert_RGI]

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

et comme ceci ???

 

[desatan]

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

 

[desatan]

Re : Couleur dans cellule

Quelq'un pour m'aider ? Merci par avance

 

[PatLac]

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

 

[gilbert_RGI]

Re : Couleur dans cellule

bonjour

modifier cette ligne

Select Case Target.Value

par ceci

Select Case Left(Target.Value, 3)

 

[PatLac]

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 !