BoixosNois
XLDnaute Nouveau
fgjfjghjghj
Dernière édition:
Function IntpoLin(ByVal X As Double, ByVal X1 As Double, ByVal Y1 As Double, _
ByVal X2 As Double, ByVal Y2 As Double) As Double
IntpoLin = Y1 + (Y2 - Y1) * (X - X1) / (X2 - X1)
End Function
Function Montant(ByVal Prct As Double, ByVal P1 As Double, ByVal M1 As Currency, _
ByVal P2 As Double, ByVal M2 As Currency) As Currency
Montant = Round(M1 + (M2 - M1) * (Prct - P1) / (P2 - P1), 2)
End Function
Function Pourcent(ByVal Mont As Currency, ByVal M1 As Currency, ByVal P1 As Double, _
ByVal M2 As Currency, ByVal P2 As Double) As Double
Pourcent = P1 + (P2 - P1) * (Mont - M1) / (M2 - M1)
End Function
Function IntpoVar(ByVal X, ByVal X1, ByVal Y1, ByVal X2, ByVal Y2)
IntpoVar = Y1 + (Y2 - Y1) * (X - X1) / (X2 - X1)
End Function
Sub test()
MsgBox Montant(50, 0, 3000, 100, 4000)
End Sub