High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

[VB6] Conversion chiffres-lettres

mannylikita, le 25 oct 2003 à 13:06:02
 Signaler ce message aux modérateurs

Comment peux-je convertir des chiffres(nombres) en lettres en VB6; en excel je fais ça avec morefun.dll
Compte sur votre collaboration

Ir. Manny LIKITA
Tél: (00243) 98248846

1

agent dooger, le 26 oct 2003 à 19:30:29
  • +13

Pourras tu étre plus claire, me dir exactement se que tu veux obtenir.
Par exemple si tu veux que le 0 devienne un a; le 1 devienne un b (c'est ça ?)

   

2

mannylikita, le 30 oct 2003 à 12:11:10
  • +6

Bonjour,
Par la présente je vous vous remercie de votre sens de collaboration. en effet je cherche l'astuce en Visual-Basic pour convertir automatiquement un chiffre ou un nombre directement en lettres comme le fait Morefun en excel; par exemple 10.500 s'écrira dix mille cinq cents....65 s'ecrira soixante cinq.
Bonne comprehension et au plaisir de se retrouver

Ir. Manny LIKITA
Tél: (00243) 98248846
:(00243)812503297

   

3

patrick, le 5 déc 2003 à 19:08:21

Bonjour
je suis aussi interressé par la conversion chiffres lettres dans excel
qu'est-ce que morefun.dll et ou le trouver ??
merci de vos suggestions

   

4

FraKtaL, le 6 déc 2003 à 00:44:49

VB ne propose pas, bien sur, une fonction qui fasse ça automatiqument.

Il existe peut etre des composants activeX qui le fassent, l'equivalent de morefun.dll, mais j'en doute

La seule solution est, a mon avis, de creer son propre algorithme.

OK c pas facile...
mais pas impossible

Pour ceux qui sont motivés :
http://yann.coscoy.free.fr/nombre/info.html

trouvé en tapant
algorithme nombre en toutes lettres
dans google

et un truc qui plus parlant ecrit dans un langage proche du VB :
http://www.opl32.com/Trucs/String/NbEnTxt.htm

FraKtaL

   

5

filaliabdou, le 6 déc 2003 à 22:44:21
  • +3

Salut tout le monde,

en fait j'ai réalisé une fonction VB qui fait la conversion chiffres-lettres , je l'ai essayé et ça marche bien

si vous etes intéressés envoyer moi un E-mail et je vous l'envoi.
pas de copyright, vous pouvez l'utiliser et la modifier comme vous voulez

time is not money, time is life

   

6

mannylikita, le 16 déc 2003 à 16:36:35
  • +2

Salut !

Merci pour votre assistance, voici mon adresse-email:
<<mannylikita@yahoo.fr>>


Ir. Manny LIKITA
Tél: (00243) 98248846

   

38

 patrick, le 19 mar 2005 à 15:54:02
  • +3

Vous avez demandé à recevoir les réponses au message de mannylikita intitulé « [VB6] Conversion chiffres-lettres » datant du 25 octobre 2003 à 13h06. Ce message vient de recevoir la réponse suivante de sabri :

--------------------------------------------------

Public Function sommelettre(ByVal argument As Currency) As String
Dim entier As Double
Dim cts As Double

Dim resultat1 As String
Dim resultat2 As String

entier = Int(argument) ' Valeur entière
cts = (argument - entier) * 100 ' Valeur Centimes

resultat1 = somlet2(entier)
resultat2 = somlet2(cts)

If Trim(resultat1) <> "" Then
resultat1 = resultat1 & " Dinars "
End If
If Trim(resultat2) <> "" Then
resultat2 = resultat2 & " Cts"
End If
sommelettre = resultat1 & " et " & resultat2

End Function
'*************************************************************
' Fonction de conversion chiffres en lettres
'*************************************************************
Public Function somlet2(ByVal argument As Double) As String

Dim lettres As Variant
Dim unites As Variant
Dim dizaines As Variant
Dim centaines As Variant

Dim unite As Integer
Dim dix As Integer
Dim cent As Integer

Dim groupes As Variant
Dim chaine As String
Dim ng, nc As Integer
Dim i, j, k As Integer
Dim xx As String

chaine = Trim(Str(argument))
nc = Len(chaine) ' Nbre de chiffres


lettres = Array("", "mille", "million", "milliard", "billion")
unites = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", "dix sept", "dix huit", "dix neuf")
dizaines = Array("", "dix", "vingt", "trente", "quarante", "cinquante", "soixante", "soixante dix", "quatre vingt", "quatre vingt dix")
centaines = Array("", "cent", "deux cents", "trois cents", "quatre cents", "cinq cents", "six cents", "sept cents", "huit cents", "neuf cents")

If argument = 0 Then
somlet2 = ""
Else
If nc Mod 3 > 0 Then
ng = Int(nc / 3) + 1 ' Nbre de groupes
Else
ng = nc / 3
End If
ReDim groupes(ng - 1)
chaine = String(ng * 3 - nc, " ") & chaine
nc = Len(chaine)
j = 0
For i = nc To 1 Step -3
xx = Mid(chaine, i - 2, i)
groupes(j) = xx
j = j + 1
Next
chaine = ""
For j = 0 To UBound(groupes)
unite = Val(Mid(groupes(j), 3, 1))
dix = Val(Mid(groupes(j), 2, 1))
If dix = 1 Or dix = 7 Or dix = 9 Then
dix = dix - 1
unite = unite + 10
End If
cent = Val(Mid(groupes(j), 1, 1))
chaine = centaines(cent) & " " & dizaines(dix) & " " & unites(unite) & " " & lettres(j) & " " & chaine
Next
somlet2 = chaine
End If
End Function

   

9

djamel, le 10 jan 2004 à 20:15:47

Bonjour,

Bonne année avant tout, à mon tour de te dire que je suis intérésé par la macro, si tu veux bien sûr,
merci d'avance
mon mail est : djamel92@hotmail.com

   

18

Réda, le 26 avr 2004 à 01:50:31
  • +1

Salut
si ça ne te dérange pas veuillez m'envoyer le code en vb6 qui fait la conversion de chiffres en lettres (79 -> soixante dix-neuf)
j'en ai besoin pour faire la conversion de montants en toutes lettres dans une application de stage

   

19

Réda, le 26 avr 2004 à 02:02:29
  • +1

Si ça ne te dérange pas veuillez m'envoyer ,SVP, le code en vb6 qui fait la conversion de chiffres en lettres (79 -> soixante dix-neuf)
j'en ai besoin pour faire la conversion de montants en toutes lettres dans une application de stage
mon e-mail est a.lleda@caramail.com
et merci

   

24

BEN AISSIA, le 4 aoû 2004 à 11:03:57

Envoi moi un copie de la conversion chiffre en lettre avec details merci.

j'ai autre probleme signifie d'une application access(verifier avec un commentaire) vb le lien dans le menu vb pour appeler application access j'ai utilisé shell mais le probleme quand j'ai installation elle n'affiche pas cad à chaque inst. modifié le repertoir ou se trouve app mais je voudrais q'uelle se fait directement
lapplication se trouve dans un compte specifique pour ça :karim_ben2@yahoo.fr --------password:prince

   

25

Jacky, le 9 oct 2004 à 11:59:35

Salut
je serais egalement interesser par ton script

avec tous mes remerciement

cordialement jacky

   

26

Aurore, le 19 oct 2004 à 11:04:57

Je suis intéressée aussi par cette conversion! Ca fait lgtps que j'aimerais bien trouver la solution! Pouvez-vs me renvoyer la réponse svp: aurorenoel18@hotmail.com. Un grand merci!!

   

31

patrick, le 12 jan 2005 à 10:23:34

Suite à ta reponse,je te remercie de m'envoyer ton algo vb pour la conversion nombre en litteral à ruffierp@free.fr

   

32

l_amish, le 17 fév 2005 à 17:47:34
  • +1

Bonjour,

Ds un msg recent ( loll de 12/03)t tu dis :"Salut tout le monde,

en fait j'ai réalisé une fonction VB qui fait la conversion chiffres-lettres , je l'ai essayé et ça marche bien

si vous etes intéressés envoyer moi un E-mail et je vous l'envoi.
pas de copyright, vous pouvez l'utiliser et la modifier comme vous voulez "

Est ce que c possible de me l'envoyer par mail??
Merci d 'avance c cool....

   

35

virginie, le 11 mar 2005 à 14:41:16

Salut,

j'aimerais bien recevoir aussi la conversion de chiffres en lettres
peux-tu me l'envoyer svp ?
virginiehuot@wanadoo.fr

merci d'avance!!

   

7

cenalex, le 16 déc 2003 à 22:20:28

Bonjour à tous
je serais aussi interresse par la macro vba convertir des chiffre en lettre car cela fais un moment que je tourne au tour et que je ne trouve pas
merci d'avance
voici mon e mail
jsalbert@hotmail.com
merci

   

8

glopgg, le 2 jan 2004 à 13:44:58

Bjr et bonne année

je suis aussi intérressé par cette fonction, si possible merci de me l' envoyer (pas en .exe car hotmail refuse ce type d'extension)

