begin process at 2010 02 10 13:09:44
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Visual Basic 6

 > 

Divers

 > 

Trucs & Astuces

 > 

conversion chiffres en lettres

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

conversion chiffres en lettres

dimanche 25 juin 2006 à 15:53:43 | conversion chiffres en lettres

habiboula
Bonjour
J'ai besoin d'aide SVP..;
J'ai fait du publipostage avec Word et j'ai besoin d'un module ou une macro qui me permettrait de convertir les chiffres en lettres !!! ex: 2450,00 euros (Deux mille quatre cents euros)
Merci de m'expliquer comment intégrer cette macro ou ce module pour que ça s'effectue automatiquement sous word ou excel
Merci infiniment
J'attends votre collaboration
                     Habib
dimanche 25 juin 2006 à 16:52:46 | Re : conversion chiffres en lettres

lebarn

     Bonjour, as-tu rédigé la macro ? Si, oui, je pense que tu devrais lui assigner une touche de raccourci et l'utiliser sur chacun de tes documents. Ou bien l'intégrer à ton document modèle afin qu'il transforme automatiquement les nombres en lettres.

     Sinon, ben, si tu que je te la rédige, dis-le.

@+,

dimanche 25 juin 2006 à 17:42:50 | Re : conversion chiffres en lettres

mortalino

Membre Club
Salut, il me semble avoir vu des sources faisant ce type de conversion. Regarde dans le moteur de recherche, télécharge la source et intègre là à ton document. @++ --Mortalino-- Le Mystérieux Chevalier "Provençal, le Gaulois" N'oubliez pas de lire le règlement !
dimanche 25 juin 2006 à 18:31:59 | Re : conversion chiffres en lettres

Willi

Membre Club Administrateur CodeS-SourceS

C'est pas les sources qui manquent....
http://www.vbfrance.com/recherche.aspx?r=conversion+lettre&tr=source&dotnet=2

Merci de faire des recherches sources et forum avant de poster.

++
dimanche 25 juin 2006 à 22:04:31 | Re : conversion chiffres en lettres

habiboula
Bonjour!
Merci de prendre la peine de m'aider...
Effectivement je ne sais pas rédiger une macro.. je vous serais reconnaissant si vous pouvez la rédiger pour moi et m'expliquer comment l'intégrer dans le document
Merci d'avance
lundi 26 juin 2006 à 08:28:39 | Re : conversion chiffres en lettres

mortalino

Membre Club


