Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

chaelie2015

XLDnaute Accro
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
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
 
Dernière édition:

Modeste geedee

XLDnaute Barbatruc
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 ...
 
Dernière édition:

Pierrot93

XLDnaute Barbatruc
Re : Calculer la duree entre deux dates dans textbox

Bonjour,

modifie peut être comme suit :
Code:
Sub es()
 If TextBox10 <> "" And TextBox11 <> "" Then _
 TextBox12.Value = CDate(TextBox11) - CDate(TextBox10) Else TextBox12 = ""
 End Sub

BONNE JOURN2E
@+
 

chaelie2015

XLDnaute Accro
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
 

Pièces jointes

  • CHARLIE diff date dans TextBox.xlsm
    7.8 KB · Affichages: 67

Pierrot93

XLDnaute Barbatruc
Re : Calculer la duree entre deux dates dans textbox

Re,

avec ceci :
Code:
Private Sub TextBox1_Change()
If IsDate(TextBox1) Then es
End Sub
Private Sub TextBox2_Change()
If IsDate(TextBox2) Then es
End Sub
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…