Problème conversion chiffres en lettre avec 3 chiffre après la virgule (dinar)

Fermé

Vstappers - 5 nov. 2019 à 13:07
PapyLuc51 Messages postés 4302 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 25 avril 2024 - 11 nov. 2019 à 09:22

Bonjour,

je dois convertir beaucoup de chiffre ne Lettre pour de la comptabilité.

J'ai trouvé des macro en Euro pour faire ca.

mais j'ai besoin de dinars, changer les intitulé Dinar est a ma porté.

La ou CA se complique c'est que le dinars utilise 3 chiffres après la virgule, des millime et pas des centimes

la conversion se fait mal avec mon macro

exemple 10,651 me donne dix Dinars soixante cinq millime et non dix dinars six cents cinquante et un millime.

Qlq un peux til m'aider ?

voici le macro que j'utilise, si qlq un peux le modifier ou me donner un autre , ca serait supper

Merci a vous

Function chiffrelettre(chiffre) ' Youky

Dim a As Variant, gros As Variant
a = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", _
"huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", "dix sept", _
"dix huit", "dix neuf", "vingt", "vingt et un", "vingt deux", "vingt trois", "vingt quatre", _
"vingt cinq", "vingt six", "vingt sept", "vingt huit", "vingt neuf", "trente", "trente et un", _
"trente deux", "trente trois", "trente quatre", "trente cinq", "trente six", "trente sept", _
"trente huit", "trente neuf", "quarante", "quarante et un", "quarante deux", "quarante trois", _
"quarante quatre", "quarante cinq", "quarante six", "quarante sept", "quarante huit", _
"quarante neuf", "cinquante", "cinquante et un", "cinquante deux", "cinquante trois", _
"cinquante quatre", "cinquante cinq", "cinquante six", "cinquante sept", "cinquante huit", _
"cinquante neuf", "soixante", "soixante et un", "soixante deux", "soixante trois", _
"soixante quatre", "soixante cinq", "soixante six", "soixante sept", "soixante huit", _
"soixante neuf", "soixante dix", "soixante et onze", "soixante douze", "soixante treize", _
"soixante quatorze", "soixante quinze", "soixante seize", "soixante dix sept", _
"soixante dix huit", "soixante dix neuf", "quatre-vingts", "quatre-vingt un", _
"quatre-vingt deux", "quatre-vingt trois", "quatre-vingt quatre", "quatre-vingt cinq", _
"quatre-vingt six", "quatre-vingt sept", "quatre-vingt huit", "quatre-vingt neuf", _
"quatre-vingt dix", "quatre-vingt onze", "quatre-vingt douze", "quatre-vingt treize", _
"quatre-vingt quatorze", "quatre-vingt quinze", "quatre-vingt seize", "quatre-vingt dix sept", _
"quatre-vingt dix huit", "quatre-vingt dix neuf")
gros = Array("", "billions", "milliards", "millions", "mille", "Dinars", "billion", _
"milliard", "million", "mille", "Dinar")
sp = Space(1)
chaine = "00000000000000"
millime = chiffre * 100 - (Int(chiffre) * 100)
chiffre = Str(Int(chiffre)): lg = Len(chiffre) - 1: chiffre = Right(chiffre, lg): lg = Len(chiffre)
If lg < 15 Then chaine = Mid(chaine, 1, (15 - lg)) Else chaine = ""
chiffre = chaine + chiffre
'billions au centaines
gp = 1
For k = 1 To 5
x = Mid(chiffre, gp, 1): c = a(Val(x))
x = Mid(chiffre, gp + 1, 2): d = a(Val(x))
If k = 5 Then
If t2 <> "" And c & d = "" Then mydz = "Dinars" & sp: GoTo fin
If t <> "" And c = "" And d = "un" Then mydz = "un Dinars" & sp: GoTo fin
If t <> "" And t2 = "" And c & d = "" Then mydz = "d'Dinars" & sp: GoTo fin
If t & c & d = "" Then myct = "": mydz = "": GoTo fin
End If
If c & d = "" Then GoTo fin
If d = "" And c <> "" And c <> "un" Then mydz = c & sp & "cents " & gros(k) & sp: GoTo fin
If d = "" And c = "un" Then mydz = "cent " & gros(k) & sp: GoTo fin
If d = "un" And c = "" Then myct = IIf(k = 4, gros(k) & sp, "un " & gros(k + 5) & sp): GoTo fin
If d <> "" And c = "un" Then mydz = "cent" & sp
If d <> "" And c <> "" And c <> "un" Then mydz = c & sp & "cent" + sp
myct = d & sp & gros(k) & sp
fin:
t2 = mydz & myct
t = t & mydz & myct
mydz = "": myct = ""
gp = gp + 3
Next
d = a(millime)
If t <> "" Then myct = IIf(millime = 1, " millime", " millimes")
If t = "" Then myct = IIf(millime = 1, " millime d'Dinar", " millimes d'Dinar")
If millime = 0 Then d = "": myct = ""
chiffrelettre = t & d & myct
End Function

