Valeur entre deux dates

Bonjour,

Je vous remercie d'ores et déjà de l'aide et de l’intérêt que vous voudrez bien apporter à mon interrogation.

La question est la suivante:

Dans un Userform1 j'ai les valeurs suivantes.

- DTPicker1 ou je choisis la date voulue.

- TextBox4 qui affiche la date du jour.

Ma question est quel est le code qui me permettrait d' afficher dans la TextBox5 dans le même UserForm1

la différence en jours entre DTPicker1 et TextBox4.

Ex: DTPicker1 = 21.06.2021

TextBox4 = 22.06.2021

(Obtenir en TextBox5 = 1 jour)

Je vous souhaite une très bonne fin de journée et encore merci!! de toute l'aide que vous pourriez m'apporter

Bonjour Tiago, le forum,

Peut-être ainsi :

Private Sub DTPicker1_Change()
 If TextBox4 <> "" Then TextBox5 = Abs(CDate(DTPicker1) - CDate(TextBox4))
End Sub

Cordialement,

Merci

J’essaye cela dès que possible et vous tiens au courant ...

Quoi qu’il en soit je vous remercie déjà d’avoir pris du temps pour me répondre et vous souhaite une excellente fin de journée 😊👍

Bonjour,

La différence de date fonctionne bien à l'ouverture de mon UserForme.

DTPpicker1 = 22.06.2021 TextBox4 = 23.06.2021 cela donne bien TextBox5 =1

Mais lorsque j'essaye de changer la date de mon DTPpicker1 dans l'Userform TextBox reste toujours =1

Ex: DTPpicker1 = 20.06.2021 TextBox4 = 23.06.2021 TextBox5 =1 (au lieu de 3)

Peut-on faire varier la différence entre les deux dates dans l'UserForm?

Néanmoins merci d'ores et déjà de votre aide qui à été précieuse à l'avancement de mon projet

Re,

Merci pour le retour,

Mais lorsque j'essaye de changer la date de mon DTPpicker1 dans l'Userform TextBox reste toujours =1

Bizarre, je n'ai pas ce problème...

Cordialement,

Genial!!!

Cela fonctionne correctement

En fait il s'agissait d'une erreur de ponctuation venant de ma part.

Merci de toute votre disponibilité ainsi que de tout le temps que vous m'avez accordé.