Microsoft 365 Besoin d'aide VBA appeler cellule

[Nicolas17]

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

 

[Modeste geedee]

Bonsour®
à part B22 et B25
il est extrêmement hasardeux de pouvoir deviner la composition, le but de ton ouvrage.

Avant que de penser VBA ...
exploitez le B.A.BA des feuilles de calculs !!!

 

[sylvanu]

Bonsoir Nicolas, ModesteGeedee
En fait votre formule ((2 / 3) * (1 - (Am / Ac) + 0.5 * (F ^ 2))) donne un résultat négatif ( -0.73)
Donc la racine donne une erreur.
Est ce Am/Ac ou Ac/Am ? Car à priori Ac > Am donc (1-Am/Ac)<0 ( pour un néophyte )

 

[Nicolas17]

Oui Am (environ 200) est supérieur à Ac (environ 30).

J'ai besoin de faire de boucles. C'est pour cela que j'utilise VBA. L'équation que je souhaite résoudre est la suivante (ci-joint)

 

[Nicolas17]

Il est peut être possible de le faire via Excel mais je ne vois pas comment faire

 

[sylvanu]

Si Am=200 et Ac=30 alors Am/Ac=200/30=6.666666
Donc 1-Am/Ac=-5.66666
Donc ou votre formule est fausse, soit les données sont fausses car cela conduit à une "racine négative"
Et par XL vous aurez la même chose.

Par contre si Am=30 et Ac=200 alors on obtient : 0,542515163850113


Sous XL vous pourriez le faire par calcul itératif en spécifiant un écart maximal dans les options.
Mais franchement à mes yeux il vaut mieux trois lignes de VBA.

 

[Nicolas17]

Pardon c'était l'inverse : Ac environ 200 et Am environ 30. Si on rentre ces valeurs de 200 et de 30 dans les cellules B22 et B25 ca marche ?

 

[sylvanu]

Oui, ca marche : 0,542515163850113

Il est où le problème du post #1 ?

 

[Nicolas17]

Car chez moi ca ne marche pas XD

 

[sylvanu]

Essayez ce fichier.
J'ai juste rajouté le résultat en B28 et un bouton pour lancer la macro. Le reste c'est vous.

 

[Nicolas17]

C'est bon j'ai trouvé le problème nickel !
Merci beaucoup !!

 

[sylvanu]

C'était quoi ?

 

[Nicolas17]

Je ne rentrais pas B22 et B25 dans =fl(). J'ai marqué =fl(B22,B25) et cela a marché