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

[anthoYS]

Bonjour

je ne sais pas si je suis clair...
Sinon, j'arrive à colorer une plage de cellules fusionnées, mais pas en deux couleurs, une seule reste présente...

Merci de me dire, je continue de chercher ...

 

[anthoYS]

ce style ou dans l'autre sens

 

[Phil69970]

Bonjour @anthoYS

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

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

 

[anthoYS]

Bonjour @anthoYS

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

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

merci !

 

[patricktoulon]

Bonjour
avec un degradé

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

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

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

 

[anthoYS]

Bonjour
avec un degradé

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)

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

bonjour à tous,

merci, peut on écrire à l'intérieur de la plage avec le dégradé ou sans ?

 

[patricktoulon]

bonjour @anthoYS

ben qu'est qui pourrait t'en empecher ?
cela dit ta demande concerne un remplissage d'une plage de plusieur cellule elle est donc fusiionée donc comme si c'etait qu'une cellule