Microsoft 365 Différence en jours

[Marvin57]

Bonjour tout le monde,

j'ai un UserForm qui a trois Textbox.

Textbox1 dans lequel je rentre une date
Textbox2 dans lequel je rentre une date

Textbox3 qui devrait si possible me donner la différence entre ces deux dates , en jours.

Pourriez vous me guider sur cette demande S'il vous plaît.

Je vous remercie d'avance.

Marvin57

 

[Dranreb]

Bonjour.

TextBox3.Text = CDate(TextBox2.Text) - CDate(TextBox1.Text)

 

[Marvin57]

Bonjour.

TextBox3.Text = CDate(TextBox2.Text) - CDate(TextBox1.Text)

Bonjour Dranreb,

Merci d'avoir pris le temps pour me répondre.

Mais je place ce code comment S'il vous plaît ?

Marvin57

 

[Dranreb]

Par exemple dans des procédures de prises en charge de l'évènement Exit ou Change des TextBox.
Si vous joignez un classeur je vous y mettrais aussi un calendrier pour saisir les dates.

 

[Marvin57]

Par exemple dans des procédures de prises en charge de l'évènement Exit ou Change des TextBox.
Si vous joignez un classeur je vous y mettrais aussi un calendrier pour saisir les dates.

Re,

le calendrier je l'ai. Il me semble qu'il vient de vous.

Il faudrait me dire si vous voulez bien, comment je dois placer ce code.

 

[Dranreb]

Qu'est-ce qui vous bloque au juste ?
Sélectionnez le nom du contrôle dans la liste de gauche qui surmonte la fenêtre de code et choisissez dans celle de droite l'évènement que vous voulez prendre en charge, Enter, Change ou Exit, et mettez le code dans le modèle de Sub généré.

 

[Marvin57]

Qu'est-ce qui vous bloque au juste ?
Sélectionnez le nom du contrôle dans la liste de gauche qui surmonte la fenêtre de code et choisissez dans celle de droite l'évènement que vous voulez prendre en charge, Enter, Change ou Exit, et mettez le code dans le modèle de Sub généré.

 Private Sub TextBox3_Change()
 TextBox3.Text = CDate(Me.TextBox2.Value) - CDate(Me.TextBox1.Value)
 End Sub

J'ai placé le code de cette façon, mais il ne se passe rien

 

[Dranreb]

Ben, non, évidemment, ça ne sert à rien ! C'est lors d'un changement d'une des deux autres TextBox qu'il faut le faire. Ajouter des tests au cas où l'une ou l'autre serait encore vide.

 

[Marvin57]

Ben, non, évidemment, ça ne sert à rien ! C'est lors d'un changement d'une des deux autres TextBox qu'il faut le faire. Ajouter des tests au cas où l'une ou l'autre serait encore vide.

Maintenant je l'ai placé de cette façon et en core rien !

Private Sub TextBox2_Change()

   TextBox5.Text = CDate(TextBox3.Text) - CDate(TextBox2.Text)

End Sub

 

[Dranreb]

Vous devriez donner des noms mnémoniques à vos contrôles TBxDateDéb, TBxDateFin, TBxNbJrsDif par exemple.

 

[Marvin57]

Ben, non, évidemment, ça ne sert à rien ! C'est lors d'un changement d'une des deux autres TextBox qu'il faut le faire. Ajouter des tests au cas où l'une ou l'autre serait encore vide.

Re,

c'est lundi je devrai être plus en forme que ça !😕

C'est bon je l'ai placé de cette façon dans l'autre textbox évènement et oui cela fonctionne.

Merci à vous et surtout pour votre patience.

Marvin57

 

[Marvin57]

Vous devriez donner des noms mnémoniques à vos contrôles TBxDateDéb, TBxDateFin, TBxNbJrsDif par exemple.

Re Dranreb,

j'étais trop rapide !

j'ai un soucis, car avec ce code il ne me donne pas le bon compte.

Par ex. Si je donne la date d'aujourd'hui ( 15/01/2024) dans le textbox1 et la date de mercredi (17/01/2024) dans le textbox2, il me donne dans le textbox3 un 2 alors qu'il devrait donner un 3, comme cela fait trois jours.

Peut-on remédier à cela ?

 

[Marvin57]

Re,

c'est bon j'ai trouvé. J'ai mis les texbox au format date et tout fonctionne.

Merci à vous encore.
Marvin57

 

[patricktoulon]

re

Par ex. Si je donne la date d'aujourd'hui ( 15/01/2024) dans le textbox1 et la date de mercredi (17/01/2024) dans le textbox2, il me donne dans le textbox3 un 2 alors qu'il devrait donner un 3, comme cela fait trois jours.

Bonjour @Marvin57
faux car les donnée sont imcomplètes
une date c'est un jour , un mois , une année
mais en aucun cas une date dit a quel moment on est dans la journée de la date
donc vba considère la journée revolu par defaut
17/01/2024 -15/01/2024 pour vba c'est egal à
(15/01/2024 23:59:59 , 9999999....) -(17/01/2024 23:59:59 , 999999.....) à une nano seconde près
on a donc bien 2 jours révolus de différence à une nano seconde près
démonstration

Sub test()
d1 = CDate("15/01/2024 ") - TimeValue("23:59:59") 'on enlève les 24 heures de la journée
d2 = CDate("17/01/2024") + TimeValue("23:59:59") 'on ajoute les 24 heurs de la journée

MsgBox DateDiff("d", d1, d2)


End Sub

 

[Marvin57]

re

Bonjour @Marvin57
faux car les donnée sont imcomplètes
une date c'est un jour , un mois , une année
mais en aucun cas une date dit a quel moment on est dans la journée de la date
donc vba considère la journée revolu par defaut
17/01/2024 -15/01/2024 pour vba c'est egal à
(15/01/2024 23:59:59 , 9999999....) -(17/01/2024 23:59:59 , 999999.....) à une nano seconde près
on a donc bien 2 jours révolus de différence à une nano seconde près
démonstration

Sub test()
d1 = CDate("15/01/2024 ") - TimeValue("23:59:59") 'on enlève les 24 heures de la journée
d2 = CDate("17/01/2024") + TimeValue("23:59:59") 'on ajoute les 24 heurs de la journée

MsgBox DateDiff("d", d1, d2)


End Sub

Bonjour Patricktoulon,
Re Dranreb,

alors je dois changer quoi exactement dans le code S'il vous plaît ?