Convertir des chiffres en lettres

**azde7015** · 01/04/2007, 10h35

bonjour

je voudrais savoir comment faire pour pouvoir conevertir des chiffres en lettre sur access

merci d'avance

**loufab** · 01/04/2007, 10h51

Bonjour,

Regarde dans la faq il y a le code complet.

Cordialement,

**azde7015** · 01/04/2007, 11h19

merci je vais de ce pas voir

**azde7015** · 03/04/2007, 12h48

re bonjour

j'ai été sur la faq et rien du tout,ou peut d'etre je n'ai pas bien cherché, ou exactement svp ?

Invité · 03/04/2007, 12h51

Bonjour

Tu as la FAQ et les SOURCES

http://access.developpez.com/sources...ffresEnLettres

Starec

**azde7015** · 03/04/2007, 14h45

merci

sauf que j'aimerais bien savoir dans quelle propriété je pourrais mettre ce code ?

merci d'avance

Invité · 03/04/2007, 14h47

Re

Ce code est une fonction, tu rentres en paramètres de ta fonction ton chiffre, et il t'en ressort une chaine de caractére.

Starec

**azde7015** · 03/04/2007, 14h54

ok et cette fonction je doit l'integré dans le champ lui même ?

**azde7015** · 03/04/2007, 15h37

merci de repondre svp je suis si proche du but

merci encore

**random** · 03/04/2007, 15h52

pour intégrer une fonction tu fais alt f11
puis insertion module
et tu tapes ta fonction
nb si tu as la flemme tu peux faire un copier/coller

tu peux ensuite faire en sql

select monchamp, mafonction(sonargument)

ou mettre mazonedetexte=mafonctionquifaitdeslettres(monchiffre)

**azde7015** · 10/04/2007, 15h29

re bonjour

je m'en excuse mais je ne trouve pas ou mettre la fonction, ca ne marche pas.

ce que je voudrais c de saisir un montant en chiffre sur le formulaire et a l'édition de l'état ce chiffre sera aussi traduit en lettre, comment faire ?
merci d'avance

**mout1234** · 10/04/2007, 15h40

Bonjour,

Dans ce cas,

EDIT: Aprés avoir créé le module contenant comme évoqué dans les précédents messages,

soit tu mets une expression dans la source de ton état, comme le mentionne random Nb2Mot(MonChamp)
(où biensur MonChamp est remplacer le nom effectif de ton champ)

soit tu places un controle indépendant dans ton état dans lequel tu mets cette même expression.

**random** · 10/04/2007, 15h44

dans tous les cas de figure il vaut mieux mettre les fonctions dans un module
ceci permet de l'invoquer dans toute la base

**azde7015** · 11/04/2007, 11h17

ca marche merci les gars j'ai meme compris le principe de la fonction

merci encore

**doubleface2** · 16/09/2013, 19h06

Envoyé par azde7015

bonjour

je voudrais savoir comment faire pour pouvoir conevertir des chiffres en lettre sur access

merci d'avance

reponse: chercher à créer une requête et dans votre requête, selectionner un champ et introduire cette formule: NbreEnlettres([]) exemple: j'ai une table avec des attributs: désignation, Qtés, montant. je crée une requête avec un champ calculé intitulé "montant en lettre"; dans ce champ, on peut convertir cette zone avec cette formule: montant en lettre:NbreEnLettres([Qtés])

**mhzupper** · 19/05/2019, 11h07

une aide svp !!!! je peux avoir le meme code en anglais merciiiiiiiiiiiiiiiii

**tee_grandbois** · 19/05/2019, 15h16

bonjour,
il y a une solution donnée par le support Microsoft ici: mais ils ont laissé la monnaie (là bas, c'est le dollar

), plutôt que changer la monnaie pour une autre en fixe, je l'ai un petit peu modifiée en ajoutant un paramètre monnaie, on l'utilise donc comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
? SpellNumber(1234.56)
One Thousand Two Hundred Thirty Four Dollars and Fifty Six Cents

et si on précise la monnaie de son choix:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
? SpellNumber(1234.56,"Euro")
One Thousand Two Hundred Thirty Four Euros and Fifty Six Cents

Code à insérer dans un nouveau module ou un module existant (dans ce cas enlever l'instruction 1):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
Option Compare Database
 
Function SpellNumber(ByVal MyNumber, Optional MyMoney)
'Main Function
 
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
 
ReDim Place(9) As String
 
Place(2) = " Thousand "
 
Place(3) = " Million "
 
Place(4) = " Billion "
 
Place(5) = " Trillion "
 
' String representation of amount.
 
MyNumber = Trim(str(MyNumber))
 
' Position of decimal place 0 if none.
 
DecimalPlace = InStr(MyNumber, ".")
 
' Convert cents and set MyNumber to dollar amount.
 
If DecimalPlace > 0 Then
 
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
 
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
 
End If
 
Count = 1
 
Do While MyNumber <> ""
 
Temp = GetHundreds(Right(MyNumber, 3))
 
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
 
If Len(MyNumber) > 3 Then
 
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
 
Else
 
MyNumber = ""
 
End If
 
Count = Count + 1
 
Loop
 
Select Case Dollars
 
Case ""
 
Dollars = "No Dollars"
 
Case "One"
 
Dollars = "One Dollar"
 
Case Else
 
Dollars = Dollars & " Dollars"
 
End Select
 
Select Case Cents
 
Case ""
 
Cents = " and no Cents"
 
Case "One"
 
Cents = " and One Cent"
 
Case Else
 
Cents = " and " & Cents & " Cents"
 
End Select
' remplacement de la monnaie par défaut ajout de tee_grandbois
If Not IsMissing(MyMoney) Then Dollars = Replace(Dollars, "Dollar", MyMoney)
SpellNumber = Dollars & Cents
 
End Function
 
 
Function GetHundreds(ByVal MyNumber)
' Converts a number from 100-999 into text
 
Dim Result As String
 
If Val(MyNumber) = 0 Then Exit Function
 
MyNumber = Right("000" & MyNumber, 3)
 
' Convert the hundreds place.
 
If Mid(MyNumber, 1, 1) <> "0" Then
 
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
 
End If
 
' Convert the tens and ones place.
 
If Mid(MyNumber, 2, 1) <> "0" Then
 
Result = Result & GetTens(Mid(MyNumber, 2))
 
Else
 
Result = Result & GetDigit(Mid(MyNumber, 3))
 
End If
 
GetHundreds = Result
 
End Function
 
 
Function GetTens(TensText)
' Converts a number from 10 to 99 into text.
 
Dim Result As String
 
Result = "" ' Null out the temporary function value.
 
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
 
Select Case Val(TensText)
 
Case 10: Result = "Ten"
 
Case 11: Result = "Eleven"
 
Case 12: Result = "Twelve"
 
Case 13: Result = "Thirteen"
 
Case 14: Result = "Fourteen"
 
Case 15: Result = "Fifteen"
 
Case 16: Result = "Sixteen"
 
Case 17: Result = "Seventeen"
 
Case 18: Result = "Eighteen"
 
Case 19: Result = "Nineteen"
 
Case Else
 
End Select
 
Else ' If value between 20-99...
 
Select Case Val(Left(TensText, 1))
 
Case 2: Result = "Twenty "
 
Case 3: Result = "Thirty "
 
Case 4: Result = "Forty "
 
Case 5: Result = "Fifty "
 
Case 6: Result = "Sixty "
 
Case 7: Result = "Seventy "
 
Case 8: Result = "Eighty "
 
Case 9: Result = "Ninety "
 
Case Else
 
End Select
 
Result = Result & GetDigit(Right(TensText, 1))  ' Retrieve ones place.
 
End If
 
GetTens = Result
 
End Function
 
Function GetDigit(Digit)
' Converts a number from 1 to 9 into text.
 
Select Case Val(Digit)
 
Case 1: GetDigit = "One"
 
Case 2: GetDigit = "Two"
 
Case 3: GetDigit = "Three"
 
Case 4: GetDigit = "Four"
 
Case 5: GetDigit = "Five"
 
Case 6: GetDigit = "Six"
 
Case 7: GetDigit = "Seven"
 
Case 8: GetDigit = "Eight"
 
Case 9: GetDigit = "Nine"
 
Case Else: GetDigit = ""
 
End Select
 
End Function

Convertir des chiffres en lettres

VBA Access

Discussions similaires

Partager

Partager