couleur de cellule sur liste

[djuju]

bonjour
je voudrais avoir la meme couleur sur mes cellule déroulante b3 a b10 selon le choix que l'on fait
merci

 

[Robert]

Re : couleur de cellule sur liste

Bonjour Djuju, bonjour le forum,

Peut-être comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("B3:B" & Cells(Application.Rows.Count, 1).End(xlUp).Row)) Is Nothing Then Exit Sub
Target.Interior.ColorIndex = Columns("G").Find(Target.Value, , xlValues, xlWhole).Interior.ColorIndex
End Sub

Le fichier :

 

[djuju]

Re : couleur de cellule sur liste

ok merci c'est parfais