XL 2016 Formule pour convertir des chiffres en lettres

[AMIGO2]

Bonjour les ami(e)s,

Est ce qu'il y a quelqu'un qui connaît la formule pour convertir les chiffres en lettres sans passer par des macros.

Merci de votre aimable réponse.

 

[WTF]

Bonjour et bienvenu.

Ci dessous lien vers une précédente discussion du forum :

convertisseur nombre en lettres

Sous excel 2007, existe-t'il une méthode simple pour convertir un nombre en lettres

www.excel-downloads.com

 

[AMIGO2]

Non, il y a plus simple et dans une seule cellule pas besoin de VBA, macros... mais le problème parfois excel affiche un message d'erreur "formule trop longue..."

=SI(--STXT(TEXTE(C12;"000000");1;1)=0;;SI(ET(--STXT(TEXTE(C12;"000000");2;1)=0;--STXT(TEXTE(C12;"000000");3;1)=0);" Cent ";"Cent "))
&CHOISIR(STXT(TEXTE(C12;"000000");2;1)+1;;;"Vingt ";"Trente ";"Quarante ";"Cinquante ";"Soixante ";"Soixante-dix ";"Quatre-vingt ";"Quatre-vingt-dix ")
&SI(--STXT(TEXTE(C12;"000000");2;1)<>1;CHOISIR(STXT(TEXTE(C12;"000000");3;1)+1;;"un";"deux";"trois";"quatre";"cinq";"six";"sept";"huit";"neuf");CHOISIR(STXT(TEXTE(C12;"000000");3;1)+1;"dix";"onze";"douze";"treize";"quatorze";"quinze";"seize";"dix-sept";"dix-huit";"dix-neuf"))
&SI((--STXT(TEXTE(C12;"000000");1;1)+STXT(TEXTE(C12;"000000");2;1)+STXT(TEXTE(C12;"000000");3;1))=0;;SI(OU((--STXT(TEXTE(C12;"000000");4;1)+STXT(TEXTE(C12;"000000");5;1)+DROITE(TEXTE(C12;"000000")))=0;--STXT(TEXTE(C12;"000000");4;1)<>0);" mille ";" mille "))
&CHOISIR(STXT(TEXTE(C12;"000000");4;1)+1;;"un";"deux";"trois";"quatre";"cinq";"six";"sept";"huit";"neuf")
&SI(--STXT(TEXTE(C12;"000000");4;1)=0;;SI(ET(--STXT(TEXTE(C12;"000000");5;1)=0;--DROITE(TEXTE(C12;"000000"))=0);" cent ";" cent "))&
CHOISIR(STXT(TEXTE(C12;"000000");5;1)+1;;;"vingt ";"trente ";"quarante ";"cinquante ";"soixante ";"soixante-dix ";"quatre-vingt ";"quatre-vingt-dix ")
&SI(--STXT(TEXTE(C12;"000000");5;1)<>1;CHOISIR(DROITE(TEXTE(C12;"000000"))+1;;"un";"deux";"trois";"quatre";"cinq";"six";"sept";"huit";"neuf");CHOISIR(DROITE(TEXTE(C12;"000000"))+1;"dix";"onze";"douze";"treize";"quatorze";"quinze";"seize";"dix-sept";"dix-huit";"dix-neuf"))&" Euros TTC"

 

[WTF]

Merci @AMIGO2 ,
C'est bien. Une petite remarque sur un test fait au hasard :
5675 =>

cinq mille six cent soixante-dix cinq

93 =>

quatre-vingt-dix trois

 

[Modeste geedee]

Bonsour®

Non, il y a plus simple et dans une seule cellule pas besoin de VBA, macros... mais le problème parfois excel affiche un message d'erreur "formule trop longue..."

Pas que ...???
consulter les archives et posts antérieurs !!!

 

[AMIGO2]

Bonjour, vous avez parfaitement raison, ce n'est pas totalement juste. Avez-vous une formule plus correcte sans passer par une macro ? Merci e votre aimable réponse.