Bonjour,
J'essaie de faire fonctionner mon programme mais il n'arrive pas à appeler les cellules correspondantes. Je suis néophyte avec VBA. J'aurai besoin d'aide c'est très important.
Sub Fltest()
Dim Am As Double
Dim Ac As Double
Am = Range("B25").Value 'InputBox("Indiquez la section transversale immergé en m")
Ac = Range("B22").Value 'InputBox("Indiquez le débit en m3/s")
resultat = Fl(Am, Ac) 'pour afficher la valeur de Fl
End Sub
Function equation(Ac As Double, Am As Double, F As Double)
equation = ((2 / 3) * (1 - (Am / Ac) + 0.5 * (F ^ 2))) ^ (3 / 2)
End Function
Function Fl(Ac As Double, Am As Double)
Dim X As Double
X = 1
While Abs(X - equation(Ac, Am, X)) > 0.001
X = equation(Ac, Am, X)
Wend
Fl = X
End Function
Merci à vous
Cordialement
J'essaie de faire fonctionner mon programme mais il n'arrive pas à appeler les cellules correspondantes. Je suis néophyte avec VBA. J'aurai besoin d'aide c'est très important.
Sub Fltest()
Dim Am As Double
Dim Ac As Double
Am = Range("B25").Value 'InputBox("Indiquez la section transversale immergé en m")
Ac = Range("B22").Value 'InputBox("Indiquez le débit en m3/s")
resultat = Fl(Am, Ac) 'pour afficher la valeur de Fl
End Sub
Function equation(Ac As Double, Am As Double, F As Double)
equation = ((2 / 3) * (1 - (Am / Ac) + 0.5 * (F ^ 2))) ^ (3 / 2)
End Function
Function Fl(Ac As Double, Am As Double)
Dim X As Double
X = 1
While Abs(X - equation(Ac, Am, X)) > 0.001
X = equation(Ac, Am, X)
Wend
Fl = X
End Function
Merci à vous
Cordialement