Additionner une date et une valeur

Question

Bonjour,

Je veux r&#233;cup&#233;rer une date &#224; l'aide d'une text box puis je dois ajouter 4 ans &#224; cette date mais la fonction DateAdd plante &#224; cause surement de mon format de a. Comment faire?

----------------------------------------------------------------------------------
Private Sub TextBox3_Change()
Dim a, b


a = UserForm1.TextBox3
b = DateAdd("d", 1461, a)
[A1] = b


End Sub
-----------------------------------------------------------------------------------

jrivet · Answer

Salut,

Peu etre que cela vient du fait que tu as mis ceci dans l'&#233;v&#232;nement Change du TextBox.
Si l'utilisateur est en trian de saisir la date et qu il n'a pas finit, a ne correspond pas a un format de date valide

Ensuite il serait plus conseiller de declarer les variable qui doivent contenir des date Comme Date

Dim MaDate As Date
Dim DateFuture As Date
MaDate = CDate(TextBox1.Text)
DateFuture = DateAdd("yyyy", 4, MaDate)
ActiveWorkbook.ActiveSheet.Range("A1").Value = CStr(DateFuture)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

OneHacker · Answer

Une id&#233;e : en prenant compte de ce que dit jrivet, laisse le code dans l'&#233;venement de la Change de la TextBox, mais dans un Try...Catch sans mettre de code dans l'interception de l'erreur.

Redman

asecher · Answer

Alors l&#224;, tu me t... le c.., OneHacker

Quoi t'est-ce le "Try ... Catch", c'est en VB6 ce truc ?

Cordialement,

Alain 31
P.S. (
Dim strLettresManquantes As String
strLettresManquantes = "rouul"
Msgbox FuncRemplaceLesPoints("t... le c..",strLettresManquantes)
'Ah, y a pas la fonction FuncRemplaceLesPoints....
)

OneHacker · Answer

Non c'est en VB.Net il faut pr&#233;ciser chaque fois si c'est du VB.Net ou VB6 !!
Combien de fois va-t-on le r&#233;p&#233;ter ??!!

Redman

cs_bertrand81 · Answer

Merci Julien

Additionner une date et une valeur

5 réponses

Discussions similaires