Date dynamique

[natbru]

Bonsoir à tous,

Petite question au sujet des dates :

J'ai écrit le code suivant :

Sub Alerte()

Dim Acompte_IS_15mars As Date

Acompte_IS_15mars = #3/15/2006#

If DateTime.Now  Acompte_IS_15mars - 15 
Then MsgBox ('Acompte IS au 15 mars ' & Format(Now, 'yyyy'))
End If

Le problème dans ce code est que l'an prochain, je serais obligé d'aller modifier l'année.

Je cherche donc comment remplacer l'année par la valeur de la cellule B3 d'une feuille donnée.

Ci-joint mon fichier exemple.

Merci pour votre aide. [file name=date_20060118193452.zip size=6402]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/date_20060118193452.zip[/file]

 

[Charly2]

Bonsoir Natacha,

Tu peux essayer cette instruction en l'adaptant à ton fichier :

Acompte_IS_15mars = DateSerial(Sheets('Feuil1').Range('B3'), 3, 15)

A+ 🙂

 

[natbru]

Bonsoir Charly,

Impeccable ca marche niquel.

Merci et à bientôt.

 

[natbru]

Re,

dans le même esprit,

pour que le mois soit = celui en cours

DateSerial(Sheets('DONNEES').Range('ANNEE'), mois en cours, 21)

merci pour ton aide

 

[Charly2]

Re,

Pour le mois en cours, tu peux écrire Month(Date).

@+

 

[natbru]

Ok, merci beaucoup pour ton aide.

Bonne fin de soirée.