Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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"
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…