Private Sub Worksheet_Change(ByVal Target As Range)
Dim trouve As Range
Dim CompR, CompV, CompB As Long
With Sheets("Codes couleurs RAL")
Set trouve = .Range("A1:A2").Find(Target.Value, LookIn:=xlValues)
If Not trouve Is Nothing Then
CompR = trouve.Offset(0, 2)
CompV = trouve.Offset(0, 3)
CompB = trouve.Offset(0, 4)
End If
End With
With Range("A1").Interior
.Color = RGB(CompR, CompV, CompB)
End With
End Sub
Range("A1").Interior.color = RGB(Range("A2"),Range("B2"),Range("C2"))
Private Sub Worksheet_Change(ByVal Target As Range)
Dim trouve As Range
Dim CompR, CompV, CompB As Long
With Sheets("Codes couleurs RAL")
Set trouve = .Range("A1:A2").Find(Target.Value, LookIn:=xlValues)
If Not trouve Is Nothing Then
CompR = trouve.Offset(0, 2)
CompV = trouve.Offset(0, 3)
CompB = trouve.Offset(0, 4)
End If
End With
With Range("A1").Interior
.Color = RGB(CompR, CompV, CompB)
End With
End Sub