XL 2016 Séparer et mettre du texte en monétaire

Jocelyn

XLDnaute Barbatruc

• 1 Avril 2021

• #2

Bonjour le Forum,
Bonjour Collins,

un essai en fichier joint juste une modification de la formule dans les cellule E14:E16

Cordialement

 

Pièces jointes

• Essai_0104-1.xlsx

  38.6 KB · Affichages: 5

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 1 Avril 2021

• #3

Bonjour Jocelyn

Merci de ta réponse.
Mais dans les cel E14 à E16 il y a un problème #VALEUR!. Le format est bien en monétaire.
Peux tu me dire ce qu'il faut faire

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 1 Avril 2021

• #4

re,

hum hum moi sur le fichier que je t'ai envoyé j'ai bien les valeurs numérique pas de #VALEUR! en utilisant en Cellule E14

VB:

=SUBSTITUE(SUBSTITUE(SUBSTITUE(STXT(A14;20;NBCAR(A14)-SOMMEPROD((ESTNUM(STXT(A14;LIGNE(INDIRECT("1:"&NBCAR(A14)));1)*1))*1));"€";"");CAR(160);"");CAR(32);"")*1

cellule E15

Code:

=SUBSTITUE(SUBSTITUE(SUBSTITUE(STXT(A15;19;NBCAR(A15)-SOMMEPROD((ESTNUM(STXT(A15;LIGNE(INDIRECT("1:"&NBCAR(A15)));1)*1))*1));"€";"");CAR(160);"");CAR(32);"")*1

cellule E16

Code:

=SUBSTITUE(SUBSTITUE(SUBSTITUE(STXT(A16;14;NBCAR(A16)-SOMMEPROD((ESTNUM(STXT(A16;LIGNE(INDIRECT("1:"&NBCAR(A16)));1)*1))*1));"€";"");CAR(160);"");CAR(32);"")*1

Cordialement

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 1 Avril 2021

• #5

Re,
J'ai réessayer en collant les formules et toujours le pb.

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 1 Avril 2021

• #6

re

De plus a partir du moment ou tu sais a quel endroit le STXT doit démarrer tu peux largement raccourcir le formule

voir fichier avec la formule raccourci en N14:N16

Cordialement

 

Pièces jointes

• Essai_0104-1.xlsx

  38.6 KB · Affichages: 4

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 1 Avril 2021

• #7

Re,

Toujours pareil, dans N14 j'ai toujours #VALEUR!
Je ne comprend pas le problème sur mon excel. Toutes mes formules ont toujours marché.
merci encore, mais je ne voudrai pas que tu perdes ton temps. tans pis je ferai sans.

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 1 Avril 2021

• #8

re

dans le dernier fichier que j'ai posté en O15 met =STXT(A15;19;99) et dis moi le résultat

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 1 Avril 2021

• #9

Re,
Voila ce que ça me donne

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 1 Avril 2021

• #10

ok et si en N15 tu enlève *1 de la fin de la formule as tu -612,47 aligné a gauche

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 1 Avril 2021

• #11

ça progresse

Maintenant il faut enlever remplacer la virgule par un point (.) pour qu'il soit reconnu en format monétaire

 

Vote positif 0 Vote négatif

C

Collins

XLDnaute Occasionnel

• 1 Avril 2021

• #12

Lire remplacer et non enlever

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 1 Avril 2021

• #13

ah ok tu as le point en format monétaire moi j'ai la virgule

alors en N15 essai

VB:

=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(STXT(A15;19;99);"€";"");CAR(160);"");CAR(32);"");",";".")*1

 

Vote positif 0 Vote négatif

Solution

C

Collins

XLDnaute Occasionnel

• 1 Avril 2021

• #14

Ca marche super

Tu t'es impliqué encore une fois de façon remarquable.
Je te remercie beaucoup. C'est vraiment gentil.
Je te souhaite une bonne journée.

 

Vote positif 0 Vote négatif