Calcule durée entre deux textbox

[Ilino]

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]

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]

Re : Calcule durée entre deux textbox

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

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]

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+