Calcule durée entre deux textbox

Ilino · 16 Février 2014

Bonjour
Dans USF j’ai 3 Textbox(arrivee_tb , envoie_tb et duree_tb)
Mon souci est lorsque je remplis les 2 textbox (arrivee_tb , envoie_tb) je dois avoir automatiquement la durée en jours (seulement) dans le 3eme textbox (duree_tb )
Mais avec les conditions suivantes :
- le Textbox envoie_tb et le Textbox arrivee_tb ne soient pas vide <> ‘’ ‘’
- le Textbox envoie_tb > = Textbox arrivee_tb
GRAzIE

sousou · 16 Février 2014

Re : Calcule durée entre deux textbox

Bonjour Ilino
Essai avec ce code dans le userform
J'ai un peu changer le nom des textbox, mais adapte à ta façon

Private Sub Envoi_Change()
If Me.Arrivée = "" Or IsDate(Me.Arrivée) = False Then
Me.Envoi = ""
Me.Arrivée.SetFocus
Exit Sub
End If

End Sub

Private Sub Envoi_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(Me.Envoi) = False Then
Me.Envoi = ""
Me.Envoi.SetFocus
Exit Sub
End If

If Me.Arrivée > Me.Envoi Then
MsgBox "L'envoi doit être supérieure à la date d'arrivée."
Exit Sub
End If
Me.nbj = DateDiff("d", Me.Arrivée, Me.Envoi)
End Sub

Regueiro · 16 Février 2014

Re : Calcule durée entre deux textbox

Bonjour le Forum, Ilino
Un exemple en PJ à défaut de fichier.

Code:

Private Sub date_fin_Change()
Me.TxB_Durée.Value = DateDiff("d", Me.date_début, Me.date_fin) + 1 & " Jours"
End Sub

A+

Ilino · 16 Février 2014

Re : Calcule durée entre deux textbox

Bonsoir
merci pour les reponses
mais j'ai constaté une chose que le nbr de jour ne ce calcule pas automatiquement ?
A+

Calcule durée entre deux textbox

Ilino

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

Regueiro

XLDnaute Impliqué

Ilino

XLDnaute Barbatruc

Discussions similaires

Calcule durée entre deux textbox

Ilino

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

Regueiro

XLDnaute Impliqué

Ilino

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency