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é