Mêtre le resultat en couleur

[Olyxier]

Bonsoir le forum
voici un code comment peut on afficher le resultat dans la case EW54 en rouge
ElseIf Target.Address(0, 0) = "EP41" Then
Select Case Range("EP41").Value
Case 1
Range("EI41").Copy Range("EW54")
End Select

merci à vous

 

[bqtr]

Re : Mêtre le resultat en couleur

Bonsoir Olyxier,

Essaye comme ceci :

Pour avoir la police en rouge:

ElseIf Target.Address(0, 0) = "EP41" Then
Select Case Range("EP41").Value
Case 1
Range("EI41").Copy Range("EW54")
Range("EW54").Font.ColorIndex = 3
End Select


Pour le fond de la cellule en rouge:

Range("EW54").Interior.ColorIndex = 3

A+

P.O

 

[Olyxier]

Re : Mêtre le resultat en couleur

OK cela marche super merci beaucoup