.TextBox1 = Sht.Cells(lig, 2).TextBonjour,
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 !
Private Sub Afficher()
LabTemps.Caption = Format(Temps / 86400, "hh:mm:") & Format(Temps - Int(Temps / 60) * 60, "00.000")
End Sub
Temps = Sht.Cells(lig, 2)
.TextBox1.Value = Format(Temps, "hh:mm:") & Format(Temps * 86400 - Int(Temps * 1440) * 60, "00.00")
En effet, il fallait y penser !Mais c'est vrai que c'est peut être plus simple de récupérer Sht.Cells(lig, 2).Text