Microsoft 365 Modification chaine de caractère dans une cellule

Bruno BOUCHET · 27 Août 2021

Bonjour,

Je suis novice dans EXCEL.
Je souhaiterai transformer une cellule au format 1 heure 55 mins (format texte) dans le format 1:55 (format numérique), afin de pouvoir additionner les temps de trajet.
Je vous transmet le fichier en PJ.

Etoto · 27 Août 2021

Hello,

Première version :

Mais fonctionne qu'avec les heures plus minutes, je regarde après pour l'autre

VB:

=(CNUM(GAUCHE(SI(NBCAR(A2)>9;SUBSTITUE(SUBSTITUE(A2;STXT(A2;2;6);"");DROITE(A2;4);""));1))/24)+((CNUM(DROITE(SI(NBCAR(A2)>9;SUBSTITUE(SUBSTITUE(A2;STXT(A2;2;6);"");DROITE(A2;4);""));3))/60)/24)

Etoto · 27 Août 2021

Attend ! Y'a une erreur quand "mins" est au singulier.

M12 · 27 Août 2021

Bonjour
A tester

Etoto · 27 Août 2021

Ta daa :

VB:

=SI(NBCAR(A8)>7;(CNUM(GAUCHE(GAUCHE(GAUCHE(A8;1)&STXT(A8;CHERCHE(" ";A8;4)+1;CHERCHE(" ";SUBSTITUE(A8;GAUCHE(A8;CHERCHE(" ";A8));"");3)-1);3);1))/24)+(CNUM(DROITE(GAUCHE(GAUCHE(A8;1)&STXT(A8;CHERCHE(" ";A8;4)+1;CHERCHE(" ";SUBSTITUE(A8;GAUCHE(A8;CHERCHE(" ";A8));"");3)-1);3);NBCAR(GAUCHE(GAUCHE(A8;1)&STXT(A8;CHERCHE(" ";A8;4)+1;CHERCHE(" ";SUBSTITUE(A8;GAUCHE(A8;CHERCHE(" ";A8));"");3)-1);3))-1))/60)/24;(CNUM(GAUCHE(A8;2)/60))/24)

Bruno BOUCHET · 28 Août 2021

Etoto, merci beaucoup pour ton aide, je vais essayer cela Lundi.

M12 · 28 Août 2021

Bruno BOUCHET à dit:
Etoto, merci beaucoup pour ton aide, je vais essayer cela Lundi.

Sauf que cela ne fonctionne pas pour les minutes sans les heures, alors que j'ai la formule beaucoup plus courte
C'est ton choix

Bruno BOUCHET · 28 Août 2021

Je vais également testé ta solution M12, je te remercie également

Bruno BOUCHET · 29 Août 2021

Merci à tous pour votre aide, cela me sort une épine du pied.

Etoto · 1 Septembre 2021

M12 à dit:
Sauf que cela ne fonctionne pas pour les minutes sans les heures, alors que j'ai la formule beaucoup plus courte
C'est ton choix

Heu oui, cela fonctionne d'où le SI.

M12 · 1 Septembre 2021

Et bien Teste, Chez moi
22 minutes sans heures devant me donne #VALEUR

Etoto · 1 Septembre 2021

Re,

Oups !

Voilà, il fallait juste modifier le test logique :

VB:

=SI(NBCAR(A8)>10;(CNUM(GAUCHE(GAUCHE(GAUCHE(A8;1)&STXT(A8;CHERCHE(" ";A8;4)+1;CHERCHE(" ";SUBSTITUE(A8;GAUCHE(A8;CHERCHE(" ";A8));"");3)-1);3);1))/24)+(CNUM(DROITE(GAUCHE(GAUCHE(A8;1)&STXT(A8;CHERCHE(" ";A8;4)+1;CHERCHE(" ";SUBSTITUE(A8;GAUCHE(A8;CHERCHE(" ";A8));"");3)-1);3);NBCAR(GAUCHE(GAUCHE(A8;1)&STXT(A8;CHERCHE(" ";A8;4)+1;CHERCHE(" ";SUBSTITUE(A8;GAUCHE(A8;CHERCHE(" ";A8));"");3)-1);3))-1))/60)/24;(CNUM(GAUCHE(A8;2)/60))/24)

Mais c'est vrai que ta formule est plus courte.

Par contre je suis curieux, comment ton

Code:

TROUVE(" ";A2;5)

donne 8 et pas 2 ?

Microsoft 365 Modification chaine de caractère dans une cellule

Bruno BOUCHET

XLDnaute Nouveau

Pièces jointes

Etoto

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

M12

XLDnaute Accro

Pièces jointes

Etoto

XLDnaute Barbatruc

Bruno BOUCHET

XLDnaute Nouveau

M12

XLDnaute Accro

Bruno BOUCHET

XLDnaute Nouveau

Bruno BOUCHET

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

M12

XLDnaute Accro

Pièces jointes

Etoto

XLDnaute Barbatruc

Pièces jointes

Discussions similaires