Bonsoir,
Si correspondance avec tes déclarations assurée, soit présence de m ou s ou les deux et de chiffres non parasités par d'autres caractères, une fonction personnalisée peut convenir :
Function CONVTXTSEC(ms As String) As Long
Dim cms
Application.Volatile
If InStr(ms, "s") > 0 Then
cms = Replace(ms, "s", "")
If InStr(ms, "m") > 0 Then
cms = Split(cms, "m")
CONVTXTSEC = Val(cms(0)) * 60 + Val(cms(1))
Else
CONVTXTSEC = Val(cms)
End If
Else
CONVTXTSEC = Val(ms) * 60
End If
End Function
Il me semble que ce n'est pas ton premier calcul atypique ?
Cordialement.