Couleur selon la valeur de la case

[falafala]

Bonjour à tous,

J'ai un tableau de chiffre sur excel et j'aimerais qu'en fonction du chiffre dans la case, celle ci soit colorée dans une couleur bien spécifique.

La mise en forme conditionnelle ne permet de gérer que 3 conditions donc 3 couleurs. Or, il me faut une couleur pour chaque chiffre de 0 à 9.

Quelqu'un sait comment je peux faire??

JE vous remercie par avance

 

[Bcar]

Re : Couleur selon la valeur de la case

Bonsoir,

Essaie ce code dans une macro:
Sub Couleur()
For Each mycell In Range("C14:C25")
If mycell.Text = "1" Then
With mycell.Interior
.ColorIndex = 18
.Pattern = xlSolid
End With
End If
If mycell.Text = "2" Then
With mycell.Interior
.ColorIndex = 16
.Pattern = xlSolid
End With
End If
If mycell.Text = "3" Then
With mycell.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End If
If mycell.Text = "4" Then
With mycell.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
If mycell.Text = "5" Then
With mycell.Interior
.ColorIndex = 42
.Pattern = xlSolid
End With
End If
Next
End Sub


Bonsoir

 

[Spitnolan08]

Re : Couleur selon la valeur de la case

Bonsoir,
Un code à placer dans le module de la feuille contenant le tableau. Ici le tableau est situé en A1😀5.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Index As Integer
Dim Tableau As Range

Set Tableau = Range("A1:D5")
If Intersect(Target, Tableau) Is Nothing Then Exit Sub
Target.Interior.ColorIndex = 11 + Target.Value
End Sub

Cordialement