formats heures minutes secondes

Hervé

XLDnaute Barbatruc

• 3 Juillet 2006

• #16

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.

PHP:

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

 

Vote positif 0 Vote négatif

J

jose pasledire

Guest

• 3 Juillet 2006

• #17

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.

 

Vote positif 0 Vote négatif

J

jose pasledire

Guest

• 3 Juillet 2006

• #18

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

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 3 Juillet 2006

• #19

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.

Â+

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 3 Juillet 2006

• #20

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

 

Vote positif 0 Vote négatif

J

jose pasledire

Guest

• 3 Juillet 2006

• #21

Re : formats heures minutes secondes

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

 

Vote positif 0 Vote négatif