Format Heure dans TextBox

[AzoR]

Bonjour bonjour!

J'ai un petit soucis,

Je m'explique : je suis débutant en VBA, et j'ai un soucis avec un format d'heure dans une textbox d'un userform.
En gros je souhaiterai avoir un TextBox ou même l'écriture dans une cellule excel n'importe, avec un temps qui s'actualise toutes les secondes ou toutes les 5 secondes.

Dans mon programme j'ai :

debut = Time

Dim D1 As Date
Dim D2 As Date

D1 = CDate(debut)
D2 = CDate(Time)

'UserFormTemps.TextBoxTemps.Value = Format(Date, "hh:nn:ss")
UserFormTemps.TextBoxTemps.Text = FormatDateTime(CDate(D2 - D1), vbShortTime)

et à la fin :

fin = Time ' Calcul du temps total d'acquisition + de traitement
Temps = fin - debut
MsgBox ("C'est fini !" & Chr(10) & Chr(10) & "Temps de traitement total : " & Temps & Chr(10))

Je voudrais donc que quand je clique sur mon bouton qui démarre mon acquisition et qui fait "debut = Time", que ma Textbox s'actualise assez souvent pour avoir un suivi de mon temps de mon acquisition afin de savoir si j'ai sélectionné par exemple 5mn, que je puisse voir ( en plus d'une progressbar que j'ai faite ) à combien de temps j'en suis.

Or ce que j'ai essayer plus haut en QUOTE ne fonctionne pas et me renvoi un format scientifique dans ma TextBox au lieu d'un format hh/mm/ss ou hh/nn/ss.

Pouvez-vous m'aider s'il vous plait ?
Sa doit être un truc tout con mais je suis vraiment nul en VBA

Merci d'avance !!!!!

 

[AzoR]

Re : Format Heure dans TextBox

PS : mon fichier est trop gros pour que je puisse vous le joindre ! Désolé !