Format heure dans un Userform

[benadry]

Bonjour le forum,

Je me bats depuis quelques temps déjà avec un problème, pourtant déjà maintes fois évoqué dans les forums et je ne trouve pas de solution à mon problème.

J'ai une base de données avec des horaires de travail sur le format "39:00:00" et quand les données sont intégrées dans l'userform, cela donne des nombre décimaux (exemple : "1,625" pour "39:00:00").

J'ai essayé de modifier le format selon ce que dit Excel : "[h]:mm:ss, de multiplier par 24, de me mettre en format texte ...

Rien ne fonctionne.

Quelqu'un pourrai-il me dépanner ?

Merci d'avance.

Cordialement.

 

[Dranreb]

Re : Format heure dans un Userform

Bonjour.

J'ai eu bien du mal à trouver ça :

Private Sub Txt14_Change()
Dim Jours As Double
   If InStr(Txt14.Text, ":") = 0 Then
      Jours = CDbl(Txt14.Text)
      Txt14.Text = WorksheetFunction.Text(Jours, "[h]:mm:ss")
      End If
End Sub

 

[benadry]

Re : Format heure dans un Userform

Bonjour Dranreb,

Merci pour le mal que tu t'es donné : ça marche très bien !

Cordialement.