Programme vba
Bonjour,
je suis débutante en vba et je sais c quoi le problème exactement dans ce code:
Function CR(Notionel As Double, ResidMatur As Double, Counter As String, A As Double)
Dim PE As Double
Dim CEA As Double
Dim CF As Double
If ResidMatur < 1 Then CF = 0
ElseIf 5 > ResidMatur And ResidMatur >= 1 Then CF = 0.5
Else: CF = 1.5
End If
AE = Max(0, A)
PE = CF * Notionel
CEA = AE + PE
If Counter = " Bank" Then RF = 20
ElseIf Counter = " Corporate " Then RF = 50
End If
CR = RF * CEA * 0.08
End Function
je suis débutante en vba et je sais c quoi le problème exactement dans ce code:
Function CR(Notionel As Double, ResidMatur As Double, Counter As String, A As Double)
Dim PE As Double
Dim CEA As Double
Dim CF As Double
If ResidMatur < 1 Then CF = 0
ElseIf 5 > ResidMatur And ResidMatur >= 1 Then CF = 0.5
Else: CF = 1.5
End If
AE = Max(0, A)
PE = CF * Notionel
CEA = AE + PE
If Counter = " Bank" Then RF = 20
ElseIf Counter = " Corporate " Then RF = 50
End If
CR = RF * CEA * 0.08
End Function
