XL 2016 colorer un texte cellule en vert lorsque texte d une cellule est rouge

[ZIZOUNIZAR]

salut
svp je cherche comment mettre :
Exemple
police de la cellule A3 en vert lorsque
couleur de police de la cellule B4 est rouge
merci pour le soutien

 

[GALOUGALOU]

bonsoir zizounizar

pour que le code fonctionne il est important de poser la couleur du texte avec les bonnes références

Couleur    Index
Noir    0
Blanc    2
Rouge    3
vert    4
Bleu    5
Jaune    6
Magenta    7
Cyan    8

Sub couleurs()
    Range("b4").Font.ColorIndex =3
End Sub

le test sur les cellules a3 et b4

Sub test_couleurs()

   If Range("b4").Font.ColorIndex = 3 Then
   Range("a3").Font.ColorIndex = 4
   End If
End Sub

cdt
galougalou