Transformer durée texte en durée exploitable

Bonjour,

je souhaite transformer une durée texte actuellement sous format " XXminXXs" ou "XXs" en données du type MM:SS que je puisse exploiter (tri, somme...).

Exemple de tableau en PJ.

Merci d'avance pour vos lumières !

Gaëtan

25suivi-tel.xlsx (15.52 Ko)

Bonjour,

Conversion par macro :

Sub ConverTemps()
    Dim aa, tt, i%
    aa = ActiveSheet.Range("A1").CurrentRegion
    For i = 2 To UBound(aa)
        If InStr(1, aa(i, 1), "min") Then
            tt = Split(aa(i, 1), "min")
        Else
            tt = Split("0;" & aa(i, 1), ";")
        End If
        tt(1) = Replace(tt(1), "s", "")
        If tt(1) = "" Then tt(1) = 0
        tt = "0:" & Join(tt, ":")
        aa(i, 2) = TimeValue(tt)
    Next i
    With ActiveSheet.Range("A1").CurrentRegion
        .Value = aa
        .Columns(2).NumberFormat = "h:mm:ss"
    End With
End Sub

Clic sur le bouton pour tester...

Cordialement.

Merci bcp MFERRAND pour ton efficacité.

TOP !

Gaëtan

Rechercher des sujets similaires à "transformer duree texte exploitable"