(RESOLU par PIERROT) Calculer la duree entre deux dates dans textbox

[chaelie2015]

Bonjour Forum
Dans mon UserForm,je souhaite afficher en temps réel la durée ( dif entre deux dates dans deux TextBox) dans un TextBox
ci dessous un code

Private Sub TextBox10_Change()'---date Départ
es
End Sub

Private Sub TextBox11_Change()'----Date arrivée
es
End Sub


Private Sub TextBox12_Change()'----durée nbr de jours
es
End Sub
Sub es()
 If TextBox10 <> "" And TextBox11 <> "" Then _
 TextBox12.Value = IsDate(TextBox11) - IsDate(TextBox10) Else TextBox12 = ""
 End Sub

Merci par avance
SALUTATIONS

 

[Modeste geedee]

Re : Calculer la duree entre deux dates dans textbox

Bonsour®

😕
Isdate est une fonction Booléenne !!!
Plutôt utiliser :
If IsDate(TextBox10) And IsDate(TextBox11) Then _
TextBox12.Value = CDate(TextBox11) - CDate(TextBox10) Else TextBox12 = ""
CDate ...

 

[Pierrot93]

Re : Calculer la duree entre deux dates dans textbox

Bonjour,

modifie peut être comme suit :

Sub es()
 If TextBox10 <> "" And TextBox11 <> "" Then _
 TextBox12.Value = CDate(TextBox11) - CDate(TextBox10) Else TextBox12 = ""
 End Sub

BONNE JOURN2E
@+

 

[chaelie2015]

Re : Calculer la duree entre deux dates dans textbox

Bonjour modeste,Pierrot
merci pour les réponse , mais ça n'a pas fonctionné correctement
ci joint un fichier

 

[Pierrot93]

Re : Calculer la duree entre deux dates dans textbox

Re,
bonjour Modeste GD

ton fichier est vide...

 

[chaelie2015]

Re : Calculer la duree entre deux dates dans textbox

Re,
bonjour Modeste GD

ton fichier est vide...

Re
désolé
ci joint le bon fichier
A+

 

[Pierrot93]

Re : Calculer la duree entre deux dates dans textbox

Re,

avec ceci :

Private Sub TextBox1_Change()
If IsDate(TextBox1) Then es
End Sub
Private Sub TextBox2_Change()
If IsDate(TextBox2) Then es
End Sub

 

[chaelie2015]

Re : Calculer la duree entre deux dates dans textbox

Re
super , merci pierrot
mon souci est réglé
SALUTATIONS