Macro couleur cellules en fonction de lettres [Résolu/Fermé]

Signaler
Messages postés
319
Date d'inscription
mardi 23 octobre 2007
Statut
Membre
Dernière intervention
1 juin 2018
-
Messages postés
23995
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
12 avril 2021
-
Bonjour,

Je dispose de Excel 2003. Je voudrais que sur ma feuille 1 les cellules se colorent en fonction de la lettre qu'il y a à l'intérieur.
Cependant j'ai 4 conditions ce qui m'empèche d'utiliser la mise en forme conditionnelle.
Les conditions sont les suivantes :
"p"-->vert
"c"-->rouge
"m"-->bleu
"v"-->jaune

Je n'ai aucune notion en VBA c'est pourquoi je demande de l'aide.
Merci d'avance,

1 réponse

Messages postés
23995
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
12 avril 2021
6 723
Bonjour,

Sur une autre feuille nomme une plage Légende où tu saisis la valeur à détecter et sa couleur de fond.
Dans la feuille concernée ajoute ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Intersect(Target, Range("B3:E10")) Is Nothing Then Exit Sub
    For Each c In [légende]
        If Target.Value = c.Value Then
            Target.Interior.ColorIndex = c.Interior.ColorIndex
            Exit For
        End If
    Next c
End Sub

La couleur de la cellule changera après saisie dans la plage B3:E10
exemple

eric