Macro couleur cellules en fonction de lettres
Résolu
nightsheart
Messages postés
319
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
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,
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,
A voir également:
- Macro couleur cellules en fonction de lettres
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Fonction si et - Guide
- Excel cellule couleur si condition texte - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel pour additionner plusieurs cellules - Guide
1 réponse
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 :
La couleur de la cellule changera après saisie dans la plage B3:E10
exemple
eric
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
