Substring like dans Excel....

[goldorax113]

Bonjour à tous,

j'ai une chaine de caractères "3h43m08s" que je voudrais transformer en date compréhensible par excel. Comment puis-je faire ?
Je n'ai pas trouvé d'equivalant au substring que l'on trouve dans certains langages...

Merci pour votre aide

 

[Raja]

Re : Substring like dans Excel....

Bonjour,

Tu voulais dire en format heure compréhensible par Excel ? Utilise la formule suivante pour transformer la chaîne contenue dans la cellule A1 :

=SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;"h";":");"m";":");"s";"")*1

Met la cellule de la formule au format heure.

 

[pierrejean]

Re : Substring like dans Excel....

bonjour goldorax113

Une solution par fonction personnalisée

Edit : Salut Raja

 

[vbacrumble]

Re : Substring like dans Excel....

Bonsoir

Sub macro()
Dim d$
Dim MyTime
Dim h As Long
Dim m As Long
Dim s As Long
d = "3h43m08s"
h = InStr(1, d, "h")
m = InStr(1, d, "m")
s = InStr(1, d, "s")
strH = CDbl(Mid(d, 1, h - 1))
strM = CDbl(Mid(d, h + 1, 2))
strS = CDbl(Mid(d, m + 1, 2))
MyTime = TimeSerial(strH, strM, strS)
MsgBox MyTime
End Sub

A+

 

[tototiti2008]

Re : Substring like dans Excel....

Bonjour Raja, Bonjour PierreJean, Bonjour Goldorak,

La formule de Raja est parfaite, sauf si certaines cellules ne contiennent pas de "h".
Est-ce le cas ?

Le code de PierreJean est surement excellent, mais je ne peux toujours pa ouvrir les zip alors...

 

[vbacrumble]

Re : Substring like dans Excel....

Bonsoir tototiti2008, re à tous

Tu as du me croiser sans me voir

A+

 

[tototiti2008]

Re : Substring like dans Excel....

Re,
Bonjour vbacrumble
ton code est bien mais plante s'il n'y a pas de "h".
j'ai toujours tendance à compliquer les choses, moi
si ça se trouve, Goldorak n'a pas ce cas à gérer...

 

[pierrejean]

Re : Substring like dans Excel....

Re

Pleure pas Tototiti

Function trad_date(texte As String)
x = InStr(texte, "h")
Heures = CInt(Left(texte, x - 1))
Minutes = CInt(Mid(texte, x + 1, 2))
Secondes = CInt(Mid(texte, x + 4, 2))
trad_date = Heures / 24 + Minutes / 1440 + Secondes / 86400
End Function

Elle contraint a une forme 00h00m00s
en bleu : Optionnel

Edit: Salut a tous

 

[skoobi]

Re : Substring like dans Excel....

Bonjour tout le monde,

une incursion dans le monde de la formule.
Quand je vois celle de raja, je crois que je vais retourné au VBA vite fait

=TEMPSVAL(GAUCHE(A1;TROUVE("h";A1)-1)&":"&STXT(A1;TROUVE("h";A1)+1;2)&":"&STXT(A1;TROUVE("m";A1)+1;2))

N'est-ce pas?

 

[vbacrumble]

Re : Substring like dans Excel....

Re


Mon code VBA naquit uniquement pour "3h43m08s"

Pas le temps ce soir d'aller plus loin que 03:43:08

EDiTION: en m'inspirant de Raja

Sub macro()
Dim d$
Dim MyTime
Dim h As Long
Dim m As Long
Dim s As Long
d = "3h43m08s"
d = Left(d, Len(d) - 1)
d = Replace(Replace(d, "h", ":"), "m", ":")
MyTime = _
TimeSerial(Split(d, ":")(0), _
    Split(d, ":")(1), _
    Split(d, ":")(2))
MsgBox MyTime
End Sub

A+

 

[Raja]

Re : Substring like dans Excel....

Re, Salut à tous,

à skoobi :

Qu-est ce que tu veux, je n'ai pas la possiblité d'utiliser la récurrence dans les formules.

 

[goldorax113]

Re : Substring like dans Excel....

J’ai omis de le préciser, mais toutes les heures sont au format 00h00m00s.
Donc toutes vos formules doivent m'aller, j'ai l'embarras du choix !
Merci à tous pour votre aide !
A+

 

[tototiti2008]

Re : Substring like dans Excel....

Bonjour à tous,

Bon, comme je pousse les questions quand elles me semblent pas assez compliquées (doit être un peu tordu, moi), le minimum est de proposer une solution à la question tordue...