XL 2019 Colorer une plage de celules en deux couleurs... : en séparant en diagonale... ?

Phil69970 à dit:

Bonjour @anthoYS

Fait "à l'arrache" avec l'enregistreur j'ai ceci à retravailler et à affiner sur une nouvelle feuille

VB:

Sub test()
Range("D4:F8").Merge
With Range("D4:F8").Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 45
    .Gradient.ColorStops.Clear
End With
With Range("D4:F8").Interior.Gradient.ColorStops.Add(0)
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = 0
End With
With Range("D4:F8").Interior.Gradient.ColorStops.Add(0.5)
    .ThemeColor = xlThemeColorAccent1
    .TintAndShade = 0
End With
With Range("D4:F8").Interior.Gradient.ColorStops.Add(1)
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = 0
End With
End Sub

A toi de peaufiner ......

Merci de ton retour

Cliquez pour agrandir...

patricktoulon à dit:

Bonjour
avec un degradé

VB:

Sub test_patosh1()
    With Range("D4:F8")
        .Merge
        With .Cells.Interior
            .Pattern = 4000
            .Gradient.Degree = 45
            .Gradient.ColorStops.Clear
            'on peut ajouter autant de couleur que l'on veut
            ' pour 10 c'est de 0 à 1 par pas de  0.1
            ' pour 100 couleurs c'est de 0 à 1 par pas de 0.01
            .Gradient.ColorStops.Add(0).Color = vbRed
            .Gradient.ColorStops.Add(0.5).Color = RGB(220, 220, 220)
            .Gradient.ColorStops.Add(0.52).Color = RGB(220, 220, 220)
            .Gradient.ColorStops.Add(0.54).Color = RGB(240, 240, 240)
           .Gradient.ColorStops.Add(1).Color = RGB(240, 240, 240)
        End With
    End With
End Sub

Regarde la pièce jointe 1185620


sans dégradé (debut et fin couleur dure)

VB:

Sub test_patosh2()
    With Range("D4:F8")
        .Merge
        With .Cells.Interior
            .Pattern = 4000
            .Gradient.Degree = 45
            .Gradient.ColorStops.Clear
            'on peut ajouter autant de couleur que l'on veut
            ' pour 10 c'est de 0 à 1 par pas de  0.1
            ' pour 100 couleurs c'est de 0 à 1 par pas de 0.01
            .Gradient.ColorStops.Add(0).Color = vbRed
            .Gradient.ColorStops.Add(0.49).Color = vbRed
            .Gradient.ColorStops.Add(0.5).Color = RGB(215, 215, 215)
            .Gradient.ColorStops.Add(0.52).Color = RGB(215, 215, 215)
            .Gradient.ColorStops.Add(0.54).Color = RGB(240, 240, 240)
           .Gradient.ColorStops.Add(1).Color = RGB(240, 240, 240)
        End With
    End With
End Sub

Regarde la pièce jointe 1185621

Cliquez pour agrandir...