Met ça dans un Module :

  1. PublicFunction MontantEnLettre(Montant) As String
  2. ' Objectif: convertir des montants en lettre selon les règles orthographiques en vigueur
  3. ' au maroc . Par exemple pour un chèque bancaire
  4. ' Version valable pour un maximum de 999'999'999.99
  5. Dim varnum, varnumD, varnumD1, varnumU, varlet, résultat, bytcent As Byte
  6. 'varnum : pour stocker les parties du nombre que l'on va découper
  7. 'varlet : pour stocker la conversion en lettres d'une partie du nombre
  8. 'varnumD: pour stocker la partie dizaine d'un nombre à 2 chiffres
  9. 'varnumU: pour stocker la partie unité d'un nombre à 2 chiffres
  10. 'résultat: pour stocker les résultats intermédiaires des différentes étapes
  11. Static chiffre(1 To 19) '*** tableau contenant le nom des 19 premiers
  12. 'nombres en lettres
  13. chiffre(1) = "un"
  14. chiffre(2) = "deux"
  15. chiffre(3) = "trois"
  16. chiffre(4) = "quatre"
  17. chiffre(5) = "cinq"
  18. chiffre(6) = "six"
  19. chiffre(7) = "sept"
  20. chiffre(8) = "huit"
  21. chiffre(9) = "neuf"
  22. chiffre(10) = "dix"
  23. chiffre(11) = "onze"
  24. chiffre(12) = "douze"
  25. chiffre(13) = "treize"
  26. chiffre(14) = "quatorze"
  27. chiffre(15) = "quinze"
  28. chiffre(16) = "seize"
  29. chiffre(17) = "dix-sept"
  30. chiffre(18) = "dix-huit"
  31. chiffre(19) = "dix-neuf"
  32. Static dizaine(1 To 9) '*** tableau contenant les noms des dizaines
  33. dizaine(1) = "dix"
  34. dizaine(2) = "vingt"
  35. dizaine(3) = "trente"
  36. dizaine(4) = "quarante"
  37. dizaine(5) = "cinquante"
  38. dizaine(6) = "soixante"
  39. dizaine(7) = "soixante"
  40. dizaine(8) = "quatre-vingt"
  41. dizaine(9) = "quatre-vingt"
  42. '*** Le traitement des milliards n'est pas pris en compte
  43. If Montant > 999999999.99 Then
  44.    MsgBox"Les milliards ne sont pas traités par ce programme @ @", vbCritical, "Conversion Montant en Lettres"
  45.    ExitFunction
  46. EndIf
  47. '*** Traitement du cas zéro
  48. If Montant >= 1 Then
  49.    résultat = ""
  50. Else
  51.    résultat = "zéro"
  52. GoTo FinTraitement
  53. EndIf
  54. '*** Traitement des millions
  55. varnum = Int(Montant / 1000000)
  56. If varnum > 0 Then
  57.    GoSub CentaineDizaine
  58.    résultat = varlet + " million"
  59.    If varlet <> "un"Then résultat = résultat + "s"
  60. EndIf
  61. '*** Traitement des milliers
  62. varnum = Int(Montant) Mod 1000000
  63. varnum = Int(varnum / 1000)
  64. If varnum > 0 Then
  65.    GoSub CentaineDizaine
  66.    If varlet <> "un"Then
  67.       résultat = résultat + " " + varlet
  68.       résultat = résultat & " mille"
  69.    Else
  70.       résultat = "mille"
  71.    EndIf
  72. EndIf
  73. '*** Traitement des centaines et dizaines
  74. varnum = Int(Montant) Mod 1000
  75. If varnum > 0 Then
  76.    GoSub CentaineDizaine
  77.    résultat = résultat + " " + varlet
  78. EndIf
  79. résultat = LTrim(résultat)
  80. varlet = Right$(résultat, 4)
  81. '*** Traitement du "s" final pour mille, cent et du "de" pour million
  82. SelectCase varlet
  83.    Case"ille"
  84.       If Montant <> 1000 Then résultat = résultat + "s"
  85.     Case"cent"
  86.         If bytcent <> 1 Then résultat = résultat + "s"
  87.     Case"lion", "ions"
  88.       résultat = résultat + " de"
  89. EndSelect
  91. FinTraitement:
  92. '*** Indication du terme devise
  93.    résultat = résultat + "Dh"
  94.    If Montant >= 2 Then résultat = résultat + "s"
  95. '*** Traitement des centimes
  96.    varnum = Int((Montant - Int(Montant)) * 100 + 0.5) '*** On additionne 0,5 afin de compenser
  97.                                                       '*** les erreurs de calcul dues aux arrondis
  98.    If varnum > 0 Then
  99.       GoSub CentaineDizaine
  100.       résultat = résultat + " et " + varlet + " centime"
  101.       If varnum > 1 Then résultat = résultat + "s"
  102.    EndIf
  103. '*** Conversion 1ère lettre en majuscule
  104.    résultat = UCase(Left(résultat, 1)) + Right(résultat, Len(résultat) - 1)
  105. '*** Renvoie du résultat de la fonction et fin de la fonction
  106.    MontantEnLettre = résultat
  107. ExitFunction
  108. CentaineDizaine:
  109.    varlet = ""
  110. '*** Traitement des centaines
  111.    If varnum >= 100 Then
  112.       varlet = chiffre(Int(varnum / 100))
  113.       varnum = varnum Mod 100
  114.       If varlet = "un"Then
  115.          varlet = "cent "
  116.          bytcent = 1
  117.       Else
  118.          varlet = varlet + " cent "
  119.       EndIf
  120.    EndIf
  121. '*** Traitement des dizaines
  122.    If varnum <= 19 Then'*** Cas où la dizaine est <20
  123.       If varnum > 0 Then
  124.          varlet = varlet + chiffre(varnum)
  125.       EndIf
  126.    Else
  127.       varnumD = Int(varnum / 10) '*** chiffre des dizaines
  128.       varnumU = varnum Mod 10 '*** chiffre des unités
  129. '*** génération des dizaines en lettres
  130.       varlet = varlet + dizaine(varnumD)
  132.   If varnumD = 7 Or varnumD = 9 Then
  133.      varnumD1 = varnum - (varnumD - 1) * 10
  134.      varlet = varlet + " " + chiffre(varnumD1)
  135. EndIf
  136. '*** traitement du séparateur des dizaines et unités
  137.       If varnumU = 1 Then
  138.          varlet = varlet + " et "
  139.       EndIf
  140.    EndIf
  141.    
  142. '*** génération des unités
  143.    If varnumU <> 0 Then
  144.    If varnumD = 7 Or varnumD = 9 Then
  145.    varlet = varlet
  146.    Else
  147.     varlet = varlet + chiffre(varnumU)
  148.    EndIf
  149.    EndIf
  150. '*** Suppression des espaces à gauche et retour
  151.    varlet = RTrim(varlet)
  152.    Return
  153. EndFunction
