Date + nb jour = nouvelle date

[antoine04]

Bonjour,

petit problème pour vous, grand problème pour moi.

Je cherche à faire une mini macro.
Mon but est d'avoir la date du jour dans une première textbox (Format(CDate(Now), "dd/mm/yyyy")), ensuite je rempli une deuxième textbox manuellement qui correspond à un nombre de jour, et je souhaite que la troisième textbox, soit la date du jour + le nombre de jour écris dans la textbox2.

En résumé :

textbox1 : date du jour automatique (Format(CDate(Now), "dd/mm/yyyy"))
textbox2 : nombre de jour à écrire manuellement
textbox3 : textbox1 + texbox2 (qui doit donner une date)

Mais je bloque, si quelqu'un connait la solution, je prend volontié ^^

Merci d'avance,

Antoine

 

[Odesta]

Re : Date + nb jour = nouvelle date

Bonjour

Est-ce que ceci correspond ?

Cordialement

Olivier

 

[antoine04]

Re : Date + nb jour = nouvelle date

Bonjour Odesta,

c'est exactement ce que je voulais.
Je ne connaissais pas le CStr.

Un grand merci à toi.

 

[Odesta]

Re : Date + nb jour = nouvelle date

Ah cool

d'ailleur c'est une bétise !!!
c'est Cint ou Clng (ou Cdbl) qu'il aurait fallu ! et comme je fais le test IsNumeric avant, cela ne sert même pas !

Private Sub TextBox2_Change()

If IsNumeric(Me.TextBox2.Value) Then
    Me.TextBox3.Value = Format(CDate(Now + Me.TextBox2.Value), "dd/mm/yyyy")
Else
    Me.TextBox3.Text = ""
End If

End Sub

Cordialement

 

[antoine04]

Re : Date + nb jour = nouvelle date

C'est du beau de faire des bétises...

D'un côté, cela fonctionnait quand même avec, mais je vais prendre ton nouveau code quand même.

Merci