10:52 AM |الساعة الآن   
 
العودة ملتقى الموظف الجزائرى  :: 

منتدى الميزانيات والصفقات العمومية

 :: 

الاجــور والمنح والتعويضات






أهلا وسهلا بك إلى ملتقى الموظف الجزائرى.
أهلا وسهلا بك زائرنا الكريم، إذا كانت هذه زيارتك الأولى للمنتدى، فيرجى التكرم بزيارة صفحة التعليمـــات، بالضغط هنا.كما يشرفنا أن تقوم بالتسجيل بالضغط هنا إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.

الرئيسيةالبوابةبحـثس .و .جدخولالتسجيل
اعلان هام للمسجلين الجدد :بمجرد التسجيل يتم إرسال كود التفعيل إلى حسابك .. أي الإيميل الذي وضعته عند التسجيل بالمنتدى ... إذهب إلى علبة البريد فإذا لم تجده في الرسائل الواردة حاول أن تبحث عنه في صندوق بريد الغير مرغوب فيه SPAM



:programme exel VBA pour Les indemnité IFC, SAIRE DE BASE, IEP


شاطر
 #1  
الثلاثاء 04 أكتوبر 2011, 16:04
 
 
 
ذكر
الاقامة : البليدة
المشاركات : 17
نقاط : 18
تاريخ التسجيل : 06/04/2011
العمل : موظف عمومي
افتراضي:programme exel VBA pour Les indemnité IFC, SAIRE DE BASE, IEP

