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)
    IepIndic = WorksheetFunction.RoundUp(Indic(Categori) * 0.05 * Echlon, 0)
    If Categori = 8 And Echlon = 12 Then
        IepIndic = IepIndic - 3
    End If
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