Nombres en lettre special pays francophone et monnaie française (Suisse Belgique,CFA,CFP) 2.0

patricktoulon · 5 Décembre 2021

patricktoulon a soumis une nouvelle ressource:

Nombres en lettre special pays francophone et monnaie française (Suisse Belgique,CFA,CFP) - Nombres en lettre special pays francophone

Bonjour
comme cette demande m'a souvent été faite
a savoir; " pourquoi je n’incluait pas la suisse et la Belgique"
voici la petite dernière de mes fonctions de conversion nombre en lettres
cette fois ci celle ci est dédiée uniquement au pays francophone et monnaie française , suisse(CHF) , Belgique , CFA , CFP et bien sur l'euro
elle se nomme NbToLettresFSB
la boucle est bouclée tout le monde a la sienne
et bien sur utilisable en formule
[ATTACH type="full"...

En savoir plus sur cette ressource...

patricktoulon · 6 Décembre 2021

patricktoulon a mis à jour Nombres en lettre special pays francophone et monnaie française (Suisse Belgique,CFA,CFP) avec une nouvelle entrée de mise à jour:

petites corrections

VB:
petite correction le moins un sur dizaine et plus 10 sur unité selon le séparateur(monnaie/virgule)
ajout de la monnaie au "centime(s) si entier=0
vingt centimes --devient--> vingt centimes d'euro

VB:

Function NbToLettresFSB(chaine As String, Optional region As String = "") Dim It, TR, diz, Ul, c, d, u, dix, I&, Tranche, monnaie$, Ctme$, Chain$, T, X&, Ch, Et$, Entier$, Dec$, de, q Tranche = Array(" nonilliard", " nonillion", " octilliard", " octillion", " septilliard", "...

Lire le reste de cette entrée de mise à jour...

hijackfr · 11 Novembre 2023

Bonjour,

chez moi sur Excel 2021, les milliers ne sont pas pris en compte,

pouvez -vous m'aider à trouver pourquoi s'il vous plait?

patricktoulon · 11 Novembre 2023

re
donne le fichier sur le quel tu a testé sur le mien ca fonctionne correctement

hijackfr · 11 Novembre 2023

merci de prendre le temps de me répondre
j'ai testé aussi le fichier 1 2022 7.2 nombre en lettre FR.xlsm, là j'ai vu que 1.01 donné

un virgule un
et non un virgule zéro un

patricktoulon · 11 Novembre 2023

re

hijackfr à dit:
merci de prendre le temps de me répondre
j'ai testé aussi le fichier 1 2022 7.2 nombre en lettre FR.xlsm, là j'ai vu que 1.01 donné

un virgule un
et non un virgule zéro un

ben c'est normal
1.01 donne un virgule un en terme de 2 decimales
1,1 donnera un virgule 10 en terme de 2 decimales

patricktoulon · 11 Novembre 2023

resultats chez moi de l'exemplaire que tu a

c'est donc dans ton excel qu'il faut regarder peut etre le calcul itératif
ou je ne sais quoi d'autres

hijackfr · 11 Novembre 2023

Tant pis, bizarre, j'ai testé le fichier "nombre en lettre belge V 2023 1.1 BETA euro"
Lui fonctionne bien si ce n'est qu'étant français les expressions belges me déconcertent un peu
juste 1001 qui est traduit par : "un mille un" et non par "mille un"

merci d'avoir pris le temps

Bernard_XLD · 11 Novembre 2023

Bonjour le fil le forum

patricktoulon à dit:
1.01 donne un virgule un en terme de 2 decimales

"un virgule zéro un" ne prêterait à aucune confusion !

Cordialement, @+

hijackfr · 11 Novembre 2023

Je suis d'accord,
Pour moi 1,01 ce n'est pas un virgule un mais un virgule zéro un ou un euro et un centime.
Un euro et un centime ce n'est pas la même chose que un euro et dix centimes.

Enfin c'est pour comprendre et échanger, pas de polémique pour moi

patricktoulon · 11 Novembre 2023

hijackfr à dit:
Tant pis, bizarre, j'ai testé le fichier "nombre en lettre belge V 2023 1.1 BETA euro"
Lui fonctionne bien si ce n'est qu'étant français les expressions belges me déconcertent un peu
juste 1001 qui est traduit par : "un mille un" et non par "mille un"

merci d'avoir pris le temps

c'est bizare c'est justement une partie du code qui traitre cette partie ,et elle est plutot explicite

VB:

  If Ch(I) = 1 And TR = " mille" Then u = ""

traduction

si la portion ch(i)= 1 et que la tranche tr =" mille" alors unité = rien

donc si on tombe sur 1001
il y a deux tranches
1 et 001
soit 001pour la tranche mille
et 001 pour la tranche sans rien(celle qui termine l'entier

on voit bien dans la ligne de code que u="" si la tranche de 3 chiffre vaut 1 et que l'on est dans la tranche " mille"

toutes les erreurs que tu me dis sont completement incohérentes
je viens de le tester sur 2016 et 2013

donc comme je le soupconne avec 365 il y a certainement un problème de calcul iteratif
ou un soucis avec le number format

@Bernard_XLD
1,01 en monaie on dit un euro et un centime et pas un euro et zero-un centime
maintenant avec le separateur " virgule "
si vous y tenez ajoutez juste en de sous la ligne "for x= 0 to ubount(t)
cette ligne

Code:

  If X = 1 And Val(T(0)) > 0 And monnaie = " virgule " Then diz(0) = "zéro" Else diz(0) = ""

comme dans la capture ci dessous

voila voila y a qu'a demander

hijackfr · 11 Novembre 2023

merci pour tes commentaires qui me permettent de mieux comprendre.
Car je suis un débutant en vba, sans réelle connaissances.

Par contre pour répondre à ta phrase :"
donc comme je le soupconne avec 365 il y a certainement un problème de calcul iteratif
ou un soucis avec le number format"

je suis sous Excel 2021

patricktoulon · 11 Novembre 2023

@hijackfr
128 personnes l'ont téléchargé et aucune ne m'a rapporté cette erreur
du millier qui n'est pas pris en compte

pour le "zero" et unité j'ai montré ou il fallait ajouter la ligne

de plus c'est du code basique dans le sens ou je n'utilise pas de formule tord boyeaux
je coupe l'entier par tranche de trois chiffre
chaque tranche c'est centaine/dizaine/unité
et chaque tranche est indexé en partant de droite
rien , mille , million , milliard , etc.....

ce moteur est la dernière generation de mes moteurs de convertion simplifié
il doit fonctionner de la même manière sur 2007 à 2021 sans distinction
si c'est pas le cas alors tu a un soucis dans ton excel
d'ailleurs je l'utilise au boulot et au boulot on a des pc avec 365 avec excel 2021
et il n'y a pas de soucis de ce genre

hijackfr · 11 Novembre 2023

Je be sais pas quoi répondre, le calcul itératif n'est pas activé sur mon Ecel
Peut être le number format

Nombres en lettre special pays francophone et monnaie française (Suisse Belgique,CFA,CFP) 2.0

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

hijackfr

XLDnaute Nouveau

Pièces jointes

patricktoulon

XLDnaute Barbatruc

hijackfr

XLDnaute Nouveau

Pièces jointes

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

hijackfr

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

hijackfr

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

hijackfr

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

hijackfr

XLDnaute Nouveau

Discussions similaires