Convertir un poids en lettres

Fermé
planeur68 - 15 juin 2012 à 08:53
tontong Messages postés 2568 Date d'inscription mercredi 3 février 2010 Statut Membre Dernière intervention 12 janvier 2025 - 15 juin 2012 à 13:59
Bonjour,

Quelqu'un aurait t il la solution pour convertir un poids en toutes lettres ex. : 431.600 en Trois cent trente et un kilos six cents grammes, il me faut impérativement les 3 décimales. Merci

2 réponses

^Abel^ Messages postés 15399 Date d'inscription jeudi 14 juillet 2011 Statut Contributeur Dernière intervention 14 février 2023 6 865
15 juin 2012 à 09:00
Bonjour,
Sous Excel, je pense qu'il faut un module complémentaire...
Télécharger numtext.xla (module complémentaire) ouvrir exel
0
^Abel^ Messages postés 15399 Date d'inscription jeudi 14 juillet 2011 Statut Contributeur Dernière intervention 14 février 2023 6 865
15 juin 2012 à 09:09
Sous Calc de Open Office, cette extension fonctionne pour des valeurs monétaires (on doit pouvoir l'utiliser pour d'autres types de nombres).
0
J'ai déjà essayé mais les décimales (ou les grammes) reste en chiffres et c'est bien sous excel que je travaille
0
^Abel^ Messages postés 15399 Date d'inscription jeudi 14 juillet 2011 Statut Contributeur Dernière intervention 14 février 2023 6 865
15 juin 2012 à 09:17
Ah ! désolé, je n'en sais pas plus... :-(
0
Merci quand même
0
tontong Messages postés 2568 Date d'inscription mercredi 3 février 2010 Statut Membre Dernière intervention 12 janvier 2025 1 059
15 juin 2012 à 13:59
Bonjour,
Si on admet des défauts dans la gestion des zéros et des "s" des pluriels on peut utiliser la fonction personnalisée ConvNumLetter (macro complémentaire) dans une formule comme:
=ConvNumberLetter(TRONQUE(A3);0;0;0;0)&" kilogrammes et "&ConvNumberLetter(ARRONDI(1000*MOD(A3;1);0);0;0;0;0)&" grammes"

L'idéal serait d'adapter le code pour traiter les millièmes avec des kilos et des grammes, mais ce n'est pas de mon domaine de compétences.

Il y a aussi une fiche pratique à explorer (je n'ai pas testé):
https://www.commentcamarche.net/faq/11100-vb6-net-vba-transformer-chiffres-en-lettre#q=LN_Nbrelettre.xla&cur=2&url=%2F
0