Macro pour changer de couleur

[Nagrom]

Bonjour à tous,

Je cherche une macro qui permet de faire ceci:

Si, sur la plage de données ("B7:R7"), une ou plusieurs cellules présentent la valeur "Chien" ou "Chat", ces mots passent couleur, verte par exemple.

En sachant que je ne souhaite pas utiliser la mise en forme conditionnelle du menu "format", mais juste un code.

Merci bien.

 

[Gruick]

Re : Macro pour changer de couleur

Salut Nagrom
une tite macro, appelée MJ, car testée sur Michael Jackson

Sub MJ()
For Each cell In Range("B7:R7")
If cell = "Chien" Or cell = "Chat" Then cell.Font.ColorIndex = 4
Next cell
End Sub

Voila, c'est tout.

A plus, en espérant que cela convienne.
Gruick

 

[Gérard DEZAMIS]

Re : Macro pour changer de couleur

Bonjour le Forum
Bonjour Nagrom

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B7:R7")) Is Nothing Then
If Target.Value = "Chat" Or Target.Value = "Chien" Then
Target.Interior.ColorIndex = 4
End If
End If
End Sub

A mettre avec Alt F11 dans la feuille qui contient la zone B7:R7

@+GD

Edition : Salut Gruick décidemment 2 fois dans la même journée ...Mes réactions sont de plus en plus lentes .... ou tu es trop rapide !

 

[pascal21]

Re : Macro pour changer de couleur

bonjour à tous
pour avoir posé une question similaire je me permet de t'envoyer vers le lien ci-dessous
il s'agit d'un code permettant d'avoir de multiples mfc sur sa feuille

https://www.excel-downloads.com/threads/mise-en-forme-conditionnelle-a-5-niveaux.67072/

en adaptant ce code tu aura autant de couleur que tu le souhaite
je l'ai utilisé et résolu mon problème
si tu as besoin de conseils n'hésites pas

 

[Nagrom]

Re : Macro pour changer de couleur

Bonjour tout le monde,

Je vous remercie vous trois, c'est ce que je recherchais.