formats heures minutes secondes

[jose pasledire]

Bonjour,
Je ne suis pas très calé sur Excel et je galère un peu pour trouver une formule qui permettrait de changer le format texte de toute une colonne en format heures, minutes secondes et pouvoir les additionner. Exemple
Format texte existant :
12s
15m14s
18h16m17s
etc. (La cellule comporte soit 3 soit 6 soit 9 caractères)

Il faudrait obtenir le format nombre suivant afin de le additionner ensuite :
00:00:12
00:15:14
18:16:17
Pouvez-vous m'aider ?
Merci d'avance

 

[Hervé]

Re : formats heures minutes secondes

bonjour tout le monde

j'avais fait une fonction personnalisé mais la formule de jocelyn est bien plus simple, je la fournis quand meme car elle va un peu plus loin dans la reconnaissance de caractère.

Public Function heures(cellule As Range)
Dim i As Byte, j As Integer
Dim tablo(1 To 3, 1 To 2)

tablo(1, 1) = InStr(1, LCase(cellule), "h")
tablo(2, 1) = InStr(1, LCase(cellule), "m")
tablo(3, 1) = InStr(1, LCase(cellule), "s")

For i = 1 To 3
    If Not tablo(i, 1) = 0 Then
        For j = tablo(i, 1) - 1 To 1 Step -1
            If IsNumeric(Mid(cellule, j, 1)) Then '
                tablo(i, 2) = tablo(i, 2) & Mid(cellule, j, 1)
            Else
                Exit For
            End If
        Next j
    Else
        tablo(i, 2) = 0
    End If
Next i

heures = TimeSerial(StrReverse(tablo(1, 2)), StrReverse(tablo(2, 2)), StrReverse(tablo(3, 2)))
End Function

l'avantage de cette fonction, c'est quelle autorise des ordres de saisie différent, par exemple : 4s8m7h, ou des erreurs de saisies (8hH4mm5s)

salut

 

[jose pasledire]

Re : formats heures minutes secondes

Alors là, chapeau, Jocelyn !!
C'est parfait.
Le résultat est atteint et mon problème est résolu.
Milles mercis à tous.

 

[jose pasledire]

Re : formats heures minutes secondes

Alors là, chapeau, Jocelyn !!. C'est fort !
C'est la réponse à mon problème.
Encore un grand merci et une bonne journée à tous

 

[andré]

Re : formats heures minutes secondes

Salut Jocelyn,

Il me semble que la deuxième condition de la fonction SI est superflue : NBCAR(A1)> 3

A part cela, très belle adaptation.

Â+

 

[Jocelyn]

Re : formats heures minutes secondes

re,
Bonjour Hervé,

Merci pour le compliment André et tu as tout a fait raison NBCAR(A1)> 3 de la 2° condition et tout a fait inutile

Jocelyn

 

[jose pasledire]

Re : formats heures minutes secondes

C'est vraiment parfait.
J'ai vraiment apprécié toute votre aide.
Ca fait plaisir !
Amicalement