Microsoft 365 Modification chaine de caractère dans une cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bruno BOUCHET

XLDnaute Nouveau
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.
 

Pièces jointes

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)
 
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)
 
Dernière édition:
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 ?
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
407
  • Question Question
Microsoft 365 Power Query
Réponses
2
Affichages
233
Retour