Public Function ftoto(strWorkSheet As String, intLigne As Integer, intColonne As Integer) As String
Dim objWbk As Object
Set objWbk = Application.Workbooks(Application.ThisCell.Parent.Parent.Name)
Dim strNameWorkSheet As String
strNameWorkSheet = Application.ThisCell.Parent.Name
If objWbk.Sheets(strNameWorkSheet).Cells(intLigne, 3).Value <> "Essai" Then
If objWbk.Sheets(strNameWorkSheet).Cells(intLigne, intColonne - 1).Value = "" Then ' check if exists
ftoto = ""
Else
ColumnNatureMes = objWbk.Sheets(strNameWorkSheet).Rows(3).Find(What:="Nature", After:=Cells(3, 1), LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True, SearchFormat:=False).Column
ColumnLoiPondéra = objWbk.Sheets(strNameWorkSheet).Rows(3).Find(What:="Loi3", After:=Cells(3, 1), LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=True, SearchFormat:=False).Column
If objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnNatureMes).Value = "Ana" Or objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnNatureMesure).Value = "Int" Then
Dim ValueTempDen As Double
If objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnLoiPondéra).Value = "Lin" Then
ValueTempDen = objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMax).Value - objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMin).Value
Else
ValueTempDen = objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMax).Value * objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMax).Value - objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMin).Value * objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMin).Value
End If
Dim ValueTempNum As Double
If objWbk.Sheets(strNameWorkSheet).Cells(intLigne, ColumnMin).Value < 0 Then
ValueTempNum = 126 + 127
Else
ValueTempNum = 126
End If
ftoto = ValueTempNum / ValueTempDen
Format(fMesuresPASCoeffa, "0.0000")
Else
fMesuresPASCoeffa = ""
End If
End If