Diferrence entre 2 dates
Bonjour,
j'aimerais calculer la durée entre 2 dates voici ce que quelqu'un m'a conseillé :
Private Sub TB14_Change()
'exemple pour format date xx/xx/xxxx
Dim Valeur As Byte
TB14.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TB14)
If Valeur = 2 Or Valeur = 5 Then TB14 = TB14 & "-"
End Sub
Private Sub TB15_Change()
'exemple pour format date xx/xx/xxxx
Dim Valeur As Byte
TB15.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TB15)
If Valeur = 2 Or Valeur = 5 Then TB15 = TB15 & "-"
End Sub
Private Sub TB15_afterupdate()
Dim dateArrivee As Date
Dim dateDepart As Date
Dim nbJours As Integer
dateArrivee = TB14
dateDepart = TB15
nbJours = (CDate(dateDepart)) * 1 - (CDate(dateArrivee)) * 1
TB16.Value = nbJours
End Sub
sauf que... dans le textbox rien ne s'affiche. dans le textbox final, j'ai essayé de changer TB15 par TB16. rien. et j'ai essayé le format nombre.... toujour rien. Qui peux m'aider ?
merci BCP
bonjour
par simple formule = datefin - datedébut
et un bout de code pour lire et afficher la valeur
plus simple non ?
amitiés
Bonjour
merci pour la réponse, mais le code complet donnerait quoi ? (suis pas top en VBA)
merci
ah bah je ne sais pas
depuis 20 ans + que je fais des fichiers tableurs pro, je n'ai jamais eu besoin de VBA
si tu sais faire un userform simple, tu devrais t'en tirer
(car la formule fait le calcul sur la feuille et non dans VBA)
amitiés
Bonjour,
Essaie ainsi :
'Date de depart
Private Sub TB14_Change()
'exemple pour format date xx-xx-xxxx
Dim Valeur As Byte
TB14.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TB14)
If Valeur = 2 Or Valeur = 5 Then TB14 = TB14 & "-"
End Sub
'Date arrivee
Private Sub TB15_Change()
'exemple pour format date xx-xx-xxxx
Dim Valeur As Byte
TB15.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TB15)
If Valeur = 2 Or Valeur = 5 Then TB15 = TB15 & "-"
End Sub
'Duree (Date arrivee - Date depart)
Private Sub TB15_AfterUpdate()
TB16.Value = CDate(TB15.Value) - CDate(TB14.Value)
End SubBonsoir,
bon... quand ca veut pas... ca veut pas
même l'autre post que j'ai mis, je ne parviens pas à actionner le tout.
je regarde ça un peut plus tard
merci