Configuration: Windows / Chrome 78.0.3904.70

A voir également:

Convertir chiffre en lettre dinars tunisien excel
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
Liste déroulante excel - Guide
Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
1 million dinar algérien en chiffre - Forum Logiciels

4 réponses

Réponse 1 / 4

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
5 nov. 2019 à 14:17

Bonjour,

Exemple ici:

https://www.bonbache.fr/convertir-les-nombres-en-textes-en-vba-excel-165.html

Il s'agit maintenant de traduire en texte, la devise passée en paramètre ainsi que l'extension des décimales correspondante. Par exemple, on parle de Cents en Euro et de Millimes en Dinar.
Pour ce faire, ajouter les lignes de code suivantes :
Select Case Devise
Case 0
If partieDecimale > 0 Then texteDevise = ' virgule'
Case 1
texteDevise = ' Euro'
If partieDecimale > 0 Then texteCentimes = ' Cents'
Case 2
texteDevise = ' Dollar'
If partieDecimale > 0 Then texteCentimes = ' Cent'
Case 3
texteDevise = ' Dinar'
If partieDecimale = 1 Then texteCentimes = ' Millime'
If partieDecimale > 1 Then texteCentimes = ' Millimes'
End Select

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 6 nov. 2019 à 11:49

Il suffit de suivre la procédure

Bon courage

@+ Le Pivert

PapyLuc51 Messages postés 4302 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 25 avril 2024 1 406
7 nov. 2019 à 16:16

Salutations Le Pivert

Je me suis lancé sans connaitre le langage VBA ; j'ai donc suivis tes conseils donnés à Vstappers en faisant du copier/coller et en faisant les rectifications par rapport à la vidéo notamment remplacer les ' par ".

J'y ai ajouté un code que trouvé sur la toile pour avoir la description de la fonction dans la fenêtre "Arguments de la fonction"

Sub DescriptionFonction()
'Déclaration des variables

Dim NomFonction As String
Dim DescriptionFonction As String
Dim ArgumentDesc(1 To 3) As String

'Affectation des variables

NomFonction = "NbEnLettres"

DescriptionFonction = "Permet de convertir un montant en toutes lettres"

ArgumentDesc(1) = "Montant à convertir"
ArgumentDesc(2) = "0 ou omis= pas de devise inscription du mot virgule ; 1= Euro ; 2= Dollar ; 3= Dinar"
ArgumentDesc(3) = "0 ou omis= français ; 1= belge ; 2= suisse"

'permet d'insérer la fonction dans la bibliothèque des fonctions d'excel
Application.MacroOptions _
        Macro:=NomFonction, _
        Description:=DescriptionFonction, _
        Argumentdescriptions:=ArgumentDesc


End Sub

J'ai suivi les indications de la vidéo pour enregistrer le fichier .xlam au bon endroit

Cordialement

Réponse 3 / 4

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
8 nov. 2019 à 22:02

Bonsoir le fil,

J'ai eu utilisé ce code, il me semble qu'il y a un bug, dans les décimales

de 0,1 à 0,9 pas de problème mais à 0,10 il retournait 1 cent et également avec un chiffre entier qui précède exemple jusqu'à 1,09 pas de problème à 1,10 erreur retourne un euro un cent à la place de un euro dix cent
il semblerait que le problème se répète à chaque dizaine 0,20 comme à 0,30 etc ...
je regarde de mon côté comment y remédier à part que j'ai commis une erreur de transcription

PapyLuc51 Messages postés 4302 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 25 avril 2024 1 406
Modifié le 9 nov. 2019 à 07:22

