Mettre dans un textbox année -1

Bonjour le forum,

Je viens vers vous afin d'obtenir de l'aide, je souhaite mettre dans Private Sub UserForm_Initialize() un code me permettant de mettre dans un textbox le premier jour de l'année précédente, c'est à dire :

Nous sommes en 2020, dans le premier textbox saisir automatiquement 01/01/2019, puis dans un deuxième textbox mettre le dernier jour de l'année précédente, c'est à dire 31/12/2019.

Avez-vous une solution à mon problème?

Bonjour,

A voir avec l'exemple

6robino.xlsm (16.72 Ko)

ahhh parfait, merci !!! et avec un dtpicker, cela fonctionne de la même façon?

Re,

Pour le DtPicker mettre ceci

Private Sub UserForm_Initialize()
  Me.DTPicker1.Value = DateSerial(Year(Date) - 1, 1, 1)
  Me.DTPicker2.Value = DateSerial(Year(Date) - 1, 12, 31)
End Sub

tout fonctionne merciiii

Rechercher des sujets similaires à "mettre textbox annee"