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

[patricktoulon]

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]

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

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

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]

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]

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

 

[hijackfr]

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]

re

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]

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]

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]

Bonjour le fil le forum

1.01 donne un virgule un en terme de 2 decimales

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

Cordialement, @+

 

[hijackfr]

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]

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

  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

  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]

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]

@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]

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