Par avance encore merci

glopgg@hotmail.com

   

10

nathdiscaz, le 3 avr 2004 à 15:56:33

Bonjours, je cherche également un algorithme permettant de mettre un chiffre en toute lettre mais dans un autre langage que Visual basic.
mais si vous pouviez m'envoyer cette algorithme je n'aurais cas le modifier.
Voici mon adresse : nathdiscaz@wanadoo.fr

merci beaucoup.

   

11

Albert ZOURE, le 6 avr 2004 à 19:10:37

Bonjour,

Merci de m'aider à avoir une macro qui puisse transformer les chiffres en lettre (ex: 10 = dix).
Je vous en serai très reconnaissant.
Amicalement

   

12

Manny LIKITA, le 11 avr 2004 à 09:18:16

Veuillez me communiquer votre adresse e-mail pour une suite favorable

   

13

ilhame12, le 11 avr 2004 à 22:19:45

Bonjour
je interesse par ce programme si vous voulez bien me l'envoyer SVP
ilham1211@yahoo.fr

merci

   

14

ilhame12, le 12 avr 2004 à 14:02:07

Bonjour

je me suis tromper de mail mon mail est "ilham1211@caramail.com"
je m'exuse et j'attend votre reponse
merci.

   

15

fred, le 12 avr 2004 à 14:51:23

