Excel: mettre certaines cellules en couleur

Blubi Messages postés 2 Date d'inscription jeudi 8 janvier 2009 Statut Membre Dernière intervention 8 janvier 2009 - 8 janv. 2009 à 16:00
Blubi Messages postés 2 Date d'inscription jeudi 8 janvier 2009 Statut Membre Dernière intervention 8 janvier 2009 - 8 janv. 2009 à 16:58
Bonjour,

J'ai un petit problème avec Excel, je m'explique:

J'ai une base de données et j'aimerais que lorsqu'un certain mot apparaisse sur une ligne, le fond de la cellule prenne une certaine couleur.

EXEMPLE:

Colonne C, j'ai le descriptif des travaux et quand le mot PEC apparaît sur une ligne je voudrais que le fond de cette ligne devienne beige.

Donc si C1= travail 1
C2= travail 2 PEC
C3= travail 3 bla
C4= PEC travail 4
C5= travail 5 blabla

j'aimerais que le fond de la cellule C2 et C4 devienne beige.

En gros, il faudrait une formule qui reconnaissent un certain mot et une fois le mot reconnu, le fond change de couleur. Je sais pas si j'ai été assez claire...

un grand merci d'avance!
A voir également:

4 réponses

Réponse 1 / 4
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
8 janv. 2009 à 16:40
Bonjour,

Quel dommage que dans ton message, tu ais effacé par mégarde la version d'excel que tu utilises !!!

XL <2007

Tu sélectionnes la zone concernée ( pour l'exemple ci dessous, la zone commence en A1)

format-mise en forme conditionnelle

tu choisis "la formule est" (sous condition 1)
tu copies-colles ou recopies cette formule:

=ESTNUM(CHERCHE("*PEC*";A1))

et tu choisis le motif dans format
3
Réponse 2 / 4
BOUDA08 Messages postés 116 Date d'inscription samedi 6 décembre 2008 Statut Membre Dernière intervention 1 février 2009 76
8 janv. 2009 à 16:05
Bonjour

Tu dois passer par mise en forme conditionnelle dans l onglet acceuil
0
Réponse 3 / 4
mm
8 janv. 2009 à 16:23
Ajoute dans Excel la macro suivante : Sub changecolor()
Dim cel As Range
For Each cel In Selection
If cel.Value Like "*PEC*" Then
cel.Interior.Color = RGB(255, 0, 0)
End If
Next
End Sub
0
Réponse 4 / 4
Blubi Messages postés 2 Date d'inscription jeudi 8 janvier 2009 Statut Membre Dernière intervention 8 janvier 2009
8 janv. 2009 à 16:58
Un tout tout grand merci à vous!! ça marche parfaitement! : )


Bonne fin de journée
0