Baraka lahou fik frère . J'ai une question. La macro ne marche plus quand je créer une copie du fichier. Dans la cellule de la macro il m'affiche name error! ? Pourriez vous m"eclairez svp. Merci
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
عفوا مرحبا بك 😀 بالنسبة للكود لقيتو على الأنترنت بدلت فيه العملة درتها دينار-سنتيم هاوليك الرابط لي ديت منو الكود forums.commentcamarche.net/forum/affich-34856167-conversion-chiffre-en-lettres-excel-2016
لقيت واحد بالعربية لكن مامشاليش، تقدر تشوف الفيديو هادا راهو داير طريقة بالاك تساعدك وأنا في نفس الوقت ادا لقيت كود يمشي نزيد نحطو ونقولك إن شاء الله th-cam.com/video/5N7ZxEd3TTg/w-d-xo.html
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
لكن إذا كان عدد عندو فاصلة مثلا
250963,56
واش نديرو
نعم الدالة هادي تخدم بالفاصلة وتكتبها عادي
باراك الله فيك خويا راني تيليشارجيت الكود صاحا
جزاك الله الف خير
بارك الله فيك أخي
بارك الله فيك
وفيك بارك الله شكرا
.شكرا جزيلا. في ميزان الحسنات انشاء الله
العفو آمين يا رب بارك الله فيك
Ou est le lien
بارك الله فيك 💚💚💚
الله يبارك خويا
يعطيك الصحة خويا العزير يرحم والديك شرح مبسط و رائع و عملي ، شوفت بزاف لفيديو و لكن غير ضايع وقت
الله يسلمك أخي أحمد بارك الله فيك على التشجيع سنواصل بدعمكم ان شاء الله ونقدم المزيد من الدروس ان شاء الله 😇 بالتوفيق لك
شكرا 🙏
عفوا عثمان 😀
بارك الله فيك حاجة شابة رب يحفظك
الله يسلمك شكرا جزيلا 😇
صحيت
@@DoWithAbdou
شكرا 👏👏
العفو 😌
شكرا
عفوا رفيق
❤❤❤❤❤ vous êtes le meilleur merci
Merci beaucoup pour cette explication
Bravo
Je vous en prie
ربي يحفظك
الله يسلمك محمد شكرا لك
Bravo
Merci bien
😌
Merci beaucoup
Je t'en prie 😌
You're the best 💪
Thank you Salim I am honored 😌
مصلحتليش في Excel 2021 وراه المشكل ؟؟
خليلي ايميلك نبعتلك ملف جاهز
@@DoWithAbdou بارك الله فيك
salam akhi , ki dert le macro dyalek mchali bien m3a lawel, puis ki dert une formule fi une autre case kherjet "NAME ERROR" , wech ndir bech na7iha???
Baraka lahou fik frère . J'ai une question. La macro ne marche plus quand je créer une copie du fichier. Dans la cellule de la macro il m'affiche name error! ? Pourriez vous m"eclairez svp. Merci
الأحرف بالعربية كيفاش نديرو ؟
بغيت نسقسيك كي نبغي نهز الفيشي نكوبيه في اينيتي وحدوخرا اسكو نعاود ندير ماكرو ولا كاينة خاصية نكولي بيها
وين نلقاو الكود الي نكوبيوه
ابعتنا الكود يا خو بارك الله فيك
سلام عليكم خويا عبدو.
من فضلك ابعثلي لكود تاع الماكرو تاع شيفر ع
لاتر
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
Merci beaucoup
Es ce que ça marche pour les nombres décimaux aussi ?
Oui ça marche aussi pour les décimaux, merci pour ta question
@@DoWithAbdou merci beaucoup
Salam Abdou 👋
أولا حبيت نقولكم يعيطك صحا على شرح تاعك . حبيت نسقسيك على الكود هاداك وين جبتو و كيفاش نديرو ؟ merci d'avance
عفوا مرحبا بك 😀
بالنسبة للكود لقيتو على الأنترنت بدلت فيه العملة درتها دينار-سنتيم
هاوليك الرابط لي ديت منو الكود
forums.commentcamarche.net/forum/affich-34856167-conversion-chiffre-en-lettres-excel-2016
@@DoWithAbdou😅
وين راه رابط
@@DoWithAbdou.
سلام عليكم ممكن طريقة كتابة على شيك بالاكسيل
وعليكم السلام أخي سيف الدين نحوسلك عليها ادا كشما لقيت نقولك أخي
وين نلقا الكود
ليفوميل اذا كان إكسل بالغة الإنجلزية يتغر اسمها او لا مثل فورميل
=somme
نعم يتغير اسمها باللغة الانجليزية مثلا
Somme = Sum
هذا الرابط فيه القائمة باللغتين
fr.excelfunctions.eu/
ممكن تبعثلي رابط التحميل
نموذج باللغة العربية اذا ممكن
لقيت واحد بالعربية لكن مامشاليش، تقدر تشوف الفيديو هادا راهو داير طريقة بالاك تساعدك وأنا في نفس الوقت ادا لقيت كود يمشي نزيد نحطو ونقولك إن شاء الله
th-cam.com/video/5N7ZxEd3TTg/w-d-xo.html
في حالة الاعداد بالفاصلة...
بارك الله فيك بصح حاب ندير المبلغ بالعربية ؟!
السلام عليكم وين راه الكود
انا محبش يمشيلي معرفتش علاه
باراك الله فيك رب يحفظك
من فضلك اريد طريقة الاعداد مثلا حبيت ندير علامة الطالب
th-cam.com/video/_rBWh4zb0d0/w-d-xo.html
Lien de code svp
اخي كيف نغير العملة للدرهم
يجب تعويض العملة في الكود او اترك لي ايميلك ارسل لك ملف جاهز
كيف يمكنني التواصل معك @@DoWithAbdou
على بريد صفحة الفايسبوك اخي مرحبا بك
facebook.com/DoWithAbdou
Code fih erreur 😢
فالوورد كبفاش نقدروا نحولوا الاعداد الكبيرة الي حروف؟!
مالقيتش الماكرو ماذا بيك تبعثهالي
خليلي ايميلك نبعتهالك اخي
il y avait des constantes non définie dans le code VBA , après j'ai défini les variables comme variant après ça le code a fonctionné, merci beaucoup
@@haroune711 Excellent, je t'en prie !
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
Tu peux m'envoyer le fichier par email pour le vérifier? dowithabdou@gmail.com
مفيدة جدا أشكرك
بصح ما عرفتش وين يكون الكود ههه
عفوا موح هههههه هاوليك رابط الكود
docs.google.com/document/u/3/d/1iaQFq7acbV-hqzg3p0SvSI02ncT5U8yn5_RJwciMsl4/edit?usp=sharing
@@DoWithAbdou ربي يحفظك شكرا
جربتها خرجلي خطاء في كود من فضلك ابعتهولي في ايميل
نعم ارسلي لي ايميلك على dowithabdou@gmail.com
جربتها وماخرجتليش الدالة
خليلي ايميلك نبعتلك ملف فيه الدالة
غير صالحة في Excel 2021
تمشي عادي خليلي ايميلك نبعتلك ملف جاهز
اخي نخليك الايمايل تاعي تبعتلي ؟؟ تعيش وشكرا
بارك الله فيك
بغيت نسقسيك كي نبغي نهز الفيشي نكوبيه في اينيتي وحدوخرا اسكو نعاود ندير ماكرو ولا كاينة خاصية نكولي بيها
Salam Abdou 👋
أولا حبيت نقولكم يعيطك صحا على شرح تاعك . حبيت نسقسيك على الكود هاداك وين جبتو و كيفاش نديرو ؟ merci d'avance
الله يسلمك مرحبا 😀
الكود جبتو من هذا الرابط بدلت فيه برك العملة درتها دينار-سنتيم
forums.commentcamarche.net/forum/affich-34856167-conversion-chiffre-en-lettres-excel-2016
merci infiniment