Convertir un montant en lettre sans VBA Fermé

Question

Bonjour les Ami(e)s,

J'ai 2 cellules distinctes, dans la 1ère cellule il y a un montant en euros et dans la 2ème cellule, je voudrais que le montant saisi dans la 1ère cellule soit affiché converti automatiquement en lettres sans vba mais avec à travers une seule formule.

Merci d'avance de votre aimable réponse.

cs_Le Pivert · Answer

Bonjour,

voir ceci à télécharger:

http://excel.veriti.net/modules/TDMDownloads/singlefile.php?lid=20 

et à lire:

https://www.excel-exercice.com/convertir-un-nombre-en-lettres/

MEHBOUB · Answer

Bonjour, merci de votre aimable réponse.

J'ai testé la formule suivante sur  Excel office 365 mais ça ne marche pas :

=LET(
Denom; {" million ";" mille ";" Euro ";" Centimes"};
Nums; {""."Un"."Deux"."Trois"."Quatre"."Cinq"."Six"."Sept"."Huit"."Neuf"};
Teens; {"Dix"."Onze"."Douze"."Treize"."Quatorze"."Quinze"."Seize"."Dix-sept"."Dix-huit"."Dix-neuf"};
Tens; {""."Dix"."Vingt"." Trente"." Quarante"."Cinquante"."Soixante"." Soixante"."Quatre-vingt"."Quatre-vingt"};
grp; {0;1;2;3};
LET(
N; SUBSTITUE( TEXTE( A1; REPT(0;9)&",00" );",";"0");
H; CNUM( STXT( N; 3*grp+1; 1) ); T; CNUM( STXT( N; 3*grp+2; 1) );
U; CNUM( STXT( N; 3*grp+3; 1) );
Htxt; SI( H; SI(H>1; INDEX( Nums; H+1 ) & " cent "; "cent " ); "");
Ttxt; SI( T>1; INDEX( Tens; T+1 ) & SI( U>0; " "; "" ); " " );
Utxt; SI((T+U); SI((T=1)+(T=7)+(T=9); INDEX(Teens;U+1 );INDEX(Nums;U+1)));
SUPPRESPACE(SUBSTITUE(NOMPROPRE(CONCAT( SI( H+T+U; Htxt & Ttxt & Utxt & Denom; "" )));"Un Mille";"Mille"))
))

michel_m · Answer

Bonjour,

question  à transférer  dans le forum Excel 365 !

MEHBOUB · Answer

C'est transféré, merci beaucoup.

Convertir un montant en lettre sans VBA

4 réponses

Discussions similaires