Configuration: Windows XP Internet Explorer 6.0
|
Hello,
Try with this macro, you have to write in Visual Basic Editor : Private Sub Worksheet_Change(ByVal Target As Range)
Set MyPlage = Range("R7:R1000")
For Each Cell In MyPlage
If Cell.Value = "Extreme" Then
Cell.Interior.ColorIndex = 3
End If
If Cell.Value = "Hight" Then
Cell.Interior.ColorIndex = 4
End If
If Cell.Value = "Medium" Then
Cell.Interior.ColorIndex = 18
End If
If Cell.Value = "Low" Then
Cell.Interior.ColorIndex = 6
End If
If Cell.Value <> "Extreme" And Cell.Value <> "Hight" And Cell.Value <> "Medium" And Cell.Value <> "Low" Then
Cell.Interior.ColorIndex = xlNone
End If
Next
End Sub
Hope this is what you want. Best regards "Pour trouver une solution � ses probl�mes, il faut s'en donner la peine." |
Results for
Results for
Results for
Results for
Results for