Salut a toi !
priere de m'envoyer aussi cette superbe fonction de conversion des chiffres en lettres
merci
mon e-mail : f_soliste@yahoo.com

   

16

bul, le 12 avr 2004 à 15:58:07

J'avais trouvé ça, je ne sais plus où
pas complètement testé,
mais "simple"
.....
Il est au top pour la Belgique.
Mais le travail est déjà "mâché" pour la France
a+
Jean-Pol DAVID
www.peintures-david.com
ICQ 28394733

Function NBenLettres(nb)
'
Dim varnum, varnumD, varnumU, varlet ', résultat
'
'varnum : pour stocker les parties du nombre que l'on va découper
'varlet : pour stocker la conversion en lettres d'une partie du nombre
'varnumD : pour stocker la partie dizaine d'un nombre à 2 chiffres
'varnumU : pour stocker la partie unité d'un nombre à 2 chiffres
'résultat : pour stocker les résultats intermédiaires des différentes étapes
'
Static chiffre(1 To 19) '*** tableau contenant le nom des 16 premiers
nombres en lettres
chiffre(1) = "un"
chiffre(2) = "deux"
chiffre(3) = "trois"
chiffre(4) = "quatre"
chiffre(5) = "cinq"
chiffre(6) = "six"
chiffre(7) = "sept"
chiffre(8) = "huit"
chiffre(9) = "neuf"
chiffre(10) = "dix"
chiffre(11) = "onze"
chiffre(12) = "douze"
chiffre(13) = "treize"
chiffre(14) = "quatorze"
chiffre(15) = "quinze"
chiffre(16) = "seize"
chiffre(17) = "dix-sept"
chiffre(18) = "dix-huit"
chiffre(19) = "dix-neuf"
Static dizaine(1 To 9) '*** tableau contenant les noms des dizaines
dizaine(1) = "dix"
dizaine(2) = "vingt"
dizaine(3) = "trente"
dizaine(4) = "quarante"
dizaine(5) = "cinquante"
dizaine(6) = "soixante"
dizaine(7) = "soixante-dix"
dizaine(8) = "quatre-vingt"
dizaine(9) = "quatre-vingt-dix"
'
'*** Traitement du cas zéro franc
'
If nb >= 1 Then
résultat = ""
Else
résultat = "zéro"
GoTo fintraitementfrancs
End If
'
'*** Traitement des millions
'
varnum = Int(nb / 1000000)
If varnum > 0 Then
GoSub centaine_dizaine
résultat = varlet + " million"
If varlet <> "un" Then résultat = résultat + "s"
End If
'
'*** Traitement des milliers
'
varnum = Int(nb) Mod 1000000
varnum = Int(varnum / 1000)
If varnum > 0 Then
GoSub centaine_dizaine
If varlet <> "un" Then résultat = résultat + " " + varlet
résultat = résultat + " mille"
End If
'
'*** Traitement des centaines et dizaines
'
varnum = Int(nb) Mod 1000
If varnum > 0 Then
GoSub centaine_dizaine
résultat = résultat + " " + varlet
End If
résultat = LTrim(résultat)
varlet = Right$(résultat, 4)
'
'*** Traitement du "s" final pour vingt et cent et du "de" pour million
'
Select Case varlet
Case "cent", "ingt"
résultat = résultat + "s"
Case "lion", "ions"
résultat = résultat + " de"
End Select

