T
TITI
Guest
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
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