21 Nuances de couleur sur une seule cellule ?

Bonjour,

Est-il possible d'appliquer une Mise en Forme Conditionnelle sur une seule cellule dont la couleur présenterait 21 nuances de couleurs, du vert au rouge, suivant sa valeur variant de de 0 à 100 par exemple.

Je comprends bien ce genre de MFC sur une série de données mais pas sur une seule cellule "isolée" (càd sans devoir faire appel à des valeurs d'une série cachée par exemple).

Ce genre de MFC sur une seule cellule ne semble vouloir donner que 3 couleurs sans aucune nuance. (vert, jaune rouge par exemple, sans nuance intermédiaire).

Est-ce possible ??

Merci.

Tu peux faire une macro dans le genre:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("L6"), Target) Is Nothing Then
        Select Case Target.Value / 5
        Case 0
            Range("L6").Interior.Color = RGB(255, 0, 0)
        Case 1
            Range("L6").Interior.Color = RGB(235, 0, 0)
        '....
        '...
        End Select
    End If
End Sub

Bonjour,

Merci pour la piste.

En effet, les MFC proposées par Excel ne suffisent pas et il faut donc passer par un code VBA !

Je l'ai finalisé comme suit:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("i31"), Target) Is Nothing Then

Select Case Target.Value

Case Is <= 5

Range("i31").Interior.Color = RGB(255, 0, 0) 'Du rouge au Vert

Case Is < 10

Range("i31").Interior.Color = RGB(235, 19, 0)

Case Is < 15

Range("i31").Interior.Color = RGB(235, 38, 0)

Case Is < 20

Range("i31").Interior.Color = RGB(235, 57, 0)

Case Is < 25

Range("i31").Interior.Color = RGB(235, 76, 0)

Case Is < 30

Range("i31").Interior.Color = RGB(235, 96, 0)

Case Is < 35

Range("i31").Interior.Color = RGB(235, 115, 0)

Case Is < 40

Range("i31").Interior.Color = RGB(235, 134, 0)

Case Is < 45

Range("i31").Interior.Color = RGB(235, 153, 0)

Case Is < 50

Range("i31").Interior.Color = RGB(235, 172, 0)

Case Is < 55

Range("i31").Interior.Color = RGB(230, 193, 0)

Case Is < 60

Range("i31").Interior.Color = RGB(205, 194, 0)

Case Is < 65

Range("i31").Interior.Color = RGB(179, 195, 0)

Case Is < 70

Range("i31").Interior.Color = RGB(154, 196, 0)

Case Is < 75

Range("i31").Interior.Color = RGB(128, 198, 0)

Case Is < 80

Range("i31").Interior.Color = RGB(102, 199, 0)

Case Is < 85

Range("i31").Interior.Color = RGB(77, 200, 0)

Case Is < 90

Range("i31").Interior.Color = RGB(51, 201, 0)

Case Is < 95

Range("i31").Interior.Color = RGB(26, 202, 0)

Case Is <= 100

Range("i31").Interior.Color = RGB(0, 204, 0)

End Select

End If

End Sub