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

rounil09 · 22 Septembre 2015

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 · 22 Septembre 2015

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

Bonjour à tous,

Peux-tu essayer :

VB:

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 · 22 Septembre 2015

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

Merci JCGL la macro fonctionne bien.
A+

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

rounil09

XLDnaute Occasionnel

JCGL

XLDnaute Barbatruc

rounil09

XLDnaute Occasionnel

Discussions similaires