afficher 10 éme de seconde dans un userform

[JBARBE]

Bonjour,
Les 10 éme de secondes ne s'affiche pas dans ma boite de dialogue !
Je ne trouve rien sur le web !
La ligne de ma macro :
.TextBox1.Value = Format(TextBox1.Value, "hh:mm:ss.00")
Bonne journée !

 

[Modeste geedee]

Bonjour,
Les 10 éme de secondes ne s'affiche pas dans ma boite de dialogue !
Je ne trouve rien sur le web !
La ligne de ma macro :
.TextBox1.Value = Format(TextBox1.Value, "hh:mm:ss.00")
Bonne journée !

.TextBox1 = Sht.Cells(lig, 2).Text

 

[Dranreb]

Bonjour.
J'ai cette procédure dans un UFmChrono contenant un Private Temps As Double en secondes:

Private Sub Afficher()
   LabTemps.Caption = Format(Temps / 86400, "hh:mm:") & Format(Temps - Int(Temps / 60) * 60, "00.000")
   End Sub

 

[JBARBE]

Bonjour Dranreb,
Ok ! ça marche !
Merci !

 

[Dranreb]

Ben si vous avez un temps en jours, la parie hh:mm devrait pouvoir s'afficher directement, mais les secondes il faut de toute façon les calculer d'abord dans un double, en le multipliant par le nombre de secondes dans un jour.

Temps = Sht.Cells(lig, 2)
.TextBox1.Value = Format(Temps, "hh:mm:") & Format(Temps * 86400 - Int(Temps * 1440) * 60, "00.00")

Mais c'est vrai que c'est peut être plus simple de récupérer Sht.Cells(lig, 2).Text

 

[JBARBE]

Mais c'est vrai que c'est peut être plus simple de récupérer Sht.Cells(lig, 2).Text

En effet, il fallait y penser !
Merci et bonne journée !