fintraitementfrancs: '*** Etiquette de branchement pour le cas "zéro franc"
'
'*** Indication du terme franc
'
résultat = résultat + " euro"
If nb >= 2 Then résultat = résultat + "s"
'
'*** Traitement des centimes
'
varnum = Int((nb - Int(nb)) * 100 + 0.5) '*** On additionne 0,5
'*** afin de compenser les erreurs de calcul dues aux arrondis
If varnum > 0 Then
GoSub centaine_dizaine
résultat = résultat + " et " + varlet + " centime"
If varnum > 1 Then résultat = résultat + "s"
End If
'
'*** Conversion 1ère lettre en majuscule
'
résultat = UCase(Left(résultat, 1)) + Right(résultat, Len(résultat) - 1)
'
'*** renvoie du résultat de la fonction et fin de la fonction
'
NBenLettres = résultat
Exit Function

centaine_dizaine: '*** Sous-programme de conversion en lettres
'
'*** des centaines et dizaines
'
varlet = ""
'
'*** Traitement des centaines
'
If varnum >= 100 Then
varlet = chiffre(Int(varnum / 100))
varnum = varnum Mod 100
If varlet = "un" Then
varlet = "cent "
Else
varlet = varlet + " cent "
End If
End If
'
'*** Traitement des dizaines
'
If varnum <= 19 Then '*** Cas où la dizaine est <20
If varnum > 0 Then varlet = varlet + chiffre(varnum)
Else '*** Autres cas
varnumD = Int(varnum / 10) '*** chiffre des dizaines
varnumU = varnum Mod 10 '*** chiffre des unités
'''Select Case varnumD '*** génération des dizaines en lettres
varlet = varlet + dizaine(varnumD)
'''Case Is <= 5
'''varlet = varlet + dizaine(varnumD)
'''Case 6, 7
'''varlet = varlet + dizaine(6)
'''Case 8, 9
'''varlet = varlet + dizaine(8)
'''End Select
'
'*** traitement du séparateur des dizaines et unités
'
If varnumU = 1 And varnumD < 8 Then
varlet = varlet + " et "
Else
If varnumU <> 0 Then
varlet = varlet + "-" '''Or varnumD = 7 Or varnumD = 9
End If
End If
'
'*** génération des unités
'
'''If varnumD = 7 Or varnumD = 9 Then varnumU = varnumU + 10
If varnumU <> 0 Then varlet = varlet + chiffre(varnumU)
End If
'
'*** Suppression des espaces à gauche et retour
'
varlet = RTrim(varlet)
Return
End Function

