Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Format qui transforme des nombres en lettres

Format qui transforme des nombres en lettres

7 réponses
Avatar
Isa
Bonjour,

Je souhaiterais pouvoir transformer des montants en lettres.
Exemple : 196 euros => cent quatre vingt seize euros.
Je n'ai pas trouvé de fonction ou format qui fasse cela.
Auriez-vous une solution ?
Merci.
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre CFI
hum, va voir sur mpfa.info
soit jessy sempére, soit raymond, ou méme 3stone (lui c'est plus compliqué
avec les nonantes , les septantes :o))

--
Pierre CFI

*************************************************
"Isa" a écrit dans le message de news:

Bonjour,

Je souhaiterais pouvoir transformer des montants en lettres.
Exemple : 196 euros => cent quatre vingt seize euros.
Je n'ai pas trouvé de fonction ou format qui fasse cela.
Auriez-vous une solution ?
Merci.


Avatar
A COSTA
Bonjour
Voici un exemple que j'ai trouvé il y a qq temps (08/2006)

Function chiffrelettre(s)
Dim a As Variant, gros As Variant
a = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", _
"huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze",
"seize", "dix sept", _
"dix huit", "dix neuf", "vingt", "vingt et un", "vingt deux", "vingt trois",
"vingt quatre", _
"vingt cinq", "vingt six", "vingt sept", "vingt huit", "vingt neuf",
"trente", "trente et un", _
"trente deux", "trente trois", "trente quatre", "trente cinq", "trente six",
"trente sept", _
"trente huit", "trente neuf", "quarante", "quarante et un", "quarante deux",
"quarante trois", _
"quarante quatre", "quarante cinq", "quarante six", "quarante sept",
"quarante huit", _
"quarante neuf", "cinquante", "cinquante et un", "cinquante deux",
"cinquante trois", _
"cinquante quatre", "cinquante cinq", "cinquante six", "cinquante sept",
"cinquante huit", _
"cinquante neuf", "soixante", "soixante et un", "soixante deux", "soixante
trois", _
"soixante quatre", "soixante cinq", "soixante six", "soixante sept",
"soixante huit", _
"soixante neuf", "soixante dix", "soixante et onze", "soixante douze",
"soixante treize", _
"soixante quatorze", "soixante quinze", "soixante seize", "soixante dix
sept", _
"soixante dix huit", "soixante dix neuf", "quatre-vingts", "quatre-vingt
un", _
"quatre-vingt deux", "quatre-vingt trois", "quatre-vingt quatre",
"quatre-vingt cinq", _
"quatre-vingt six", "quatre-vingt sept", "quatre-vingt huit", "quatre-vingt
neuf", _
"quatre-vingt dix", "quatre-vingt onze", "quatre-vingt douze", "quatre-vingt
treize", _
"quatre-vingt quatorze", "quatre-vingt quinze", "quatre-vingt seize",
"quatre-vingt dix sept", _
"quatre-vingt dix huit", "quatre-vingt dix neuf")
gros = Array("", "billions", "milliards", "millions", "mille", "Euros",
"billion", _
"milliard", "million", "mille", "Euro")
sp = Space(1)
chaine = "00000000000000"
centime = s * 100 - (Int(s) * 100)
s = Str(Int(s)): lg = Len(s) - 1: s = Right(s, lg): lg = Len(s)
If lg < 15 Then chaine = Mid(chaine, 1, (15 - lg)) Else chaine = ""
s = chaine + s
'billions au centaines
gp = 1
For k = 1 To 5
x = Mid(s, gp, 1): c = a(Val(x))
x = Mid(s, gp + 1, 2): d = a(Val(x))
If k = 5 Then
If t2 <> "" And c & d = "" Then mydz = "Euros" & sp: GoTo fin
If t <> "" And c = "" And d = "un" Then mydz = "un Euros" & sp: GoTo fin
If t <> "" And t2 = "" And c & d = "" Then mydz = "d'Euros" & sp: GoTo fin
If t & c & d = "" Then myct = "": mydz = "": GoTo fin
End If
If c & d = "" Then GoTo fin
If d = "" And c <> "" And c <> "un" Then mydz = c & sp & "cents " & gros(k)
& sp: GoTo fin
If d = "" And c = "un" Then mydz = "cent " & gros(k) & sp: GoTo fin
If d = "un" And c = "" Then myct = IIf(k = 4, gros(k) & sp, "un " & gros(k +
5) & sp): GoTo fin
If d <> "" And c = "un" Then mydz = "cent" & sp
If d <> "" And c <> "" And c <> "un" Then mydz = c & sp & "cent" + sp
myct = d & sp & gros(k) & sp
fin:
t2 = mydz & myct
t = t & mydz & myct
mydz = "": myct = ""
gp = gp + 3
Next
d = a(centime)
If t <> "" Then myct = IIf(centime = 1, " centime", " centimes")
If t = "" Then myct = IIf(centime = 1, " centime d'Euro", " centimes d'Euro")
If centime = 0 Then d = "": myct = ""
chiffrelettre = t & d & myct
End Function



