Date dans textbox + nombre de jours dans textbox 2

Bonjour ,

Je n'arrive pas à faire mon userform et je viens vous demander de l'aide!

J'ai donc un userform avec 3 texbox .

Dans le premier textbox je dois renseingner une date.

Dans le deuxieme textbox un nombre de jours .

Dans le troisième textbox le résultat sous forme de date de textbox 1 +textbox 2 .

En exemple , si le textbox 1 indique 02/05/2018, et si le textbox 2 indique 10 , le textbox 3 devra indiquer 12/05/2018.

Merci si vous pouvez m'aider !

Bonsoir,

Sub MaJdate()
    If IsDate(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
        TextBox3.Value = CDate(TextBox1.Value) + CInt(TextBox2.Value)
    Else
        TextBox3.Value = ""
    End If
End Sub

Private Sub TextBox1_AfterUpdate()
    MaJdate
End Sub

Private Sub TextBox2_AfterUpdate()
    MaJdate
End Sub

Cordialement.