XL 2013 colorier une cellule

[zozo]

Bonjour à tout le forum.

J'ai une cellule (A1) qui contient une date.
Par le biais d'une macro, je souhaite colorier la cellule (A2) en rouge si la cellule (A1) égale à la date du jour.

Ce que j'ai réalisé, malheuseument sans aucun résultat :

if cells(1,1)=now() then
cells(1,2).interior.color=255
end if

Merci pour toute aide de votre part

 

[xUpsilon]

Bonjour,

Pourquoi par macro et non pas par MFC ?

Bonne continuation

 

[zozo]

Bonjour,

Pourquoi par macro et non pas par MFC ?

Bonne continuation

j'utilise une macro qui contient cette séquence, donc j'en ai besoin par macro.
Merci pour votre réponse

 

[VIARD]

Bonjour à Tous

Cells(1,2).interior.colorindex=3

A+ JP

 

[xUpsilon]

Re,

Remplacez Cells(1,1) = Now() par Cells(1,1) = Date(), ça devrait fonctionner.

Bonne continuation

 

[zozo]

Re,

Remplacez Cells(1,1) = Now() par Cells(1,1) = Date(), ça devrait fonctionner.

Bonne continuation

Très bon résultat, Merci pour la solution.

 

[zozo]

Bonjour à Tous

Cells(1,2).interior.colorindex=3

A+ JP

Merci pour la solution.