Couleurs police en fonction d'un mot
Bonjour,
j'ai une base de donnée sous forme de tableau, qui se rempli via un formulaire.
Je voudrais pouvoir en fonction du mot utiliser sur la colonne "E" modifier les couleurs de la police de la ligne correspondant à ce mot sans avoir à utiliser les mises en formes conditionnelles.
Ex : Couleur automatique le rouge sauf si dans la colonne "E" il y a écrit "banane" ou "orange" ou "cerise" alors la ligne sera en bleu.
Merci.
Salut Padawan,
comme ceci, sans doute...
Private Sub Worksheet_Change(ByVal Target As Range)
'
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
'
If Not Intersect(Target, Range("E:E")) Is Nothing And Target <> "" Then _
Rows(Target.Row).Interior.Color = IIf(UCase(Target) = "BANANE" Or UCase(Target) = "CERISE" Or UCase(Target) = "ORANGE", RGB(140, 180, 220), RGB(255, 0, 0))
'
Application.EnableEvents = True
'
End SubA+