Remplir automatiquement un textbox en fonction de 2 autres

Bonjour à tous,

j'ai un userform avec plusieurs textbox je souhaiterai que se remplisse automatiquement un des textbox

textbox 1 je rentre la date ex : 04/05/2018

textbox 2 je rentre la durée de validité en années ex : 10

textbox 3 je souhaiterai qu'automatiquement soit affiché dedans le résultat soit pour l'exemple ici : "04/05/2028"

Merci de votre aide

Cordialement.

Salut Ced91300

Voici

Private Sub TextBox2_AfterUpdate()
  ' Petites vérifications avant
  If Not IsDate(Me.TextBox1) Then
    MsgBox ("Merci de saisir une date au format JJ/MM/AAAA")
    Exit Sub
  End If
  If Not IsNumeric(Me.TextBox2) Then
      MsgBox ("Merci de saisir un nombre d'année(s)")
    Exit Sub
  End If
  ' Si tout est ok, calculer la date de fin
  TextBox3.Value = DateSerial(Year(TextBox1) + Val(TextBox2), Month(TextBox1), Day(TextBox1))
End Sub

Edit : reprise du code @ARCHER

A+

Bonjour

moi je préfère comme ca HI

TextBox3.Value = DateSerial(Year(TextBox1) + Val(TextBox2), Month(TextBox1), Day(TextBox1))

A+

Maurice

Salut Archer,

Oh que oui, tu as 10.000 fois raison, j'avais peur que ça ne fonctionne pas, mais si, c'est nickel

Bonjour,

Merci à tous pour votre aides cela fonctionne nickel, par contre y'a t'il moyen que la textbox change automatiquement (focus), la je suis obliger de valider mon formulaire pour que ca change?

Merci

Cédric

Salut

ced91300 a écrit :

par contre y'a t'il moyen que la textbox change automatiquement (focus), la je suis obliger de valider mon formulaire pour que ca change?

SI il suffit d'utiliser la méthode SetFocus

MonControle.SetFocus

bonjour

j'aimerais bien voir ton fichier pour faire une vérification

A+

Maurice