plus de couleur .....

POLO · 17 Mars 2005

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é · 17 Mars 2005

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 · 17 Mars 2005

merci pour ton aide .

plus de couleur .....

POLO

Guest

Pièces jointes

Hervé

XLDnaute Barbatruc

POLO

Guest

Discussions similaires