Problème de format de date dans une formule

Bonjour,

Je voudrais tester une variable de type date (JOUR_TEST) avec des valeurs date d'une colonne pour savoir si les dates de ma colone sont supérieures ou inférieures.

Définition de ma date Test :

Public JOUR_TEST As Date ' car ma date sert dans plusieurs macros.

ActiveCell.FormulaR1C1 = "=DATE(YEAR(TODAY()),MONTH(TODAY())-1,1)"

JOUR_TEST = Range("A9").Value

Donc aurjourd'hui JOUR_TEST = 01/07/2015

Après le test est le suivant :

ActiveCell.FormulaR1C1 = _

"=IF(RC[-5]=""NSM"",""Pas de SM"",IF(RC[-5]<" & JOUR_TEST & ",""Avant"",""Après""))"

RC[-5] sont les cellules que je veux tester.

Mais dans la formule ma variable JOUR_TEST se transforme en 1/7/2015...., et le test ne marche pas...

Toutes les dates indiquent "Après"

Comme faire pour que cela soit 01/07/2015 ?

Ci-joint fichier test

Une idée quelqu'un

Bonjour à toi !

rien d'anormal à ça je pense

"=DATE(YEAR(TODAY()),MONTH(TODAY())-1,1)"

=> year(today()) = 2015

=> MONTH(TODAY())-1 = aout - 1 mois = juillet = 7

=> 1 = premeir jour => 1

on a donc bien 1 / 7 / 2015 ^^

pour avoir 01/07/2015 =>

JOUR_TEST = Format(CDate(Range("AC1").Value), "dd/mm/yyyy")

Bonjour,

Si la date est entre guillemets, tu auras la bonne réponse. Les introduire dans ta formule.

Cordialement

Ferrand

Merci les gars tout fonctionne !!!