Bonjour à tous, je dois générer un mail indiquant le statut en fonction de la couleur d'une cellule, une partie du texte du mail prend la couleur du fond de cette cellule et je rencontre un souci avec le jaune qui est illisible sur fond blanc, je tente de le mettre sur fond noir mais mon code ne fonctionne pas, le voici ci dessous, avez vous une idée?
If Range("H1").Interior.ColorIndex = 14 Then
'je suis vert
Statut = "<FONT COLOR=green>VERT</FONT>"
ElseIf Range("H1").Interior.ColorIndex = 3 Then
'je suis rouge
Statut = "<FONT COLOR=red>ROUGE</FONT>"
ElseIf Range("H1").Interior.ColorIndex = 6 Then
'je suis vert
Statut = "<FONT COLOR=yellow> <BACKGROUND COLOR=BLACK>JAUNE</FONT>"
End If
.HTMLBody = "<p> Bonjour,</p>" & "<p> Veuillez trouver" + lien + " le rapport de validation de l'appareil cité en Objet dans lequel vous avez le plan d'action. </p>" & "<p> Le statut de l'appareil est " & Statut & "<p> Vous trouverez également ci joint la fiche de validation à apposer sur l'appareil.</p>" & "Cordialement."
.Display
Merci d'avance et bonne journée à tous