Auto Calc: Saler + IEP + INDIC (VBA)

' Fonction Saler + IEP By Boussaid Mustafa
' APC SALI 2022

Function Indic(Categori As Integer)

    Dim val As Integer
    If Categori >= 11 And Categori <= 17 Then
        val = 18
    ElseIf Categori >= 9 And Categori <= 10 Then
        val = 10
    ElseIf Categori >= 7 And Categori <= 8 Then
        val = 4
    Else
        val = 0
    End If
    Indic = val + (Categori - 1) * 19 + 250 + (Categori - 2) * (Categori - 1)
End Function

Function IepIndic(Categori As Integer, Echlon As Integer)
    Dim nplus As Integer
    Select Case Echlon
        Case 1: nplus = 3
        Case 2: nplus = 5
        Case 3: nplus = 8
        Case 4: nplus = 10
        Case 5: nplus = 13
        Case 6: nplus = 15
        Case 7: nplus = 18
        Case 8: nplus = 20
        Case 9: nplus = 23
        Case 10: nplus = 25
        Case 11: nplus = 28
        Case 12: nplus = 30
    End Select

    IepIndic = WorksheetFunction.RoundUp((Indic(Categori) - 50) * 0.05 * Echlon + nplus, 0)
End Function

Function saler(Categori As Integer) As Currency
    saler = Indic(Categori) * 45
End Function

Function iep(Categori As Integer, Echlon As Integer) As Currency
    iep = IepIndic(Categori, Echlon) * 45
End Function