Bonjour à tous
Salutations Mike-31

Oui j'ai remarqué ce bug après avoir lu ton commentaire. Il en va de même pour la devise Dinar : de 0,001 à 0,009 pas de problème mais quand c'est 0,010 ; 0,020 ; etc... ou 0,100 ; 0,200 ; etc... ça donne uniquement une unité ; 1,010 ou 1,100 donne un Dinar un Millime.

Le problème a été soulevé dans les commentaires de la vidéo YouTube ; qu'en penses-tu ?

Cordialement

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié le 9 nov. 2019 à 07:39

Re,

je suis en plein déménagement et pour l'instant assez absent des discussions par manque de temps. dès que mes affaires seront un peu tassés je reviendrai sur ce fichier
Cordialement

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
9 nov. 2019 à 09:45

Re,

une idée, compter le nombre de décimale avec ce genre de code
Len(ActiveCell.Value) - InStr(ActiveCell.Value, ",")
et si le nombre est égale à 1 il suffit de multiplier la décimale par 10 ou 100 pour le dinar dans une variable

PapyLuc51 Messages postés 4302 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 25 avril 2024 1 406
Modifié le 9 nov. 2019 à 11:26

Re,

Je viens de rectifier ceci :

If Devise = 0 Or Devise = 3 Then
partieDecimale = Left(Mid(Montant, position), 3)
Else
partieDecimale = Left(Mid(Montant, position), 2)

End If

en

If Devise = 0 Or Devise = 3 Then
partieDecimale = Left(Mid(Montant, position) & "00", 3)
Else
partieDecimale = Left(Mid(Montant, position) & "0", 2)

End If

comme mis dans les commentaires de la vidéo YouTube et ça fonctionne.

Mais il y a un autre problème dans le code ; il ne fait pas l'arrondi pour les monnaies à deux décimales

xx,409
donne xx,quarante
au lieu de xx, quarante et un

Cordialement

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
9 nov. 2019 à 11:36

Re,

bien vu PapyLuc51 et merci

encore une petite chose à corriger dans les euros:
1 Cents toujours au pluriel!

en prenant ton code pour les livres:

Case 1
texteDevise = " Euro"
If partieDecimale = 1 Then texteCentimes = " Cent"
If partieDecimale > 1 Then texteCentimes = " Cents"

Bonne journée

@+ Le Pivert

Réponse 4 / 4

tontong Messages postés 2549 Date d'inscription mercredi 3 février 2010 Statut Membre Dernière intervention 23 avril 2024 1 054
10 nov. 2019 à 14:00

Bonjour,
Pour écrire une valeur en lettres avec des millièmes j'avais modifier une macro dans un fichier de Th.Pourtier
https://www.cjoint.com/c/IKkmYDuelsK
La fonction "MonnaieLettres" est simple à modifier pour afficher des millièmes ( millimes tunisiens ou litres et millilitres):
Dim Decim%, Signe%, Reste#
Signe = Sgn(Nbre)
Decim = Round(Abs(Nbre) - Int(Abs(Nbre)), 2) * 100 '----->> Decim = Round(Abs(Nbre) - Int(Abs(Nbre)), 3) * 1000
Nbre = Int(Abs(Nbre))
L'affichage en chiffres est modifié avec 3 décimales.

Pour oter le "s" à cent devant mille:
Case Is < DixP6
NbL = RTrim(IIf(Nbre \ DixP3 = 1, "", NbL(Nbre \ DixP3, Ut, Dz, Region) & " ") & "mille " & _
NbL(Nbre Mod DixP3, Ut, Dz, Region))
NbL = Replace(NbL, "cents mille", "cent mille") '____________________________________________________________
Case Is < DixP9
NbL = RTrim(NbL(Nbre \ DixP6, Ut, Dz, Region) & " " & "million" & _
IIf(Nbre \ DixP6 > 1, "s ", " ") & NbL(Nbre Mod DixP6, Ut, Dz, Region))

Discussions similaires

EXCEL transformer chiffres en lettre -facture

Transcrire chiffres en lettres en français

chiffre en lettre

Convertisseur du chiffre en lettre

convertir chiffre en lettre en arabe

convertir un montant en lettre arabe

Discussions similaires

Newsletters