Merci à WAHIDAbdelilah pour le code.

Ensuite insère un UserForm (UserForm1) :

Tu crées 1 bouton (CommandButton1) et 2 TextBox (TextBox1 & TextBox2)

Private Sub CommandButton1_Click()
   Dim Montant As Long
   Montant = TextBox1.Value
   TextBox2.Text = MontantEnLettre(Montant)
End Sub

En gros, saisie le nombre dans la première TextBox et quand tu cliques sur le bouton, le résultat s'affiche dans la 2eme TextBox

@++

  Mortalino 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement

samedi 14 février 2009 à 12:43:12 | Re : conversion chiffres en lettres

fouadvnet

slt j'ai un probléme je veux integrer le code de convertire un montant calculer dans   un crystalreport en lettre automatiquement sans ecrire le montant
 


Cette discussion est classée dans : chiffres, module, conversion, word, lettres

Répondre à ce message

Sujets en rapport avec ce message

CONVERSION DES CHIFFRES VERS LES LETTRES [ par malcom78 ] Bonjour à tous, J'essaye de convertir des chiffres en lettres dans une table access.Alors dans une table, j'ai une colonne ou il y a des chiffres et d conversion( chiffres en lettres) [ par benzaid ] bonjour tout le monde        je cherche comment faire pour convertir un chiffre en lettre en utilisant deux deux zone de texte : une pour saisir le no Chiffres et Lettres [ par valime ] Le but :Génerer des codes à 6 chiffres uniques à l'aide d'un nom, prénoms et date d'anniverssaire d'une personne (dans un tableau excel).Personnelleme [VBA-WORD] Chargement de module [ par billybond ] Bonjour un tous.J'ai un petit probleme qui nécessite votre aide.J'utilise des macro dans word pour generer automatiquement des documentations concerna Tableau [ par lispo ] Bonjour a tous,et a toutesje debut en vba  et je voudrais  savoir comment importer un tableau qui se trouve dans un module(module_1) vers ma Formeet d Séparation de chiffres et lettres [ par ShiZZle971 ] Salut,Je fais un logiciel et j'aurais besoin de pouvoir trier une chaine de caractère c'est à dire qu'il me faut savoir où sont les lettres.Exemple : Conversion Word -> HTML [ par Thermosam ] Il me faudrait les sources d'un programme qui à partir d'un fichier Word génère un fichier correspondant en HTML (avec tous les TAGS). Convertir des caractères en chiffres/lettres [ par tinux ] Bonjour, y a t-il une méthode très simple (donc pas très fiable) mais qui puisse juste convertir un texte en chiffre par exemple, et faire revenir les conversion de document word en tiff multipages de type 4 [ par foulman ] Bonjour à tous,Un vrai casse-tête........merci d'avance à ceux qui vont répondre.Je cherche à convertir des documents word (1 à n pages) en tiff  mult !!!!!!!!!!!!!!Sous VBA, inserer un objet dans une page WORD!!!!!!!!! [ par liban123 ] Salut a tout les softeur!je souhaiterai inserer un objet (un simple trait) que jai créer dans une feuille, dans une page Word.1) cette page word a été


Nos sponsors


Sondage...

Comparez les prix


HTC Tattoo
Entre 9€ et 329€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,671 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)