dites moi si soucis.

   

36

Amir Kasmi, le 13 mar 2005 à 18:42:53
  • +1

Salut je voudrais que vous me donner ou et comment utliser ce code
Merci d'avance

   

17

véronique costellazione, le 25 avr 2004 à 12:49:00

Saluti !
J'aimerai beaucoup recevoir cette superbe fonction de conversion des chiffres en lettres ex 1OO - Cent
merci

   

20

fred, le 26 avr 2004 à 19:11:02

Voila le code intégral de la founction tant recherchée :
Function NBenLettres(nb)
'
Dim varnum, varnumD, varnumU, varlet ', résultat
'
'varnum : pour stocker les parties du nombre que l'on va découper
'varlet : pour stocker la conversion en lettres d'une partie du nombre
'varnumD : pour stocker la partie dizaine d'un nombre à 2 chiffres
'varnumU : pour stocker la partie unité d'un nombre à 2 chiffres
'résultat : pour stocker les résultats intermédiaires des différentes étapes Mille vingt-cinq Euros
'
Static chiffre(1 To 19) '*** tableau contenant le nom des 16 premiers Cents Euros
nombres en lettres
chiffre(1) = "un" Cents Euros et quinze centimes
chiffre(2) = "deux"
chiffre(3) = "trois"
chiffre(4) = "quatre"
chiffre(5) = "cinq"
chiffre(6) = "six"
chiffre(7) = "sept"
chiffre(8) = "huit"
chiffre(9) = "neuf"
chiffre(10) = "dix"
chiffre(11) = "onze"
chiffre(12) = "douze"
chiffre(13) = "treize"
chiffre(14) = "quatorze"
chiffre(15) = "quinze"
chiffre(16) = "seize"
chiffre(17) = "dix-sept"
chiffre(18) = "dix-huit"
chiffre(19) = "dix-neuf"
Static dizaine(1 To 9) '*** tableau contenant les noms des dizaines
dizaine(1) = "dix"
dizaine(2) = "vingt"
dizaine(3) = "trente"
dizaine(4) = "quarante"
dizaine(5) = "cinquante"
dizaine(6) = "soixante"
dizaine(7) = "soixante-dix"
dizaine(8) = "quatre-vingt"
dizaine(9) = "quatre-vingt-dix"
'
'*** Traitement du cas zéro franc
'
If nb >= 1 Then
résultat = ""
Else
résultat = "zéro"
GoTo fintraitementfrancs
End If
'
'*** Traitement des millions
'
varnum = Int(nb / 1000000)
If varnum > 0 Then
GoSub centaine_dizaine
résultat = varlet + " million"
If varlet <> "un" Then résultat = résultat + "s"
End If
'
'*** Traitement des milliers
'
varnum = Int(nb) Mod 1000000
varnum = Int(varnum / 1000)
If varnum > 0 Then
GoSub centaine_dizaine
If varlet <> "un" Then résultat = résultat + " " + varlet
résultat = résultat + " mille"
End If
'
'*** Traitement des centaines et dizaines
'
varnum = Int(nb) Mod 1000
If varnum > 0 Then
GoSub centaine_dizaine
résultat = résultat + " " + varlet
End If
résultat = LTrim(résultat)
varlet = Right$(résultat, 4)
'
'*** Traitement du "s" final pour vingt et cent et du "de" pour million
'
Select Case varlet
Case "cent", "ingt"
résultat = résultat + "s"
Case "lion", "ions"
résultat = résultat + " de"
End Select

