plus de couleur .....

[POLO]

je ne comprends pas , avant ca marchait

maintenant plus aucune couleur .


help

merci [file name=TEST.zip size=5250]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TEST.zip[/file]

 

[Hervé]

Bonjour

essaye comme ca :

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveCell
Select Case UCase(.Value)
Case Is = ''
.Interior.ColorIndex = 2
Case Is = 'A'
.Interior.ColorIndex = 4
Case Is = 'B'
.Interior.ColorIndex = 4
Case Is = 'C'
.Interior.ColorIndex = 8
Case Is = 'TEST'
.Interior.ColorIndex = 8
End Select
End With
End Sub

A plus

 

[POLO]

merci pour ton aide .