Date

[duplaly]

Bonjour
je veux écrire cette formule dans mon userform pour afficher le nombre de jours en textbox2 aussitôt que je rentre une date antérieure dans mon textbox1

je pensais à quelque du genre

Private Sub TextBox1_Change()
TextBox2.Value = Now - TextBox1.Value
End Sub

 

[Roland_M]

Re : Date

bonsoir,

peut être qq chose comme ça !?
la valeur sera mise en sortant du TextBox1 !

Private Sub TextBox1_AfterUpdate()
On Error Resume Next
TextBox2.Value = DateDiff("d", Now, TextBox1.Value)
End Sub

 

[Modeste geedee]

Re : Date

Bonsour®
pour le fun ...
peut-être encore comme ceci :

Private Sub TextBox1_AfterUpdate()
' ------------en jour décimal
TextBox2.Value = Format(Now - CDate(TextBox1.Value), "0.00")
' ------------en jour et heure
'TextBox2.Value = Round(Now - CDate(TextBox1.Value), 0) & "jr " & Format(Abs(Now - CDate(TextBox1.Value)), "hh:mm")
 End Sub

 

[duplaly]

Re : Date

Merci à tous, cela fonctionne.