vdh_xavier
XLDnaute Junior
Bonjour à tous,
Je rencontre un problème dans une mise en forme conditionnelle sous VBA.
Je voudrais qu’une cellule se remplisse à gauche en une couleur (rose) et à droite en une autre couleur (orange ou bordeaux ou vert ou bleu, selon les cas).
J’ai réussi à utiliser le dégradé, mais ça ne donne pas grand-chose et je ne sais pas très bien à quel endroit positionner les ColorStops.Add (j’ai mis 0.49 et 0.51 mais je n’y crois pas trop).
Quelqu’un sait-il comment il est possible de faire cela sans utiliser le dégradé, mais en ayant 2 couleurs distinctes à gauche et à droite ? J'arrive à le faire manuellement dans les mises en forme, mais pas en VBA.
Voici la partie de code de la partie rose + orange.
With Sheets("Tableau de bord")
DLig = .Range("A" & Rows.Count).End(xlUp).Row
With .Range("E5:E" & DLig)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""P homologué + P"""
With .FormatConditions(.FormatConditions.Count)
.StopIfTrue = False
With .Interior
.Pattern = xlPatternLinearGradient
With .Gradient
.ColorStops.Add(0.49).Color = RGB(253, 99, 231)
.ColorStops.Add(0.51).Color = RGB(255, 192, 0)
End With
End With
End With
Je vois joins mon fichier en annexe pour plus de facilité.
Merci d’avance pour votre aide
Je rencontre un problème dans une mise en forme conditionnelle sous VBA.
Je voudrais qu’une cellule se remplisse à gauche en une couleur (rose) et à droite en une autre couleur (orange ou bordeaux ou vert ou bleu, selon les cas).
J’ai réussi à utiliser le dégradé, mais ça ne donne pas grand-chose et je ne sais pas très bien à quel endroit positionner les ColorStops.Add (j’ai mis 0.49 et 0.51 mais je n’y crois pas trop).
Quelqu’un sait-il comment il est possible de faire cela sans utiliser le dégradé, mais en ayant 2 couleurs distinctes à gauche et à droite ? J'arrive à le faire manuellement dans les mises en forme, mais pas en VBA.
Voici la partie de code de la partie rose + orange.
With Sheets("Tableau de bord")
DLig = .Range("A" & Rows.Count).End(xlUp).Row
With .Range("E5:E" & DLig)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""P homologué + P"""
With .FormatConditions(.FormatConditions.Count)
.StopIfTrue = False
With .Interior
.Pattern = xlPatternLinearGradient
With .Gradient
.ColorStops.Add(0.49).Color = RGB(253, 99, 231)
.ColorStops.Add(0.51).Color = RGB(255, 192, 0)
End With
End With
End With
Je vois joins mon fichier en annexe pour plus de facilité.
Merci d’avance pour votre aide