Bonjour,

Je souhaiterais pouvoir transformer des montants en lettres.
Exemple : 196 euros => cent quatre vingt seize euros.
Je n'ai pas trouvé de fonction ou format qui fasse cela.
Auriez-vous une solution ?
Merci.


Avatar
3stone
Salut,

"Isa"
| Je souhaiterais pouvoir transformer des montants en lettres.
| Exemple : 196 euros => cent quatre vingt seize euros.

Tu peux utiliser ceci :
http://www.3stone.be/access/articles.php?lng=fr&pg‚

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Me.Novice
Bonjour à toutes et à tous.
Merci beaucoup à "3Stone" de ce travail remarquable.
Cependant j'ai une question concernant l'utilisation de cette fonction.
J'ai mon formulaire facture "FrmFactures", dans celui-ci j'ai deux
champs:"MontantChiffre" et "MontantLettre".
*Comment utiliser la fonction pour qu'après mise à jour du champ
"MontantChiffre" que j'ai le lettrage dans le champ "MontantLettre"?
Merci d'avance à toutes et à tous.
A+...


Salut,

"Isa"
| Je souhaiterais pouvoir transformer des montants en lettres.
| Exemple : 196 euros => cent quatre vingt seize euros.

Tu peux utiliser ceci :
http://www.3stone.be/access/articles.php?lng=fr&pg‚

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)





Avatar
3stone
Salut,

"Me.Novice"
| Cependant j'ai une question concernant l'utilisation de cette fonction.
| J'ai mon formulaire facture "FrmFactures", dans celui-ci j'ai deux
| champs:"MontantChiffre" et "MontantLettre".
| *Comment utiliser la fonction pour qu'après mise à jour du champ
| "MontantChiffre" que j'ai le lettrage dans le champ "MontantLettre"?


Dans la zone de texte indépendante qui recoit le texte, tu mets :

= NombreVersTexte( [MontantChiffre] )

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Me.Novice
Merci beaucoup "3stone" de votre réponse.
Cependant j'ai toujours un problème. Ma zone de teste affiche "#Nom ?"
Alors voilà ce que j'ai fait:
J'ai copié la fonction que vous avez donné à l'adresse que voici:
"http://www.3stone.be/access/articles.php?lng=fr&pg‚" dans le code VB de
mon formulaire "FrmFactures".
Fallait-il créer un module indépendant? (Même avec ça mon problème reste
entier) sinon comment faire s'il vous plait.

Salut,

"Me.Novice"
| Cependant j'ai une question concernant l'utilisation de cette fonction.
| J'ai mon formulaire facture "FrmFactures", dans celui-ci j'ai deux
| champs:"MontantChiffre" et "MontantLettre".
| *Comment utiliser la fonction pour qu'après mise à jour du champ
| "MontantChiffre" que j'ai le lettrage dans le champ "MontantLettre"?


Dans la zone de texte indépendante qui recoit le texte, tu mets :

= NombreVersTexte( [MontantChiffre] )

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




Avatar
3stone
Salut,

"Me.Novice"
| Cependant j'ai toujours un problème. Ma zone de teste affiche "#Nom ?"
| Alors voilà ce que j'ai fait:
| J'ai copié la fonction que vous avez donné à l'adresse que voici:
| "http://www.3stone.be/access/articles.php?lng=fr&pg‚" dans le code VB de
| mon formulaire "FrmFactures".
| Fallait-il créer un module indépendant? (Même avec ça mon problème reste
| entier) sinon comment faire s'il vous plait.


Si tu colles le code "sous" ton formulaire, tu ne pourras l'appeller que
dans ce formulaire, ce serait dommage tout de même... ;-)

Donc oui, tu crées un module que tu nommeras "modTraitementDesNombres"
par exemple.
Colle le code récupéré dans ce module
- Compile ce code pour t'assurer qu'il n'y à pas de grosse erreur.
Menu Débogage, Compiler...

Ensuite, tu fais comme dit.

PS: Qu'est ce que tu écris dans ta zone de texte ?

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)