TextBox2=âge

Bonjour,

Encore une fois j’ai besoin de votre aide !

Voilà, dans un UserForm j’ai 2 TextBox, j’aimerai que quand je rentre une date de naissance dans la TextBox1 l’âge actuel de la personne s’affiche sur TextBox2.

Quelqu’un peut m’aider svp ?

Bonjour

Une réponse

Private Sub CommandButton1_Click()
  Me.TextBox2 =  DateDiff("yyyy", CDate(Me.TextBox1.Value), Date)
End Sub

Merci pour ton aide Banzai64, ça me le fait bien quand le clique est fait est ça le met sur la feuil, mais l'idéal serai que ça l'affiche directement sur la TextBox2 après appui sur la touche "tab" par exemple.

est-ce possible ??

Bonjour

A tester

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Me.TextBox2 = DateDiff("yyyy", CDate(Me.TextBox1.Value), Date)
End Sub

merci