السلام عليكم
إليكم هذا البرنامج(module) لحساب IFC ,SALAIRE DE BASE, IEP ,IDR و كتابة الأرقام بالعربية والفرنسية
وماعليكم سوى فتح برنامجEXEL ثم VISUEL BASIC EL [sub][/sub ثم نسخ هذا البرنامج في module ^$d جديد

' formatnombre Macro
' Macro enregistrée le 28-02-98 par faycal zenati
'
Sub formatnombred()
Selection.NumberFormat = "@ "
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = xlHorizontal
.ReadingOrder = xlContext
End With
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = xlHorizontal
.ReadingOrder = xlContext
End With
End Sub

Sub formatnombrec()
Selection.NumberFormat = "@"
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = xlHorizontal
.ReadingOrder = xlContext
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = xlHorizontal
.ReadingOrder = xlContext
End With
End Sub
Function Arrondir(ByVal ValeurArrondi As Double, ByVal NbreDeci As Integer) As Double
Arrondir = ValeurArrondi + (4 * 10 ^ -(NbreDeci + 1))
Arrondir = Int(Arrondir * 10 ^ NbreDeci) / 10 ^ NbreDeci
End Function

Function Arret(total As Double) As String
Dim Millions As Double
Dim Milles As Double
Dim Var3, Var4 As Double
Dim Pdecimale As Double

Pdecimale = total - Fix(total)
total = total - Pdecimale
Pdecimale = Application.Round(Pdecimale, 2)
Pdecimale = Pdecimale * 100
'Message total
Millions = total \ 1000000
Var3 = total Mod 1000000
Milles = Var3 \ 1000
Var4 = Var3 Mod 1000
Machainefinale = ""
If Millions = 1 Or Millions = 101 Then
Machainefinale = Machainefinale + ChiffreLettre3(Millions) + " MILLION"
End If
If Millions > 1 And Millions <> 101 Then
Machainefinale = Machainefinale + ChiffreLettre3(Millions) + " MILLIONS"
End If
If Milles = 101 Then
Machainefinale = Machainefinale + " " + ChiffreLettre3(Milles) + " MILLE"
End If
If Milles = 1 Then
Machainefinale = Machainefinale + " MILLE"
End If
If Milles > 1 And Milles <> 101 Then
Machainefinale = Machainefinale + " " + ChiffreLettre3(Milles) + " MILLE"
End If
Machainefinale = Machainefinale + " " + ChiffreLettre3(Var4)
DA = ""
If total = 1 Then
DA = " DINAR ALGERIEN"
End If
If total > 1 Then
DA = " DINARS ALGERIENS"
End If
Machainefinale = Machainefinale + DA
Liaison = ""
If total <> 0 Then
Liaison = " ET "
End If
If Pdecimale <> 0 Then
Machainefinale = Machainefinale + Liaison + ChiffreLettre3(Pdecimale) + " CENTIMES"
End If
Arret = Machainefinale

End Function


Function ChiffreLettre3(Sum As Double) As String

Dim Var1, Cent, Dizaine, Unite As Double

If Sum < 0 Then ' Evalue l'argument.

Exit Function ' Sort pour revenir à la
' procédure appelante.

Else
MaChaîne = ""
Var1 = Sum Mod 100
Unite = Sum Mod 10
Cent = Sum \ 100
Dizaine = Var1 \ 10
If Cent = 1 Then MaChaîne = MaChaîne + "CENT"
Select Case Cent
Case 2
MaChaîne = MaChaîne + "DEUX"
Case 3
MaChaîne = MaChaîne + "TROIS"
Case 4
MaChaîne = MaChaîne + "QUATRE"
Case 5
MaChaîne = MaChaîne + "CINQ"
Case 6
MaChaîne = MaChaîne + "SIX"
Case 7
MaChaîne = MaChaîne + "SEPT"
Case 8
MaChaîne = MaChaîne + "HUIT"
Case 9
MaChaîne = MaChaîne + "NEUF"
End Select

If Cent > 1 Then MaChaîne = MaChaîne + " CENT"

If Cent > 1 Then MaChaîne = MaChaîne + "S"
If Sum > 100 Then MaChaîne = MaChaîne + " "
Select Case Dizaine
Case 2
MaChaîne = MaChaîne + "VINGT"
Case 3
MaChaîne = MaChaîne + "TRENTE"
Case 4
MaChaîne = MaChaîne + "QUARANTE"
Case 5
MaChaîne = MaChaîne + "CINQUANTE"
Case 6
MaChaîne = MaChaîne + "SOIXANTE"
Case 7
MaChaîne = MaChaîne + "SOIXANTE"
Case 8
If Unite = 0 Then
MaChaîne = MaChaîne + "QUATRE-VINGTS"
Else
MaChaîne = MaChaîne + "QUATRE-VINGT"
End If
Case 9
If Unite = 0 Then
MaChaîne = MaChaîne + "QUATRE-VINGTS"
Else
MaChaîne = MaChaîne + "QUATRE-VINGT"
End If

End Select
If Dizaine = 1 Or Dizaine = 7 Or Dizaine = 9 Then
If (Dizaine = 7 Or Dizaine = 9) Then
If Dizaine = 7 And Unite = 1 Then
MaChaîne = MaChaîne + " ET "
Else
MaChaîne = MaChaîne + "-"
End If
End If
Select Case Unite
Case 0
MaChaîne = MaChaîne + "DIX"
Case 1
MaChaîne = MaChaîne + "ONZE"
Case 2
MaChaîne = MaChaîne + "DOUZE"
Case 3
MaChaîne = MaChaîne + "TREIZE"
Case 4
MaChaîne = MaChaîne + "QUATORZE"
Case 5
MaChaîne = MaChaîne + "QUINZE"
Case 6
MaChaîne = MaChaîne + "SEIZE"
Case 7
MaChaîne = MaChaîne + "DIX-SEPT"
Case 8
MaChaîne = MaChaîne + "DIX-HUIT"
Case 9
MaChaîne = MaChaîne + "DIX-NEUF"
End Select
Else

If Unite = 1 And Dizaine > 1 Then
MaChaîne = MaChaîne + " ET "
End If
If Dizaine > 1 And Unite > 1 Then
MaChaîne = MaChaîne + "-"
End If
Select Case Unite
Case 1
MaChaîne = MaChaîne + "UN"
Case 2
MaChaîne = MaChaîne + "DEUX"
Case 3
MaChaîne = MaChaîne + "TROIS"
Case 4
MaChaîne = MaChaîne + "QUATRE"
Case 5
MaChaîne = MaChaîne + "CINQ"
Case 6
MaChaîne = MaChaîne + "SIX"
Case 7
MaChaîne = MaChaîne + "SEPT"
Case 8
MaChaîne = MaChaîne + "HUIT"
Case 9
MaChaîne = MaChaîne + "NEUF"
End Select
End If
End If
ChiffreLettre3 = MaChaîne
End Function


'Fonction d'arrêter en arabe V.2.00 du 31/10/1998
'Faite par R.Fayçal.

Function ChiffreLettre3_a(Sum As Double) As String

Dim Var1, Cent, Dizaine, Unite As Double

If Sum < 0 Then ' Evalue l'argument.

Exit Function ' Sort pour revenir à la
' procédure appelante.

Else
MaChaîne = ""
Var1 = Sum Mod 100
Unite = Sum Mod 10
Cent = Sum \ 100
Dizaine = Var1 \ 10
If Sum = 200 Then
MaChaîne = MaChaîne + "مائتي "
Else
If Cent = 2 Then
MaChaîne = MaChaîne + "مائتين "
End If
End If
Select Case Cent
Case 3
MaChaîne = MaChaîne + "ثلاث"
Case 4
MaChaîne = MaChaîne + "أربع"
Case 5
MaChaîne = MaChaîne + "خمس"
Case 6
MaChaîne = MaChaîne + "ست"
Case 7
MaChaîne = MaChaîne + "سبع"
Case 8
MaChaîne = MaChaîne + "ثمان"
Case 9
MaChaîne = MaChaîne + "تسع"
End Select

If Cent <> 2 And Cent <> 0 Then MaChaîne = MaChaîne + "مائة "

If Cent > 0 And (Dizaine > 0 Or Unite > 0) Then MaChaîne = MaChaîne + "و"

If Unite = 1 Then
If Dizaine = 1 Then
MaChaîne = MaChaîne + "إحدى "
Else
MaChaîne = MaChaîne + "واحد "
End If
End If
If Unite = 2 Then
If Dizaine = 1 Then
MaChaîne = MaChaîne + "إثنى "
Else
MaChaîne = MaChaîne + "إثنان "
End If
End If
Select Case Unite
Case 3
MaChaîne = MaChaîne + "ثلاثة "
Case 4
MaChaîne = MaChaîne + "أربعة "
Case 5
MaChaîne = MaChaîne + "خمسة "
Case 6
MaChaîne = MaChaîne + "ستة "
Case 7
MaChaîne = MaChaîne + "سبعة "
Case 8
MaChaîne = MaChaîne + "ثمانية "
Case 9
MaChaîne = MaChaîne + "تسعة "
End Select
If (Dizaine > 1 And Unite > 0) Then MaChaîne = MaChaîne + "و"
Select Case Dizaine
Case 1
MaChaîne = MaChaîne + "عشر "
Case 2
MaChaîne = MaChaîne + "عشرون "
Case 3
MaChaîne = MaChaîne + "ثلاثون "
Case 4
MaChaîne = MaChaîne + "أربعون "
Case 5
MaChaîne = MaChaîne + "خمسون "
Case 6
MaChaîne = MaChaîne + "ستون "
Case 7
MaChaîne = MaChaîne + "سبعون "
Case 8
MaChaîne = MaChaîne + "ثمانون "
Case 9
MaChaîne = MaChaîne + "تسعون "
End Select
End If
ChiffreLettre3_a = MaChaîne
End Function


Function Arreta(total As Double) As String
Dim Millions As Double
Dim Milles As Double
Dim Var3, Var4 As Double
Dim Pdecimale As Double

Pdecimale = total - Fix(total)
total = total - Pdecimale
Pdecimale = Application.Round(Pdecimale, 2)
Pdecimale = Pdecimale * 100
'Message Pdecimale
'Message total
Millions = total \ 1000000
Var3 = total Mod 1000000
Milles = Var3 \ 1000
Var4 = Var3 Mod 1000
Machainefinale = ""
If Millions = 1 Then
Machainefinale = Machainefinale + "مليون "
End If
If total = 2000000 Then
Machainefinale = Machainefinale + "مليوني "
Else
If Millions = 2 Then
Machainefinale = Machainefinale + "مليونين "
End If
End If
If Millions > 2 And Millions <= 10 Then
Machainefinale = Machainefinale + ChiffreLettre3_a(Millions) + "ملايين "
End If
If Millions > 10 Then
Machainefinale = Machainefinale + ChiffreLettre3_a(Millions) + "مليون "
End If
If Milles > 0 And total > 1000000 Then
Machainefinale = Machainefinale + "و"
End If
If Milles = 1 Then
Machainefinale = Machainefinale + "ألف "
End If
If total = 2000 Then
Machainefinale = Machainefinale + "ألفي "
Else
If Milles = 2 Then
Machainefinale = Machainefinale + "ألفين "
End If
End If
If Milles > 2 And Milles <= 10 Then
Machainefinale = Machainefinale + ChiffreLettre3_a(Milles) + "آلاف "
End If
If Milles > 10 Then
Machainefinale = Machainefinale + ChiffreLettre3_a(Milles) + "ألف "
End If

If total > 1000 And Var4 <> 0 Then
Machainefinale = Machainefinale + "و"
End If
Machainefinale = Machainefinale + ChiffreLettre3_a(Var4)

If (total <> 0) Then
If (Var4 Mod 100) > 2 And (Var4 Mod 100) <= 10 Then
DA = "دينار جزائري "
Else
DA = "دينار جزائري "
End If
End If

Machainefinale = Machainefinale + DA
Liaison = ""
If total <> 0 Then
Liaison = "و"
End If
If Pdecimale = 1 Then
CT = "سنتيما واحدا"
Machainefinale = Machainefinale + Liaison + CT
End If

If Pdecimale = 2 Then
CT = "سنتيمين"
Machainefinale = Machainefinale + Liaison + CT
End If

If Pdecimale > 2 And Pdecimale <= 10 Then
CT = "سنتيم"
End If

If Pdecimale > 10 Then
CT = "سنتيم"
End If

If Pdecimale > 2 Then
Machainefinale = Machainefinale + Liaison + ChiffreLettre3_a(Pdecimale) + CT
End If
Arreta = Machainefinale

End Function
Function irg(i)
i = Format(i, "000.00")
p = Right(i, 4)
If i > 15000 Then
If i > 15000 And i < 22510 Then
irg = (i - p - 15000) / 5
End If
If i >= 22510 And i < 28760 Then
irg = ((i - p - 22500) * 0.12) + 1500
End If
If i >= 28760 And i < 30010 Then
irg = ((i - p - 28750) / 5) + 2250
End If
If i >= 30010 Then
irg = ((i - p - 30000) / 10 * 3) + 2500
End If
End If
End Function
Function IFC(i)
i = Format(i, "000.00")
If i > 1 And i <= 6 Then
IFC = 3200
End If
If i >= 7 And i <= 8 Then
IFC = 2500
End If
If i >= 9 And i <= 10 Then
IFC = 2000
End If
If i >= 12 Then
IFC = 1500
End If
End Function
Function SDBidx(cat)
cat = Format(cat, "00")
If cat = 1 Then
SDBidx = 200
End If
If cat = 2 Then
SDBidx = 219
End If
If cat = 3 Then
SDBidx = 240
End If
If cat = 4 Then
SDBidx = 263
End If
If cat = 5 Then
SDBidx = 288
End If
If cat = 6 Then
SDBidx = 315
End If
If cat = 7 Then
SDBidx = 348
End If
If cat = 8 Then
SDBidx = 379
End If
If cat = 9 Then
SDBidx = 418
End If
If cat = 10 Then
SDBidx = 453
End If
If cat = 11 Then
SDBidx = 498
End If
If cat = 12 Then
SDBidx = 537
End If
If cat = 13 Then
SDBidx = 578
End If
If cat = 14 Then
SDBidx = 621
End If
If cat = 15 Then
SDBidx = 666
End If
If cat = 16 Then
SDBidx = 713
End If
If cat = 17 Then
SDBidx = 762
End If
If cat = sub01 Then
SDBidx = 930
End If
If cat = sub02 Then
SDBidx = 990
End If
If cat = sub03 Then
SDBidx = 1055
End If
If cat = sub04 Then
SDBidx = 1125
End If
If cat = sub05 Then
SDBidx = 1200
End If
If cat = sub06 Then
SDBidx = 1280
End If
If cat = sub07 Then
SDBidx = 1480
End If
End Function
Function IEPidx(cat, ech)
If cat = 1 Then
If ech = 1 Then
IEPidx = 10
End If
If ech = 2 Then
IEPidx = 20
End If
If ech = 3 Then
IEPidx = 30
End If
If ech = 4 Then
IEPidx = 40
End If
If ech = 5 Then
IEPidx = 50
End If
If ech = 6 Then
IEPidx = 60
End If
If ech = 7 Then
IEPidx = 70
End If
If ech = 8 Then
IEPidx = 80
End If
If ech = 9 Then
IEPidx = 90
End If
If ech = 10 Then
IEPidx = 100
End If
If ech = 11 Then
IEPidx = 110
End If
If ech = 12 Then
IEPidx = 120
End If
End If
If cat = 2 Then
If ech = 1 Then
IEPidx = 11
End If
If ech = 2 Then
IEPidx = 22
End If
If ech = 3 Then
IEPidx = 33
End If
If ech = 4 Then
IEPidx = 44
End If
If ech = 5 Then
IEPidx = 55
End If
If ech = 6 Then
IEPidx = 66
End If
If ech = 7 Then
IEPidx = 77
End If
If ech = 8 Then
IEPidx = 88
End If
If ech = 9 Then
IEPidx = 99
End If
If ech = 10 Then
IEPidx = 110
End If
If ech = 11 Then
IEPidx = 120
End If
If ech = 12 Then
IEPidx = 131
End If
End If
If cat = 3 Then
If ech = 1 Then
IEPidx = 12
End If
If ech = 2 Then
IEPidx = 24
End If
If ech = 3 Then
IEPidx = 36
End If
If ech = 4 Then
IEPidx = 48
End If
If ech = 5 Then
IEPidx = 60
End If
If ech = 6 Then
IEPidx = 72
End If
If ech = 7 Then
IEPidx = 84
End If
If ech = 8 Then
IEPidx = 96
End If
If ech = 9 Then
IEPidx = 108
End If
If ech = 10 Then
IEPidx = 120
End If
If ech = 11 Then
IEPidx = 132
End If
If ech = 12 Then
IEPidx = 144
End If
End If
If cat = 4 Then
If ech = 1 Then
IEPidx = 13
End If
If ech = 2 Then
IEPidx = 26
End If
If ech = 3 Then
IEPidx = 39
End If
If ech = 4 Then
IEPidx = 53
End If
If ech = 5 Then
IEPidx = 66
End If
If ech = 6 Then
IEPidx = 79
End If
If ech = 7 Then
IEPidx = 92
End If
If ech = 8 Then
IEPidx = 105
End If
If ech = 9 Then
IEPidx = 118
End If
If ech = 10 Then
IEPidx = 132
End If
If ech = 11 Then
IEPidx = 145
End If
If ech = 12 Then
IEPidx = 158
End If
End If
If cat = 5 Then
If ech = 1 Then
IEPidx = 14
End If
If ech = 2 Then
IEPidx = 29
End If
If ech = 3 Then
IEPidx = 43
End If
If ech = 4 Then
IEPidx = 58
End If
If ech = 5 Then
IEPidx = 72
End If
If ech = 6 Then
IEPidx = 86
End If
If ech = 7 Then
IEPidx = 101
End If
If ech = 8 Then
IEPidx = 115
End If
If ech = 9 Then
IEPidx = 130
End If
If ech = 10 Then
IEPidx = 144
End If
If ech = 11 Then
IEPidx = 158
End If
If ech = 12 Then
IEPidx = 173
End If
End If
If cat = 6 Then
If ech = 1 Then
IEPidx = 16
End If
If ech = 2 Then
IEPidx = 32
End If
If ech = 3 Then
IEPidx = 47
End If
If ech = 4 Then
IEPidx = 63
End If
If ech = 5 Then
IEPidx = 79
End If
If ech = 6 Then
IEPidx = 95
End If
If ech = 7 Then
IEPidx = 110
End If
If ech = 8 Then
IEPidx = 126
End If
If ech = 9 Then
IEPidx = 142
End If
If ech = 10 Then
IEPidx = 158
End If
If ech = 11 Then
IEPidx = 173
End If
If ech = 12 Then
IEPidx = 189
End If
End If
If cat = 7 Then
If ech = 1 Then
IEPidx = 17
End If
If ech = 2 Then
IEPidx = 35
End If
If ech = 3 Then
IEPidx = 52
End If
If ech = 4 Then
IEPidx = 70
End If
If ech = 5 Then
IEPidx = 87
End If
If ech = 6 Then
IEPidx = 104
End If
If ech = 7 Then
IEPidx = 122
End If
If ech = 8 Then
IEPidx = 139
End If
If ech = 9 Then
IEPidx = 157
End If
If ech = 10 Then
IEPidx = 174
End If
If ech = 11 Then
IEPidx = 191
End If
If ech = 12 Then
IEPidx = 209
End If
End If
If cat = 8 Then
If ech = 1 Then
IEPidx = 19
End If
If ech = 2 Then
IEPidx = 38
End If
If ech = 3 Then
IEPidx = 57
End If
If ech = 4 Then
IEPidx = 76
End If
If ech = 5 Then
IEPidx = 95
End If
If ech = 6 Then
IEPidx = 114
End If
If ech = 7 Then
IEPidx = 133
End If
If ech = 8 Then
IEPidx = 152
End If
If ech = 9 Then
IEPidx = 171
End If
If ech = 10 Then
IEPidx = 190
End If
If ech = 11 Then
IEPidx = 208
End If
If ech = 12 Then
IEPidx = 225
End If
End If
If cat = 9 Then
If ech = 1 Then
IEPidx = 21
End If
If ech = 2 Then
IEPidx = 42
End If
If ech = 3 Then
IEPidx = 63
End If
If ech = 4 Then
IEPidx = 84
End If
If ech = 5 Then
IEPidx = 105
End If
If ech = 6 Then
IEPidx = 125
End If
If ech = 7 Then
IEPidx = 146
End If
If ech = 8 Then
IEPidx = 167
End If
If ech = 9 Then
IEPidx = 188
End If
If ech = 10 Then
IEPidx = 209
End If
If ech = 11 Then
IEPidx = 230
End If
If ech = 12 Then
IEPidx = 251
End If
End If
If cat = 10 Then
If ech = 1 Then
IEPidx = 23
End If
If ech = 2 Then
IEPidx = 45
End If
If ech = 3 Then
IEPidx = 68
End If
If ech = 4 Then
IEPidx = 91
End If
If ech = 5 Then
IEPidx = 113
End If
If ech = 6 Then
IEPidx = 136
End If
If ech = 7 Then
IEPidx = 159
End If
If ech = 8 Then
IEPidx = 181
End If
If ech = 9 Then
IEPidx = 204
End If
If ech = 10 Then
IEPidx = 227
End If
If ech = 11 Then
IEPidx = 249
End If
If ech = 12 Then
IEPidx = 272
End If
End If
If cat = 11 Then
If ech = 1 Then
IEPidx = 25
End If
If ech = 2 Then
IEPidx = 50
End If
If ech = 3 Then
IEPidx = 75
End If
If ech = 4 Then
IEPidx = 100
End If
If ech = 5 Then
IEPidx = 125
End If
If ech = 6 Then
IEPidx = 149
End If
If ech = 7 Then
IEPidx = 174
End If
If ech = 8 Then
IEPidx = 199
End If
If ech = 9 Then
IEPidx = 224
End If
If ech = 10 Then
IEPidx = 249
End If
If ech = 11 Then
IEPidx = 274
End If
If ech = 12 Then
IEPidx = 299
End If
End If
If cat = 12 Then
If ech = 1 Then
IEPidx = 27
End If
If ech = 2 Then
IEPidx = 54
End If
If ech = 3 Then
IEPidx = 81
End If
If ech = 4 Then
IEPidx = 107
End If
If ech = 5 Then
IEPidx = 134
End If
If ech = 6 Then
IEPidx = 161
End If
If ech = 7 Then
IEPidx = 188
End If
If ech = 8 Then
IEPidx = 215
End If
If ech = 9 Then
IEPidx = 242
End If
If ech = 10 Then
IEPidx = 269
End If
If ech = 11 Then
IEPidx = 295
End If
If ech = 12 Then
IEPidx = 322
End If
End If
If cat = 13 Then
If ech = 1 Then
IEPidx = 29
End If
If ech = 2 Then
IEPidx = 58
End If
If ech = 3 Then
IEPidx = 87
End If
If ech = 4 Then
IEPidx = 116
End If
If ech = 5 Then
IEPidx = 145
End If
If ech = 6 Then
IEPidx = 173
End If
If ech = 7 Then
IEPidx = 202
End If
If ech = 8 Then
IEPidx = 231
End If
If ech = 9 Then
IEPidx = 260
End If
If ech = 10 Then
IEPidx = 289
End If
If ech = 11 Then
IEPidx = 318
End If
If ech = 12 Then
IEPidx = 347
End If
End If
If cat = 14 Then
If ech = 1 Then
IEPidx = 31
End If
If ech = 2 Then
IEPidx = 62
End If
If ech = 3 Then
IEPidx = 93
End If
If ech = 4 Then
IEPidx = 124
End If
If ech = 5 Then
IEPidx = 155
End If
If ech = 6 Then
IEPidx = 186
End If
If ech = 7 Then
IEPidx = 217
End If
If ech = 8 Then
IEPidx = 248
End If
If ech = 9 Then
IEPidx = 279
End If
If ech = 10 Then
IEPidx = 311
End If
If ech = 11 Then
IEPidx = 342
End If
If ech = 12 Then
IEPidx = 373
End If
End If
If cat = 15 Then
If ech = 1 Then
IEPidx = 33
End If
If ech = 2 Then
IEPidx = 67
End If
If ech = 3 Then
IEPidx = 100
End If
If ech = 4 Then
IEPidx = 133
End If
If ech = 5 Then
IEPidx = 167
End If
If ech = 6 Then
IEPidx = 200
End If
If ech = 7 Then
IEPidx = 233
End If
If ech = 8 Then
IEPidx = 266
End If
If ech = 9 Then
IEPidx = 300
End If
If ech = 10 Then
IEPidx = 333
End If
If ech = 11 Then
IEPidx = 366
End If
If ech = 12 Then
IEPidx = 400
End If
End If
If cat = 16 Then
If ech = 1 Then
IEPidx = 36
End If
If ech = 2 Then
IEPidx = 71
End If
If ech = 3 Then
IEPidx = 107
End If
If ech = 4 Then
IEPidx = 143
End If
If ech = 5 Then
IEPidx = 178
End If
If ech = 6 Then
IEPidx = 214
End If
If ech = 7 Then
IEPidx = 250
End If
If ech = 8 Then
IEPidx = 285
End If
If ech = 9 Then
IEPidx = 321
End If
If ech = 10 Then
IEPidx = 357
End If
If ech = 11 Then
IEPidx = 392
End If
If ech = 12 Then
IEPidx = 428
End If
End If
If cat = 17 Then
If ech = 1 Then
IEPidx = 38
End If
If ech = 2 Then
IEPidx = 76
End If
If ech = 3 Then
IEPidx = 114
End If
If ech = 4 Then
IEPidx = 152
End If
If ech = 5 Then
IEPidx = 191
End If
If ech = 6 Then
IEPidx = 229
End If
If ech = 7 Then
IEPidx = 267
End If
If ech = 8 Then
IEPidx = 305
End If
If ech = 9 Then
IEPidx = 343
End If
If ech = 10 Then
IEPidx = 381
End If
If ech = 11 Then
IEPidx = 419
End If
If ech = 12 Then
IEPidx = 457
End If
End If
End Function


'Proc essai()
'Arret ()
'Fin Proc

Sub ARDNR()

End Sub

Function IDR(brut, pri)
If brut + pri < 15000 Then
IDR = 15000 - pri
End If
If brut + pri > 15000 Then
IDR = 0
End If
End Function


 #2  
الثلاثاء 04 أكتوبر 2011, 17:41
 
 
 
ذكر
الاقامة : algerie
المشاركات : 8
نقاط : 10
تاريخ التسجيل : 25/04/2010
العمل : cacqe
افتراضيokkkkkkkkkk

merciiiiiiiiiiiiiiiiiiiiiiiii beeeeeeeeeeeeeeeeeee


 #3  
الثلاثاء 04 أكتوبر 2011, 17:42
 
 
 
ذكر
الاقامة : algerie
المشاركات : 8
نقاط : 10
تاريخ التسجيل : 25/04/2010
العمل : cacqe
افتراضيokkkkkkkkkk

merciiiiiiiiiiiiiiiiiiiiiiiii beeeeeeeeeeeeeeeeeee


 #4  
الثلاثاء 04 أكتوبر 2011, 17:42
 
 
 
ذكر
الاقامة : algerie
المشاركات : 8
نقاط : 10
تاريخ التسجيل : 25/04/2010
العمل : cacqe
افتراضيokkkkkkkkkk

merciiiiiiiiiiiiiiiiiiiiiiiii beeeeeeeeeeeeeeeeeee


 #5  
الثلاثاء 04 أكتوبر 2011, 17:43
 
 
 
ذكر
الاقامة : algerie
المشاركات : 8
نقاط : 10
تاريخ التسجيل : 25/04/2010
العمل : cacqe
افتراضيokkkkkkkkkk

merciiiiiiiiiiiiiiiiiiiiiiiii beeeeeeeeeeeeeeeeeee


 #6  
الثلاثاء 04 فبراير 2014, 00:02
 
 
 
ذكر
الاقامة : الجزائر
المشاركات : 41
نقاط : 55
تاريخ التسجيل : 19/10/2013
العمر : 28
العمل : متعاقد
افتراضيرد: :programme exel VBA pour Les indemnité IFC, SAIRE DE BASE, IEP

هل من احد يبعث لي الملف كامل


 #7  
الأربعاء 12 فبراير 2014, 19:48
 
 
 
ذكر
الاقامة : الجزائر
المشاركات : 41
نقاط : 55
تاريخ التسجيل : 19/10/2013
العمر : 28
العمل : متعاقد
افتراضيرد: :programme exel VBA pour Les indemnité IFC, SAIRE DE BASE, IEP

شكرا


 #8  
الأربعاء 12 مارس 2014, 20:01
 
 
 
ذكر
الاقامة : mila
المشاركات : 128
نقاط : 132
تاريخ التسجيل : 11/09/2013
العمل : محاسب
افتراضيرد: :programme exel VBA pour Les indemnité IFC, SAIRE DE BASE, IEP

بارك الله فيك و جزاك كل خير






 
الإشارات المرجعية


  
وما من كاتب إلا سيفنى . ويبقي الدهر ما كتبت يداه



تعليمات المشاركة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى

BB code is متاحة
كود [IMG] متاحة
كود HTML متاحة