fintraitementfrancs: '*** Etiquette de branchement pour le cas "zéro franc"
'
'*** Indication du terme franc
'
résultat = résultat + " euro"
If nb >= 2 Then résultat = résultat + "s"
'
'*** Traitement des centimes
'
varnum = Int((nb - Int(nb)) * 100 + 0.5) '*** On additionne 0,5
'*** afin de compenser les erreurs de calcul dues aux arrondis
If varnum > 0 Then
GoSub centaine_dizaine
résultat = résultat + " et " + varlet + " centime"
If varnum > 1 Then résultat = résultat + "s"
End If
'
'*** Conversion 1ère lettre en majuscule
'
résultat = UCase(Left(résultat, 1)) + Right(résultat, Len(résultat) - 1)
'
'*** renvoie du résultat de la fonction et fin de la fonction
'
NBenLettres = résultat
Exit Function

centaine_dizaine: '*** Sous-programme de conversion en lettres
'
'*** des centaines et dizaines
'
varlet = ""
'
'*** Traitement des centaines
'
If varnum >= 100 Then
varlet = chiffre(Int(varnum / 100))
varnum = varnum Mod 100
If varlet = "un" Then
varlet = "cent "
Else
varlet = varlet + " cent "
End If
End If
'
'*** Traitement des dizaines
'
If varnum <= 19 Then '*** Cas où la dizaine est <20
If varnum > 0 Then varlet = varlet + chiffre(varnum)
Else '*** Autres cas
varnumD = Int(varnum / 10) '*** chiffre des dizaines
varnumU = varnum Mod 10 '*** chiffre des unités
'''Select Case varnumD '*** génération des dizaines en lettres
varlet = varlet + dizaine(varnumD)
'''Case Is <= 5
'''varlet = varlet + dizaine(varnumD)
'''Case 6, 7
'''varlet = varlet + dizaine(6)
'''Case 8, 9
'''varlet = varlet + dizaine(8)
'''End Select
'
'*** traitement du séparateur des dizaines et unités
'
If varnumU = 1 And varnumD < 8 Then
varlet = varlet + " et "
Else
If varnumU <> 0 Then
varlet = varlet + "-" '''Or varnumD = 7 Or varnumD = 9
End If
End If
'
'*** génération des unités
'
'''If varnumD = 7 Or varnumD = 9 Then varnumU = varnumU + 10
If varnumU <> 0 Then varlet = varlet + chiffre(varnumU)
End If
'
'*** Suppression des espaces à gauche et retour
'
varlet = RTrim(varlet)
Return
End Function

   

30

meriem, le 19 déc 2004 à 21:15:05

Salut j'ai un projet de conversion chiffre lettre mais pas en VB plutot en C alors si c'est possible de me l'envoyer c'est tres urgens

   

37

j-marc, le 16 mar 2005 à 22:57:20

Bonjour,

Pas mal le code mais j'ai trouvé 2 Bug

100 = cents au lieu de cent et idem pour 20

bon courage

A+

   

21

Alain LOEB, le 6 mai 2004 à 08:32:32
  • +4

J'aimerai télécharger le programme de conversion chiffre en lettre

   

22

fred, le 6 mai 2004 à 09:29:30
  • +3

Le code de cette celebre founction se trouve sur dejà sur ce post

   

23

Hilaire, le 16 jui 2004 à 16:57:32

