الله يسلمك مرحبا 😀 الكود جبتو من هذا الرابط بدلت فيه برك العملة درتها دينار-سنتيم forums.commentcamarche.net/forum/affich-34856167-conversion-chiffre-en-lettres-excel-2016
لقيت واحد بالعربية لكن مامشاليش، تقدر تشوف الفيديو هادا راهو داير طريقة بالاك تساعدك وأنا في نفس الوقت ادا لقيت كود يمشي نزيد نحطو ونقولك إن شاء الله ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-5N7ZxEd3TTg.html
Function chiffrelettre(chiffre) ' DoWithAbdou 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" centime = 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 = "de 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(centime) If t "" Then myct = IIf(centime = 1, " centime", " centimes") If t = "" Then myct = IIf(centime = 1, " centime", " centimes") If centime = 0 Then d = "": myct = "" chiffrelettre = t & d & myct End Function
quand jai appliqué le code , ilyavait soulignement en couleur jaune de sp = Space(1) il yavait une écriture sur une fenetre "variable not defined error" , saha
عفوا مرحبا بك 😀 بالنسبة للكود لقيتو على الأنترنت بدلت فيه العملة درتها دينار-سنتيم هاوليك الرابط لي ديت منو الكود forums.commentcamarche.net/forum/affich-34856167-conversion-chiffre-en-lettres-excel-2016
