Bonsoir,
Dans la cellule F48 ne mettezpas RGB(...), uniquement les chiffres, exemple:
255,23,156
et copiez cette macro dans le module de la feuille "PLANIF"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bleu As Long, Rouge As Long, Vert As Long
On Error GoTo Sortie
Application.EnableEvents = False
If Target.Address = "$F$48" Then
Rouge = Left(Target, InStr(1, Target, ",", 1) - 1)
Bleu = Mid(Target, InStrRev(Target, ",", -1) + 1, 3)
Vert = Mid(Target, InStr(1, Target, ",", 1) + 1, Len(Target) - InStrRev(Target, ",", -1) + 1)
Target.Interior.Color = RGB(Rouge * 1, Vert * 1, Bleu * 1)
End If
Sortie:
Application.EnableEvents = True
End Sub
Cdlt