Salut, j'aimerais savoir comment afficher une date en lettre.
Merci!

   

27

yacine, le 11 nov 2004 à 22:49:12
  • +1

Salut tous le monde je voudrais le programme en question transformer les chiffres en lettres
merci

   

28

yacine, le 11 nov 2004 à 22:55:16

Bon jour
svp passez moi le programme en question
merci.

   

29

ziane hamza, le 17 déc 2004 à 23:30:38

Slut jeveux un programme qui permet deconvertir un nombre ecrit en chiffre en un nombre ecrit en lettre ave lelangage de programmation c
merci

   

33

sabri, le 17 fév 2005 à 21:25:56
  • +2



Public Function sommelettre(ByVal argument As Currency) As String

       Dim entier As Double

       Dim cts As Double



       Dim resultat1 As String

       Dim resultat2 As String

       

       entier = Int(argument)            ' Valeur entière

       cts = (argument - entier) * 100   ' Valeur Centimes

       

       resultat1 = somlet2(entier)

       resultat2 = somlet2(cts)

       

       If Trim(resultat1) <> "" Then

          resultat1 = resultat1 & " Dinars "

       End If

       If Trim(resultat2) <> "" Then

          resultat2 = resultat2 & " Cts"

       End If

       sommelettre = resultat1 & " et " & resultat2

       

End Function

'*************************************************************

'     Fonction de conversion chiffres en lettres

'*************************************************************

Public Function somlet2(ByVal argument As Double) As String

       

       Dim lettres As Variant

       Dim unites As Variant

       Dim dizaines As Variant

       Dim centaines As Variant

       

       Dim unite As Integer

       Dim dix As Integer

       Dim cent As Integer

       

       Dim groupes As Variant

       Dim chaine As String

       Dim ng, nc As Integer

       Dim i, j, k As Integer

       Dim xx As String

       

       chaine = Trim(Str(argument))

       nc = Len(chaine)                  ' Nbre de chiffres

       

       

       lettres = Array("", "mille", "million", "milliard", "billion")

       unites = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", "dix sept", "dix huit", "dix neuf")

       dizaines = Array("", "dix", "vingt", "trente", "quarante", "cinquante", "soixante", "soixante dix", "quatre vingt", "quatre vingt dix")

       centaines = Array("", "cent", "deux cents", "trois cents", "quatre cents", "cinq cents", "six cents", "sept cents", "huit cents", "neuf cents")

       

       If argument = 0 Then

          somlet2 = ""

          Else

          If nc Mod 3 > 0 Then

             ng = Int(nc / 3) + 1           ' Nbre de groupes

             Else

             ng = nc / 3

          End If

          ReDim groupes(ng - 1)

          chaine = String(ng * 3 - nc, " ") & chaine

          nc = Len(chaine)

          j = 0

          For i = nc To 1 Step -3

              xx = Mid(chaine, i - 2, i)

              groupes(j) = xx

              j = j + 1

          Next

          chaine = ""

          For j = 0 To UBound(groupes)

              unite = Val(Mid(groupes(j), 3, 1))

              dix = Val(Mid(groupes(j), 2, 1))

              If dix = 1 Or dix = 7 Or dix = 9 Then

                 dix = dix - 1

                 unite = unite + 10

              End If

              cent = Val(Mid(groupes(j), 1, 1))

              chaine = centaines(cent) & " " & dizaines(dix) & " " & unites(unite) & " " & lettres(j) & " " & chaine

          Next

          somlet2 = chaine

       End If

End Function
   
34 
hoarau emanuel, le 28 fév 2005 à 21:37:12
  • +1
Bonsoir



je viens de me connecter sur le site commentcamarche et je suis intéressé par la macro excel qui convertit des chiffres en lettres . cette application me sera très utile dans mes tâches quotidiennes



par avance je vous remercie de votre aide
   

	

	
Ils ont besoin de votre aide