Comparaison de mois

[m@tix]

Bonjour,

A la fin de l'exécution d'une macro, on écrit dans une cellule le mois actuel sous une forme numérique (8 pour août donc par exemple). Je souhaiterais à l'ouverture de mon classeur comparer le mois actuel au mois qui a été inscrit dans la cellule, et voir si leur différence est supérieure à 6 mois. Problème, je ne peux pas faire quelque chose du genre If Month(Date) > .range("A1").Value + 6,car on dépasserait 12 selon les cas... Une idée ?

Merci d'avance.

 

[tototiti2008]

Re : Comparaison de mois

Bonjour m@tix,

un mois sans année n'a pas beaucoup de signification
Si ta macro a tourné la dernière fois en août 2005 et qu'on ouvre ton fichier, pas d'alerte puisqu'on est en août....

 

[Dranreb]

Re : Comparaison de mois

Bonjour.
Et avec quelque chose du genre If Year(Date) * 12 + Month(Date) > Year(Now) * 12 + .range("A1").Value + 6 ?
À+


Bonjour Tototiti, oui c'est aussi ce que je me disais.

 

[mth]

Re : Comparaison de mois

Bonjour, hello tototiti

Peut-être un truc comme ça:

If Abs(Month(Date) - Range("A1")) > 6 Then

(effectivement sous réserve de l'année...)

Bon après-midi

mth

Edit: Hello DranreB

 

[Pierrot93]

Re : Comparaison de mois

Bonjour à tous,

le mieux serait sans doute d'envoyer la date entière dans la cellule en fin de procédure..

bon après midi
@+

 

[m@tix]

Re : Comparaison de mois

Bonjour à tous,

En effet, je ne l'avais pas mentionné, mais l'année va également rentrer en jeu. Du coup, le code de Dranreb semble plutôt bien ? Mais dans ce cas, comment faut-il que je retourne la date dans la cellule, sous quel format ?

Remarque: je ne vois pas ce qui change entre Year(Date) et Year(Now)..

 

[mth]

Re : Comparaison de mois

re à tous

Date va te donner la date système, Now te donne la date et l'heure système

(en formule, tu as AUJOURDHUI() et MAINTENANT())

Bon après-midi,

mth

 

[m@tix]

Re : Comparaison de mois

Ok, merci mth !

Finalement, que faut-il que je récupère en A1 pour que le code de Dranreb fonctionne ? Pour l'instant, ça ne semble pas fonctionner.. J'ai testé en mettant 12 en A1, la macro ne se lance pas..

 

[tototiti2008]

Re : Comparaison de mois

Re,

et si tu mets 01/12/2010, ça donne quoi ?

 

[m@tix]

Re : Comparaison de mois

Ca ne passe pas mieux, j'ai placé un espion à l'exécution, le contenu de la cellule n'est pas reconnu comme un nombre (expression non définie dans le contexte)

 

[tototiti2008]

Re : Comparaison de mois

Re,

essaye le code (avec une date en A1)

If Date > Dateserial(year(range("A1").value),month(range("A1").value)+6,day(range("A1").value)) then

 

[m@tix]

Re : Comparaison de mois

C'est parfait ! Merci beaucoup tototiti !