Changer la couleur d'une cellule selon valeur de la ComboBox liée

[rounil09]

Bonsoir la liste,
Tout est dans le titre.
Je souhaite que si la combobox Valid2009 = "Non" la cellule de la feuille BDCE liée passe en gris clair.
Le code plante sur la dernière ligne.
Que faut-il modifier ?


Private Sub Valid2009_Click()
Dim Nom_CE As String
Nom_CE = Sheets("PARAM").[AH10]
Dim Cible As Range
Sheets("BDCE").Select
Set Cible = Range("E10:E10000").Find(Nom_CE, lookat:=xlWhole) 'Cherche le C.E.
Cible.Offset(0, 1).Select
Selection.Value = ComboBox2.Value
If ComboBox2.Value = "Non" Then
Selection.Value.Font.ColorIndex = 48
End If


Par avance, merci de vos lumières

 

[JCGL]

Re : Changer la couleur d'une cellule selon valeur de la ComboBox liée

Bonjour à tous,

Peux-tu essayer :

Option Explicit


Private Sub Valid2009_Click()
Dim Nom_CE As String
Nom_CE = Sheets("PARAM").[AH10]
Dim Cible As Range
Sheets("BDCE").Select
Set Cible = Range("E10:E10000").Find(Nom_CE, lookat:=xlWhole) 'Cherche le C.E.
Cible.Offset(0, 1).Value = ComboBox2.Value
If ComboBox2.Value = "Non" Then Cible.Offset(0, 1).Font.ColorIndex = 48
End Sub

A+ à tous

 

[rounil09]

Re : Changer la couleur d'une cellule selon valeur de la ComboBox liée

Merci JCGL la macro fonctionne bien.
A+