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

Question

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,

Configuration: Windows XP / Internet Explorer 6.0

eriiic · Answer

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

Macro couleur cellules en fonction de lettres

1 réponse

Discussions similaires