Coloration de Cellule sous condition

[Laurent313131]

Bonjour,

J'aimerais colorer ma cellule H21, en fonction de 2 conditions. Mon code me colore uniquement les caractères inscris en H21 et pas le fond de la cellule...


Sub XXXX

Dim Val2

If val2 < Cells(21, 8) Then
Range("H21").Font.Color = RGB(255, 0, 0)
Else
Range("H21").Font.Color = RGB(0, 255, 0)
End If

En sub

Merci beaucoup !

 

[CB60]

Re : Coloration de Cellule sous condition

Bonjour
remplace
"Font" par
"Interior"
et cela devrais fonctionner


EDIT Bonjour Pascal

 

[PascalXLD]

Re : Coloration de Cellule sous condition

Bonjour

tu veux à tout prix passer par une macro ?

Car la mise en forme conditionnelle te fera cela très bien

Edit : salut bruno

 

[Laurent313131]

Re : Coloration de Cellule sous condition

Merci c'était si simple ...

> Pascal : J'utilise un USF assez complexe donc pas de mise ne forme conditionnelle ^^