Bonjour,
Une proposition de fonction personnalisée à coller dans un module standard de l'éditeur VBA :
Function ConvertTextToHour(Texte As String) As Single
Dim Res As Single
'Heure(s)
If Texte Like "*h*" Then
Res = Split(Texte, "h")(0) / 24
Texte = Split(Texte, "h")(1)
End If
'Minute(s)
If Texte Like "*mn*" Then
Res = Res + Split(Texte, "mn")(0) / 1440
Texte = Split(Texte, "mn")(1)
End If
'Seconde(s)
If Texte Like "*s" Then Res = Res + Split(Texte, "s")(0) / 86400
ConvertTextToHour = Res 'Résultat
End Function
A utiliser ensuite comme une fonction classique :
=ConvertTextToHour(A2)
PS : résultat numérique à afficher au format horaire pour que ça ressemble à quelque chose !