Fonction colorier Borders de cellules avec une condition Combobox

Bonjour ,

S'il vous plait , j'aimerais colorier les bordures de mes cellules en fonction de la valeur selectionné sur la combobox2 de ma userform .

J'arrive avec ce code a sélectionner la valeur demandé puis a mettre en gras la bordure sauf que :

1) je ne sais pas combiner a vec un ".border.color=RGB(250,0,0)" ?
2) Ecrire un code plus simple de sorte a ce que les cellule reviennent a leurs état initial (sans border en gras rouge) si jamais je change de condition sur ma userform .

Code:

---

1 2 3

If ComboBox2.Value = Sheets("page5").Cells(4, 19).Value Then Sheets("page2").Cells(31, 4).Borders.Weight = xlThick End If

---

Merci

Bonjour,

Ci-dessous une proposition de code, à adapter selon vos besoins :

Code:

---

1 2 3 4 5 6 7 8 9

With Sheets("page2").Cells(31, 4).Borders If ComboBox2.Value = Sheets("page5").Cells(4, 19).Value Then .LineStyle = xlContinuous .Color = RGB(255, 0, 0) .Weight = xlThick Else .LineStyle = xlNone End If End With

---