APPLICATION DE LOI INVERSE

Public Function Fred()

On Error Resume Next
'Declarations
Dim a As Double 
Dim n1, n2 As Integer 

'INVERSE.LOI.F = FINV Renvoie l'inverse de la distribution de probabilité suivant la loi F
Dim fs As Double 'result of EXCEL function Finv(probabilité;degrés_liberté1;degrés_liberté2)

'Initializations a, n1, n2
a = 0.2
n1 = 2
n2= 5
answer = Application.WorksheetFunction.finv(a, n1, n2)
msgBox answer
Fred = answer

End Function