Calcul entre deux dates

Bonjour
J'utilise un code pour calculer entre deux dates dans un formulaire Excel. Le code en question fonctionne mais j'aimerais le perfectionner, dans textbox16 et textbox17 à l'initialisation du formulaire textbox16 et 17 sont automatiquement remplis. Textbox16 et rempli par la valeur de la dernière cellule de la colonne Q tandis que textbox17 et rempli par : Me.TextBox17 = Me.TextBox1 et textbox1 = date. Pour calculer la différence entre ces deux textbox je suis obligé de modifier manuellement une de ces textbox et après le résultat s'affiche bien dans textbox13. Je souhaiterais que ce calcul se fasse sans avoir besoin d'une manipulation manuelle. Je ne sais même pas si cela est possible. je met le code en question.[CODE]

Code:

---

1 2 3 4 5 6 7 8

['Pour recalculer le temps d'utilisation du produit ROUTE   'Permet de calculer la différence entre la date du début du produit Route et la date du jour Private Sub TextBox16_AfterUpdate() Application.ScreenUpdating = False Me.TextBox13 = DateDiff("m", CDate(Me.TextBox16), CDate(Me.TextBox17)) Application.ScreenUpdating = True End Sub/CODE]

---

Bonjour,

Citation:

---

Pour calculer la différence entre ces deux textbox je suis obligé de modifier manuellement une de ces textbox et après le résultat s'affiche bien dans textbox13

---

Qu'entendez-vous par cette modification manuelle ?

Bonjour
Pour que le calcul se fasse je suis obligé d'effacer la date dans une des deux textbox et retaper la même date et après le calcul se fait

Bonjour,

Comme ceci:

Code:

---

1 2 3

DateDeb = CDbl(CDate(TextBox16.Value)) DateFin = CDbl(Date) Me.TextBox13 = Format(DateFin - DateDeb, "m")

---

Cdlt

je viens de tester votre code et un message apparait : erreur de syntaxe sur cette ligne : Me.TextBox13 = Format(DateFin - DateDeb, "m")Application.ScreenUpdating = True[CODE]

[Private Sub TextBox16_AfterUpdate()
Application.ScreenUpdating = False
DateDeb = CDbl(CDate(TextBox16.Value))
DateFin = CDbl(Date)
Me.TextBox13 = Format(DateFin - DateDeb, "m")Application.ScreenUpdating = True
End Sub
/CODE]

Bonsoir,

La textbox16 récupère la date de début inscrite dans la dernière ligne de la colonne A de la feuille "Source", êtes-vous sûr que la dernière cellule de votre tableau n'est pas vide?

Cdlt

bonsoir
La dernière cellule contient bien une date

Pourtant:
Pièce jointe 646155

Attention la dernière ligne du tableau structuré correspond-elle à la réelle dernière ligne des données?, sinon déposé le fichier.

Bonsoir ARTURO83
Si dans la feuille source vous modifier la date dans la colonne A en mettant 01/05/2023 et dans la colonne B, la date du jour, le résultat est de 6 mois si vous calculez manuellement
mais en ouvrant le formulaire textbox16 contient bien 01/05/2023 et textbox17 la date du jour, mais le résultat dans textbox13 et toujours de 1 à la place de 6. Si vous effacez la date de textbox16 et que vous remettez 01/05/2023, alors textbox13 affiche bien 6. je met le fichier si besoin.Pièce jointe 646156

Mais enfin, dans la macro d'initialisation, vous forcer le contenu de la textbox13 alors qu'il doit être le résultat d'un calcul.
Votre macro devrai être comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'Pour initialiser le formulaire FrmVoiture Private Sub UserForm_Initialize() Application.ScreenUpdating = False With Worksheets("Source") DerLig = .Cells(Rows.Count, 3).End(xlUp).Row 'donnée de la sortie TextBox17.Value = Format(CDate(Now), "dd/mm/yyyy") TextBox17 = Format(CDate(Date), "dd/mm/yyyy") TextBox19 = Format(CDate(Date), "dd/mm/yyyy") Me.TextBox16 = .Range("A" & DerLig) 'Date du début Route DateDeb = CDbl(CDate(TextBox16.Value)) DateFin = CDbl(Date) Me.TextBox13 = Format(DateFin - DateDeb, "m") - 1 Me.TextBox18 = .Range("D" & DerLig) 'Date du début Vtt Me.TextBox14 = .Range("F" & DerLig) 'Difference Vtt End With Application.ScreenUpdating = True End Sub

---

Bonsoir
Votre code fonctionne parfaitement. Merci depuis le temps que je cherche. je marque résolu

Pensez aussi à mettre en résolu dans les autres forums.
Cdlt