Bonjour Lulusse, Le Forum
En raison de la panne du 3-4/2/2004, ta dernière question est restée en plan...
Voici, une méthode avec "Select Case", très pratique pour du multiple conditions (j'ai rajouté un cas "zzz", pour exemple) :
Option Explicit
Option Compare Text
Sub Test()
Dim Cell As Range
For Each Cell In Range("A1:A100")
With Cell
Select Case Cell.Value
Case "yyy": .Interior.ColorIndex = 3
Case "xxx": .Interior.ColorIndex = 4
Case "zzz": .Interior.ColorIndex = 6
Case Else: .Interior.ColorIndex = xlNone
End Select
End With
Next
End Sub
Bon week End
@+Thierry