VBA addition d'une date et d'un nombre

Bonsoir,

je tente de créer un userform avec Textbox "Jours" qui contiendrait un nombre et la date du jour.

pour le userform, c'est bon.

j'ai un soucis au moment d'additionner la date du jour avec un nombre, lorsque je clique sur le bouton valider.

Le total me donnerai la date du futur évènement qui s'afficherai dans une Texbox "JourEvent".

j'ai essayer avec ce code :

Private Sub Test_Click()

Dim Jours As Long
Dim JourEvent As Date
Dim DateAuj As Date

Jours = CLng(Me.txtNbJours.Value)
DateAuj = Format(Now(), "Long Date")

JourEvent = Jours 'DateAdd("d", Jours, Format(Now(), "Long Date"))
Me.JourEvent.Value = JourEvent

End Sub

Malheureusement, ça ne fonctionne pas....

J'ai essayé de suivre divers tuto, mais j'ai du oublié quelque chose.

Quelqu'un pourrait-il me venir en aide?

Cordialement.

Bonsoir

Voir

modif :

DateAuj = Date

    JourEvent = DateAuj + Jours

Bye

bonjour

a tester en une ligne

JourEvent.Value = DateSerial(Year(Now), Month(Now), Day(Now) + Val(txtNbJours.Value))

A+

Maurice

merci pour votre aide,

la méthode de Patty5046 fonctionne bien

Par contre celle de Archer ne fonctionne pas, j'ai une erreur de compilation, y a t il une variable a déclarer?

Bonjour Elsabio, Archer, le forum

Supprime cette ligne :

Dim JourEvent As Date

Si JourEvent est un textbox, tu ne peux pas le déclarer

Cela devrait marcher mieux avec la formule d'Archer en supprimant la ligne citée

Bye

bonjour

on évite de renommer les textbox ses plus facile a comprendre

et sans model de ton fichier ses pas facile a comprendre

avec se code tu va comprendre ?

Private Sub TextBox1_keyPress(ByVal KeyAsCii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAsCii)) = 0 Then KeyAsCii = 0: Beep
End Sub

Private Sub TextBox1_Change()
TextBox2.Value = DateSerial(Year(Now), Month(Now), Day(Now) + Val(TextBox1.Value))
End Sub

A+

Maurice

Merci à vous pour cette explication