afficher 10 éme de seconde dans un userform

JBARBE · 23 Novembre 2018

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 · 23 Novembre 2018

JBARBE à dit:
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 · 23 Novembre 2018

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

VB:

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

JBARBE · 23 Novembre 2018

Bonjour Dranreb,
Ok ! ça marche !
Merci !

Dranreb · 23 Novembre 2018

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.

VB:

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 · 23 Novembre 2018

Dranreb à dit:
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 !

afficher 10 éme de seconde dans un userform

JBARBE

XLDnaute Barbatruc

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

Discussions similaires