'Colors' is range of Data/Validation: http://cjoint.com/?ckhVrUueSk

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([planning], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [Colors].Find(Target,
LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub

JB
http://boisgontierjacques.free.fr/

On 8 fév, 00:07, Abhi wrote:
How do i use conditional formatting and data validation in conjunction, and
apply the color coding to a range of cells