Macro couleur cellules en fonction de lettres

Résolu/Fermé

nightsheart Messages postés 319 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 1 juin 2018 - 10 nov. 2010 à 08:36
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 10 nov. 2010 à 09:52

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,

A voir également:

Macro couleur cellules en fonction de lettres
Fonction si et - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel cellule couleur si condition texte - Guide
Somme si couleur - Guide
Macro word - Guide

1 réponse

Réponse 1 / 1

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
10 nov. 2010 à 09:52

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

Discussions similaires

Trouver le mot réellement écrit en lettres capitales PIX

liste de noms par ordre alphabétique

Si couleur, alors...

Discussions similaires

Newsletters