transformer XXmn YYs en XX:YY

Bonjour Ozit,


En VBA:

Sub Format()

Set maplage = Range("A1:A10") 'à adapter
For Each cell In maplage
cell.Offset(0, 1) = Application.Substitute(cell, "mn ", ":")
cell.Offset(0, 1) = Application.Substitute(cell.Offset(0, 1), "s", "")
Next

Cordialement,

GVentre


End Sub

Bonjour,

Je me prends la tete pour trouver une formule pour remplacer des valeurs du
genre
5mn 28s
21mn 51s
12mn 37s
22s
6s
9mn 00s
28s


en valeur

5:28
21:51
12:37
22
6
9: 00
00:28


Et je n'y arrive pas !!!
Si quelqu'un peut m'aider,

Merci d'avance.

bonjour

exercice sympathique ;-)
=TEMPSVAL(SI(ESTERREUR(GAUCHE(A1;CHERCHE("mn";A1;1)-1));"0";GAUCHE(A1;CHERCH
E("mn";A1;1)-1))&":"&DROITE(GAUCHE(A1;NBCAR(A1)-1);2))

ESTERREUR(GAUCHE(A1;CHERCHE("mn";A1;1)-1)) pour etre sur qu'il y a mn

GAUCHE(A1;CHERCHE("mn";A1;1)-1) pour les heures.
DROITE(GAUCHE(A1;NBCAR(A1)-1);2)) pour les minutes.

une petite concatenation
une petite fonction (temps val)

et voila

Cordialement
Michel BERTRAND

Bonjour,
Je suppose que les données sont au format texte.
Sans VBA, les données supposées en A1 Axx, dans une colonne formatée 13:00, la formule suivante, à
recopier vers le bas :

=SI(NON(ESTERR(TROUVE("m";A1)));GAUCHE(A1;TROUVE("m";A1)-1)&":"&GAUCHE(STXT(A1;TROUVE("n";A1)+2;TROUVE("s";A1));2);0&":"&REPT("0";2-NBCAR(GAUCHE(A1;NBCAR(A1)-1)))&GAUCHE(A1;NBCAR(A1)-1))*1
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"ozit" <aoziel@free.fr> a écrit dans le message de news: 41f24ddc$0$16418$636a15ce@news.free.fr...

Bonjour,

Je me prends la tete pour trouver une formule pour remplacer des valeurs du genre
5mn 28s
21mn 51s
12mn 37s
22s
6s
9mn 00s
28s


en valeur

5:28
21:51
12:37
22
6
9: 00
00:28


Et je n'y arrive pas !!!
Si quelqu'un peut m'aider,

Merci d'avance.

=SI(ESTNUM(TROUVE(":";SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;"mn";":");"s";"");"
";"")));"0:"&SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;"mn";":");"s";"");"
";"");"0:0:"&SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;"mn";":");"s";"");" ";""))*1

Il me semble que les solutions proposées par mes camarades de jeu transforment
des minutes en heures et les secondes en minutes....!

AV

Bien VU !

lol j'ai oublié 00:

TEMPSVAL("00:"&SI(ESTERREUR(GAUCHE(A1;CHERCHE("mn";A1;1)-1));"0";GAUCHE(A1;C
HERCHE("mn";A1;1)-1))&":"&DROITE(GAUCHE(A1;NBCAR(A1)-1);2))

YA encore des competents ici ! ;-)


Bonne journée

Michel

quelle reaction !!!

merci bcp


"Michel BERTRAND" <mbfac.enlever@oter.free.fr> a écrit dans le message de
news: cstoid$7q0$1@news.tiscali.fr...

Bien VU !

lol j'ai oublié 00:

TEMPSVAL("00:"&SI(ESTERREUR(GAUCHE(A1;CHERCHE("mn";A1;1)-1));"0";GAUCHE(A1;C
HERCHE("mn";A1;1)-1))&":"&DROITE(GAUCHE(A1;NBCAR(A1)-1);2))

YA encore des competents ici ! ;-)


Bonne journée

Michel

Juste pour le smilblick :
la fonction TEMPSVAL n'est pas vraiment nécessaire, on peut la remplacer par
(entre autres) = 1*(blabla...)

AV

Ah ben oui !
Diable, alors !
Merci, oeil de lynx ! ;o)))
--
Amicales Salutations

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
en3$83IAFHA.1084@tk2msftngp13.phx.gbl...

=SI(ESTNUM(TROUVE(":";SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;"mn";":");"s";"");"
";"")));"0:"&SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;"mn";":");"s";"");"
";"");"0:0:"&SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;"mn";":");"s";"");" ";""))*1

Il me semble que les solutions proposées par mes camarades de jeu transforment
des minutes en heures et les secondes en minutes....!

AV