changer numéro en fonction de date

P

PY

Guest
Bonjour a tous

je demande a un utilisateur de rentrer un numéro dans un textbox via un userform. lors du traitement de ce numéro je voudrais qu"il compare la date actuelle au premier jour d'une année (01/01/2003 ou 01/01/2004, etc...)
si la date actuelle est égale au premier jour d'une année alors le numéro du textbox doit etre mis dans la cellule a1 sinon rien.

voyez-vous une solution a mon problème ?

PY
 
P

PY

Guest
salut Stéphane,

en fait a aucun moment on ne voit apparaitre de date (voir fichier joint). si la date du syteme (en fait aujourd'hui) est égale a un début d'années (1 janvier 2003, 2004, 2005 ou 2006) alors le numéro du textbox doit etre écrit en A1 (par exemple)

voila ce que je voudrais faire

PY
 
S

STéphane

Guest
bonjour

If Date = Evaluate("DATE(YEAR(TODAY()),1,1)") Then
MsgBox "Date système est le premier jour de cette année"
ActiveSheet.Cells(1, 1).Value = TextBox1
Else
MsgBox "Date système N'EST PAS le premier jour de cette année"
End If
 

Discussions similaires

Réponses
25
Affichages
664

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla