Date par défaut dans un TextBox en Vba

Bonjour,

Dans un TextBox (TextBox2) je tape une date par exemple 01/05/2009
Je souhaiterai que dans le Textbox3 la date fin soit obligatoirement le 31/12/ de l'année en cours.
Comment dois-je faire ? Pouvez-vous m'indiquer le code ?
Merci par avance

Bonjour,

Code:

---

Me.TextBox1.Value = "31/12/" & Year(Now())

---

Je ne sais pas si c'est réellement ce que vous cherchez ... je n'ai pas très bien compris le problème ...

Bonjour,

Vous avez bien répondu, c'est exactement ce que je cherchais.
Merci

De rien:ccool:

Désolé, je me suis un peu précipité. Dans mon TextBox, ilfaut qu'il récupére l'année de la date saisie dans le TextBox2.
Encore toutes mes excuses

Bonjour.

Tu peux essayer

Code:

---

Me.TextBox2.Value = DateSerial(Year(Me.TextBox1), 12, 31)

---

Cordialement,

PGZ

Bonjour pgz,

Tout d'abord permet moi de te souhaiter une très bonne année 2009 ainsi qu'à ceux qui te sont chers.
Désolé d'avoir tarder à répondre, j'ai rencontré quelques soucis avec ma connextion.
Concernant ton code, il m'a aidé à résoudre mon problème.

Voici tel quel que le l'ai adpaté dans mon appli.

Code:

---

1 2	Me.TextBox3.Value = "31" & "/" & "12" & "/" & Year(DateSerial(2009, 12, 31))

---

Merci encore