Microsoft 365 Modification chaine de caractère dans une cellule

Etoto

XLDnaute Barbatruc

Supporter XLD

• 27 Août 2021

• #2

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)

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 27 Août 2021

• #3

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 27 Août 2021

• #4

Bonjour
A tester

 

Pièces jointes

• Bruno.xlsx

  18.8 KB · Affichages: 10

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 27 Août 2021

• #5

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: 27 Août 2021

Vote positif 0 Vote négatif

B

Bruno BOUCHET

XLDnaute Nouveau

• 28 Août 2021

• #6

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 28 Août 2021

• #7

Bruno BOUCHET à dit:

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

Cliquez pour agrandir...

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 😉

 

Vote positif 0 Vote négatif

B

Bruno BOUCHET

XLDnaute Nouveau

• 28 Août 2021

• #8

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

 

Vote positif 0 Vote négatif

B

Bruno BOUCHET

XLDnaute Nouveau

• 29 Août 2021

• #9

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

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 1 Septembre 2021

• #10

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 😉

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 1 Septembre 2021

• #11

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

 

Pièces jointes

• Bruno.xlsx

  20.3 KB · Affichages: 1

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

Supporter XLD

• 1 Septembre 2021

• #12

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

• Bruno (1).xlsx

  20.3 KB · Affichages: 1

Dernière édition: 1 Septembre 2021

Vote positif 0 Vote négatif