Comparaison de dates dans une macro

Question

Bonjour à tous,

Encore moi qui pose une question !

Voici une petite macro qui compare 2 dates et qui fonctionne bien :

Sub abc()

Dim datejourcorrigée, dateff As Date

datejourcorrigée = Range("D1").Value

dateff = Range("I31").Value

datejourcorrigée = datejourcorrigée - 7

MsgBox ("DJ-7 = " & datejourcorrigée & " sur ligne : 31 - Eff : " & dateff)

If dateff > datejourcorrigée Then

MsgBox ("OK") 

Else

MsgBox (" pas OK") 

End If

End Sub

Les données rendues pas la msgbox sont 8/10/2021 pour la date corrigée et 14/10/2021 pour la date eff.

La même macro dans ma macro réelle ne fonctionne pas :

            Dim dateff, datejourcorrigée As Date 

            dateff = Range("I" & ligneentest).Value 

            datejourcorrigée = Range("D1").Value 

            datejourcorrigée = Range("D1") - 7 

            If dateff > datejourcorrigée Then 

                Exit Sub 

            Else 

                Range("D" & ligneentest) = "HEB2" 

MsgBox ("DJ-7 = " & datejourcorrigée & " sur ligne : " & ligneentest & " Eff : " & dateeffectue)

                MisenformecolD 

                drapeauPROP = "PROP" 

                Exit Sub 

            End If 

Elle porte pourtant sur les mêmes données rendues par la msgbox et la même ligne traitée.

Dans la macro de test elle confirme que le 8/10 n'est pas supérieur au 14/10 et elle se termine donc par "OK".

Dans l'autre cas, le traitement du else est TOUJOURS réalisé !

Auriez vous une idée ?

Je suis dessus depuis plusieurs jours.

Merci d'avance, Cordialement Jean-Pierre

Answer 1

Bonjour à tous,

Laissez tomber !

Désolé c'est une ânerie !

Cordialement Jean-Pierre