changer numéro en fonction de date

PY · 16 Septembre 2002

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

STéphane · 16 Septembre 2002

bonjour

remplace today() par range("taplage").value

If Date > Evaluate("DATE(YEAR(TODAY()),1,1)") Then
MsgBox "date supérieure"
End If

et cela devrait passer

Bye
Stéphane

PY · 16 Septembre 2002

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

PY · 16 Septembre 2002

oups ! voila le classeur

STéphane · 16 Septembre 2002

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

PY · 16 Septembre 2002

merci stephane

changer numéro en fonction de date

PY

Guest

STéphane

Guest

PY

Guest

PY

Guest

Pièces jointes

STéphane

Guest

PY

Guest

Discussions similaires