XL 2016 Formule pour convertir des chiffres en lettres

AMIGO2

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

AMIGO2

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

XLDnaute Occasionnel
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
 

AMIGO2

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas