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

  • Initiateur de la discussion Initiateur de la discussion AMIGO2
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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"
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
459
Réponses
14
Affichages
619
Réponses
23
Affichages
498
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…