Discussion :

[casabest]

Hi

Salut
Bon Le blem c'est que j veux entrer une somme d'argent en chiffre (1000 Euro)
et et l programme ensuite fait la traduction en Lettres
ce qui donne un resultat Final Mille euro

A vos Clavier les experts en la matière

[zehle]

une recherche sur notre ami s'impose

[casabest]

hhh
oui mais il faut savoir ou chercher
google est plein de truc hyper et d'autres part y'a que du blabla

[Paul Van Walleghem]

Créer cette fonction en VB ne doit pas être compliqué... Si tu démarrarre en VB, je te conseille le site http://plasserre.developpez.com/vsommair.htm

[smyley]

Convertir "1000" en "Mille" ?! Dans le principe c'est simple mais ça va te prendre beaucoup de temps. Il faudra que tu vérifie toi même tous les cas :
1000 -> Mille
1001 -> Mille Un
1002 -> Mille Deux
...

[casabest]

J'aimerais bien trouvé un code source complet .

parce que j'ai beaucoup de chose à faire . en plus de cette fonction.

alors faites un peu de recherche avec moi slp

[zehle]

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
 
using System;
//namespace toto;
 
namespace toto.convertisseur {
	public class ConvertisseurChiffresLettres{
 
		public string converti(float chiffre){
			int centaine, dizaine, unite, reste, y;
		    bool dix = false;
			string lettre = "";
		    //strcpy(lettre, "");
 
		    reste = chiffre / 1;
 
		    for(int i=1000000000; i>=1; i/=1000)
		    {
		        y = reste/i;
		        if(y!=0)
		        {
		            centaine = y/100;
		            dizaine  = (y - centaine*100)/10;
		            unite = y-(centaine*100)-(dizaine*10);
		            switch(centaine)
		            {
		                case 0:
		                    break;
		                case 1:
		                    lettre += "cent ";
		                    break;
		                case 2:
		                    if((dizaine == 0)&&(unite == 0)) lettre +="deux cents ";
		                    else lettre +="deux cent ";
		                    break;
		                case 3:
		                    if((dizaine == 0)&&(unite == 0)) lettre += "trois cents ";
		                    else lettre += "trois cent ";
		                    break;
		                case 4:
		                    if((dizaine == 0)&&(unite == 0)) lettre+="quatre cents ";
		                    else lettre +="quatre cent ";
		                    break;
		                case 5:
		                    if((dizaine == 0)&&(unite == 0)) lettre+="cinq cents ";
		                    else lettre+="cinq cent ";
		                    break;
		                case 6:
		                    if((dizaine == 0)&&(unite == 0)) lettre+="six cents ";
		                    else lettre += "six cent ";
		                    break;
		                case 7:
		                    if((dizaine == 0)&&(unite == 0)) lettre+="sept cents ";
		                    else lettre+="sept cent ";
		                    break;
		                case 8:
		                    if((dizaine == 0)&&(unite == 0)) lettre+="huit cents ";
		                    else lettre+="huit cent ";
		                    break;
		                case 9:
		                    if((dizaine == 0)&&(unite == 0)) lettre+="neuf cents ";
		                    else lettre+="neuf cent ";
		            }// endSwitch(centaine)
 
		            switch(dizaine)
		            {
		                case 0:
		                    break;
		                case 1:
		                    dix = true;
		                    break;
		                case 2:
		                    lettre+="vingt ";
		                    break;
		                case 3:
		                    lettre+="trente ";
		                    break;
		                case 4:
		                    lettre+="quarante ";
		                    break;
		                case 5:
		                    lettre+="cinquante ";
		                    break;
		                case 6:
		                    lettre+="soixante ";
		                    break;
		                case 7:
		                    dix = true;
		                    lettre+="soixante ";
		                    break;
		                case 8:
		                    lettre+="quatre-vingt ";
		                    break;
		                case 9:
		                    dix = true;
		                    lettre+="quatre-vingt ";
		            } // endSwitch(dizaine)
 
		            switch(unite)
		            {
		                case 0:
		                    if(dix) lettre+="dix ";
		                    break;
		                case 1:
		                    if(dix) lettre+="onze ";
		                    else    lettre+="un ";
		                    break;
		                case 2:
		                    if(dix) lettre+="douze ";
		                    else    lettre+="deux ";
		                    break;
		                case 3:
		                    if(dix) lettre+="treize ";
		                    else    lettre+="trois ";
		                    break;
		                case 4:
		                    if(dix) lettre+="quatorze ";
		                    else    lettre+="quatre ";
		                    break;
		                case 5:
		                    if(dix) lettre+="quinze ";
		                    else    lettre+="cinq ";
		                    break;
		                case 6:
		                    if(dix) lettre+="seize ";
		                    else    lettre+="six ";
		                    break;
		                case 7:
		                    if(dix) lettre+="dix-sept ";
		                    else    lettre+="sept ";
		                    break;
		                case 8:
		                    if(dix) lettre+="dix-huit ";
		                    else    lettre+="huit ";
		                    break;
		                case 9:
		                    if(dix) lettre+="dix-neuf ";
		                    else    lettre+="neuf ";
		            } // endSwitch(unite)
 
		            switch (i)
		            {
		                case 1000000000:
		                    if(y>1) lettre+="milliards ";
		                    else lettre+="milliard ";
		                    break;
		                case 1000000:
		                    if(y>1) lettre+="millions ";
		                    else lettre+="million ";
		                    break;
		                case 1000:
		                    lettre+="mille ";
		            }
		        } // end if(y!=0)
		        reste -= y*i;
		        dix = false;
		    } // end for
		    if(lettre.Length ==0) lettre+="zero"; 
 
			return lettre;
		}
	}
}

Ceci est un code C#, amuse toi à le traduire en VB