changer la couleur de fond d'une cellule part rapport à son contenu

[TITI]

Salut à tous et merci d'avance pour votre aide.

Je veut en faite changer la couleur de fond des cellules dont l'intérieur contient "OK".

J'ai récuperer un code sur votre site mais je voudrais ne pas parcourir à chaque fois les 200 cellules, je voudrais que cel fonctionne que pour la cellule ou s'écrit.

Pourriez vous m'indiquer les modification que j'ai à apporter à mon code merci.

Code :
Sub MFC_Colorie_Cellules(Target)
Dim c As Range
For Each c In ActiveSheet.Range("A1:J200")
If c = "" Then
c.Interior.ColorIndex = 0
ElseIf c = "OK" Then
c.Interior.ColorIndex = 9
End If
Next
End Sub

TITI

 

[Gérard DEZAMIS]

Salut Titi

Le code fonctionne très bien la couleur 9 est vilaine mais.... moi je préfère le 6 bien jaune flluo. Tous les goûts sont dans la nature !

Si tu veux qu'en écrivant cela se mette directement en couleur il faut placer ce code dans la feuille avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In ActiveSheet.Range("A1:J200")
If c = "" Then
c.Interior.ColorIndex = 0
ElseIf c = "OK" Then
c.Interior.ColorIndex = 6
End If
Next
End Sub

Bon courage

@+
GD

 

[TITI]

Merci pour tout

Mais j'ai encore un petit problème, avec le bout de code :

For Each c In ActiveSheet.Range("A1:J200")

Car avec cela je suis obligé à chaque fois de scanner tout le doc.

Je voudrais si cela est possible le faire seuleument pour la cellule où j'écris.

titi