Couleurs police en fonction d'un mot Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Xls-padawan-Vba
Membre habitué
Membre habitué
Messages : 114
Inscrit le : 9 mars 2017
Version d'Excel : 2016

Message par Xls-padawan-Vba » 14 novembre 2017, 15:42

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.
Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson...
Confucius.
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'747
Appréciations reçues : 226
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 14 novembre 2017, 22:52

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 Sub
:wink:
A+
Avatar du membre
Xls-padawan-Vba
Membre habitué
Membre habitué
Messages : 114
Inscrit le : 9 mars 2017
Version d'Excel : 2016

Message par Xls-padawan-Vba » 16 novembre 2017, 07:57

Merci ;)
Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson...
Confucius.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message