dégrader de couleur dans une plage de cellule

Divers68 à dit:

Re,

Pourtant j'ai fais du dégradé à 5 lignes en plus de la tienne

Cliquez pour agrandir...

JHA à dit:

Bonjour Divers68,

Rassures toi, ton exemple est valide sous 2007

JHA

Cliquez pour agrandir...

Divers68 à dit:

Bonjour JH,
merci de ta réponse, c'est chiant quand on a qu'une version et que l'on peut pas comparer...

Cliquez pour agrandir...

Divers68 à dit:

Re,

là j'ai enregistré en format 2010, avant c'était 2003-2007 pourtant
regarde si tu vois qqchose

Cliquez pour agrandir...

Divers68 à dit:

Re,

Je regarde si je peux faire ça en VBA (c'est pas gagné lol)

Donc voilà j'ai selectionné toute ta plage et non qu'une ligne de 5 nombre, si vraiment tu veux que 5 tu me dis.

Code:

Sub DegradePlage()
    Range("B3:BI33").Select
    Selection.FormatConditions.AddColorScale ColorScaleType:=3
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
        xlConditionValueLowestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
        xlConditionValuePercentile
    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
        xlConditionValueHighestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 7039480
        .TintAndShade = 0
    End With
End Sub

Cliquez pour agrandir...