Convertir des heures au format 1h25min3s au format 01:25:03

[juanmarco]

Bonjour,

Depuis peu mes factures de téléphonie comportent non plus les temps au format Excel mais sous la forme 39s, ou 38min1s ou 1h24min3s....
J'ai trouvé comment transformer par les formules suivantes chacun des cas de figure mais je n'arrive pas à trouver une formule qui soit valable pour tous les cas de figures, (uniquement des secondes, min+s ou h+min+s)

Pour l'hypothèse ou j'ai en A1 la valeur :
1) 39s, j'utilise la formule =SI(TROUVE("s";A1);SUBSTITUE(A1;"s";"")/(3600*24))

2) 38min1s, j'utilise =SI(TROUVE("min";A2);SUBSTITUE(SUBSTITUE(A2;"min";":");"s";"")/60)

3) 1h24min3s, j'utilise
=SI(TROUVE("h";A3);SUBSTITUE(SUBSTITUE(SUBSTITUE(A3;"h";":");"min";":");"s";"")*1)

Merci de bien vouloir m'indiquer comment unifier ces formules dans une seule pour l'utiliser quelle que soit la durée en A1.

Merci d'avance.

 

[mapomme]

Re : Convertir des heures au format 1h25min3s au format 01:25:03

Bonjour à tous,
Une autre petite fonction:

Function Txt_Hor(x)
  Txt_Hor = Txt_Hor + Val(Left(x, InStr(x, "h"))) / 24
  x = Mid(x, InStr(x, "h") + 1)
  Txt_Hor = Txt_Hor + Val(Left(x, InStr(x, "min"))) / 1440
  x = Mid(x, InStr(x, "n") + 1)
  Txt_Hor = Txt_Hor + Val(Left(x, InStr(x, "s"))) / 86400
End Function