Re : Dégradé de 2 couleurs
bonsoir,
Si j'ai bien compris ta demande, il faut utiliser la propriété GradientStops pour définir le point de fin du dégradé (valeur entre 0 et 1):
Dim Obj As Shape
Set Obj = ActiveSheet.Shapes(1)
With Obj.Fill
.ForeColor.SchemeColor = 11...