Bonjour,
Faut-il mettre ce code dans l'événement change ou selectionchange de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C4:BL66"), Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [liste_code].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
merci
Faut-il mettre ce code dans l'événement change ou selectionchange de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C4:BL66"), Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [liste_code].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
merci