Date

duplaly · 22 Mars 2015

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 · 22 Mars 2015

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 · 22 Mars 2015

Re : Date

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

VB:

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 · 23 Mars 2015

Re : Date

Merci à tous, cela fonctionne.

Date

duplaly

XLDnaute Occasionnel

Roland_M

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

duplaly

XLDnaute Occasionnel

Discussions similaires

Date

duplaly

XLDnaute Occasionnel

Roland_M

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

duplaly

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency