Discussion :

[patricktoulon]

Bonjour casefayere comme promis je te livre la version finale

un orthographe parfait et jusqu'à 999 sextillions.....
utilisation seulement de 2 array pour les nombre de 1 a 19 et 10 a 90
un 3 array pour les expressions (mille,million etc...)

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
Function nombre_en_lettre5(nombre, Optional sstr As String = " euro", Optional sstr2 As String = " centime")
    Dim i As Long, unit1, unit10, tablo, e_dec(2), e As Long, u As Long, d As Long, c As Long, ct As String, cs As String, etE As String, a As String, decs As Long, ddd As String, ms, cms As Long, h As Long, ds As Long, et As String
    e_dec(0) = Split(nombre, ",")(0): e_dec(0) = Split(Trim(Format(e_dec(0), Application.Rept(" @@@", 20))), " ")
    If InStr(nombre, ",") > 0 Then e_dec(1) = Left(Split(nombre, ",")(1), 2): e_dec(1) = Split(Trim(Format(e_dec(1), Application.Rept(" @@@", 20))), " "): decs = 1
     etE = IIf(decs > 0, " et", ""): ddd = IIf(Val(Join(e_dec(0))) > 999000 And Right(Join(e_dec(0)), 6) = 0, IIf(sstr = " dollar", " de", " d'"), "")
    unit1 = Array("", " Un", " Deux", " Trois", " Quatre", " Cinq", " Six", " Sept", " Huit", " Neuf", " Dix", " Onze", " Douze", " treize", " Quatorze", " Quinze", " Seize", " Dix-Sept", " Dix-Huit", " Dix-Neuf", " cent", " zero")
    unit10 = Array("", " dix", " vingt", " trente", " quarante", " cinquante", " soixante", " soixante-dix", " quatre-vingt", " quatre-vingt-dix", " cent")
    ms = Array("", " sextillion", " Quintillion", " Quatrillion", " Trillion", " Billiard", " Billion", " milliard", " million", " mille", ""): cms = UBound(ms)
    For e = 0 To decs
        tablo = e_dec(e): h = UBound(tablo)
        For i = 0 To h
            If e = 1 And i = h Then tablo(i) = "000" & Left(tablo(i), 2)
            a = ms(cms - (h - i)): a = IIf(tablo(i) = 0 And i < h, "", a): a = IIf(tablo(i) > 1 And i < h - 1 And a <> " mille", a & "s", a)
            tablo(i) = IIf(e = 0, Right("000" & tablo(i), 3), Mid(tablo(i) & "0", 3, 3)): d = (tablo(i) Mod 100)
            c = Mid(tablo(i), 1, 1): c = IIf(c = 1, 20, c): ct = IIf(c < 20 And c > 1, " cent", ""): ct = IIf(tablo(i) Mod 100 = 0 And c <> 20 And c > 1, ct & "s", ct)
            cs = IIf(e > 0 And tablo(0) > 1, "s", ""): ds = Mid(Right(tablo(i), 2), 1, 1): u = Right(tablo(i), 1)
            u = IIf(Val(tablo(i)) = 1 And a = " mille", 0, u): u = IIf(tablo(i) = 0 And i = 0, 21, u)
            If d > 10 And d < 20 Or d > 70 And d < 80 Or d > 90 Then u = Val(Right(d, 1)) + 10: ds = Left(d, 1) - 1    'on calcul ds et u par le resultat du mod 100
            et = IIf(ds > 1 And ds < 9, IIf(Right(u, 1) = 1, IIf(ds = 8, "-", " et"), IIf(d Mod 10 = 0 And ds = 8, "s", "-")), "")
            et = IIf(ds > 1 And ds < 7 And d Mod 10 = 0 And et = "-", "", et)
            If Join(e_dec(0)) = 0 And e = 0 Then sstr = "": etE = "": u = 0
            nombre_en_lettre5 = nombre_en_lettre5 & unit1((c)) & ct & unit10(ds) & et & unit1(u) & a
        Next
        nombre_en_lettre5 = Replace(nombre_en_lettre5 & IIf(e = 0, ddd & sstr & IIf(Int(nombre) > 1, "s", "") & etE, sstr2 & cs), "- ", "-")
    Next
End Function

et pour tester

Code :

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

1
2
3
4
5
6
7
Sub test()
    Debug.Print nombre_en_lettre5("5632145623,43", " euro", " centime")
    Debug.Print nombre_en_lettre5("1", " dollar", " cent")
    Debug.Print nombre_en_lettre5("1", " euro", " centime")
 
Debug.Print nombre_en_lettre5("999214542145245164352465854265,2", " dollar", " cent")
End Sub

[casefayere]

Bonjour Patrick
Je te remercie et te félicite pour ton boulot et ta ténacité, d'autant que j'ai suivi le feuilleton sur le forum "Macros et Vba"
Bonne journée

[patricktoulon]

merci a toi aussi Bonne journée

on a fait un remake de Dallas un univers impitoyable

[mercatog]

@Patrick
70000

soixante-dix-mille soixante-dix-euros Un tiret de plus

[patricktoulon]

re
et c'est comme ca pour chaque dizaine? j'ai surfer un peu et parfois non???

est ce que soixante-dix-huit-mille est correct parce que c'a m'enlève encore une ligne

[mercatog]

Tu as un tiret systématique après soixante-dix

soixante-dix-machin

[patricktoulon]

oui mais les autre dizaines ?
et puis c'est a 90% le contraire partout ou je fouine même le conjugueur

vous allez me rendre dingue et dire que je les avais supprimer au milieu de ma discussion

[mercatog]

On ne dit pas soixante-dix-euro(s) quand même. On écrit soixante-dix euro(s)
On ne dit pas soixante-dix-mille quand même. On écrit soixante-dix mille
On ne dit pas soixante-dix-millions quand même. On écrit soixante-dix millions

http://leconjugueur.lefigaro.fr/nombre/70000.html

Et alors?

[patricktoulon]

a oui quand tu disais en plus tu signalais l'erreur
je suis surpris je ne l'avais pas avant
corrigé

Code :

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

et = IIf(ds > 1 And ds < 9, IIf(Right(u, 1) = 1, IIf(ds = 8, "-", " et"), IIf(d Mod 10 = 0 And ds = 8, "s", IIf(u = 0, "", "-"))), "")

sinon vous avez la méthode globale avec des if simples

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
Function nBlettre_methode_globale(nombres As String)
    Dim en_dec(2)
    unit1 = Array("", " Un", " Deux", " Trois", " Quatre", " Cinq", " Six", " Sept", " Huit", " Neuf", " Dix", " Onze", " Douze", " treize", " Quatorze", " Quinze", " Seize", " Dix-Sept", " Dix-Huit", " Dix-Neuf", " cent", " zéro")
    unit10 = Array("", " dix", " vingt", " trente", " quarante", " cinquante", " soixante", " soixante-dix", " quatre-vingt", " quatre-vingt-dix", " cent")
    ms = Array("", " sextillion", " Quintillion", " Quatrillion", " Trillion", " Billiard", " Billion", " milliard", " million", " mille", ""): cms = UBound(ms)
    decs = 0: nombres = Replace(nombres, ".", ","): en_dec(0) = Split(nombres, ",")(0): If InStr(nombres, ",") > 0 Then en_dec(1) = Split(nombres, ",")(1): decs = 1    'on separe le decimal de l'entier
    If Len(en_dec(0)) Mod 3 <> 0 Then en_dec(0) = Application.Rept("0", 3 - Len(en_dec(0)) Mod 3) & en_dec(0)    'on formate l'entier a 3 chiffre par tranche
    If decs = 1 Then en_dec(1) = Right("00" & Round(Val("0." & en_dec(1)), 2) * 100, 3)  ' NOUVELLE METHODE POUR ADAPTER LE DECIMAL on formate a 3 chiffres
    ex = cms - (Len(en_dec(0)) / 3) + 1    ' index de point de depart des expressions dans l'array ms
    For e = 0 To decs
        For i = 1 To Len(en_dec(e)) Step 3
            a = ex + Round(i / 3)    'position actuelle de ms
            nombre = Mid(en_dec(e), i, 3)    ' la tranche
            dix = Mid(nombre, 2, 1): u = Right(nombre, 1): c = Left(nombre, 1): If c > 1 Then c = c: ct = unit1(20) & IIf(Val(dix & u) > 0, "", "s") Else: ct = "": If c = 1 Then c = 20
            If dix = 1 Or dix = 7 Or dix = 9 And Right(u, 1) > 0 Then dix = dix - 1: u = u + 10   'on corrige le 1,7,9
            If dix > 1 And dix <> 8 And Right(u, 1) = 1 Then et = " et" Else If dix = 0 Then et = "" Else et = "-"    ' on accorde de 1 a 99
            If u = 0 Then If dix = 8 Then et = "s" Else et = ""    'le s a quatre-vingt tout seul
            If nombre = 0 And Len(en_dec(0)) = 3 Then u = 21: dix = 0    ' le zéro si l'entier vaut 0 tout simplement
            If nombre = 0 And i <> 1 Then a = 0 ' on est pas au debut  et que nombre = 0 on met pas l'expression 
            If nombre = 1 And i = 1 And ms(a) = " mille" Then u = 0'si au debut on un mille on met pas le un 
            If e = 0 And nombre > 1 And a < cms - 1 Then ss = "s" Else ss = ""
            nBlettre_methode_globale = nBlettre_methode_globale & Replace(unit1(c) & ct & unit10(dix) & et & unit1(u), "- ", "-") & IIf(e = 0, ms(a), "") & ss
        Next i
        nBlettre_methode_globale = nBlettre_methode_globale & IIf(e = 0 And decs = 1, " virgule", "")
    Next e
End Function

[mercatog]

Autre chose: quatre-vingt mille

quatre-vingts millions

quatre-vingts milliards

[patricktoulon]

Bonjour Mercatog

correction dans la version iif

Code :

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

et = IIf(ds > 1 And ds < 9, IIf(Right(u, 1) = 1, IIf(ds = 8, "-", " et"), IIf(d Mod 10 = 0 And ds = 8, IIf(a = " mille", "", "s"), IIf(u = 0, "", "-"))), "")

correction dans la version if simple méthode globale

Code :

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

If u = 0 Then If dix = 8 Then If ms(a) = " mille" Then et = "" Else et = "s"     'le s a quatre-vingt tout seul