VBA: Formule a corriger

[Shinichi]

Dans la foulée de mon post précédent, j'en profite pour une autre question: j'ai une formule qui marchait tres bien et qui marche plus.. Qu'est ce qui ne va pas?

Deperdition = 2 * WorksheetFunction.Pi() * lambda * (Tmaintenir - Tambmin) * safety / WorksheetFunction.Ln((Diam1 + 2 * ep_calo) / Diam1)

NB: Diam1, lambda sont des doubles, les autres variables sont des textboxes

NB2eperdition = 2 * WorksheetFunction.Pi() * lambda * (Val(Tmaintenir) - Val(Tambmin)) * Val(safety) / WorksheetFunction.Ln((Diam1 + 2 * Val(ep_calo)) / Diam1)
ne marche pas non plus...

Par avance merci

Bruno

 

[Hervé]

Bonsoir shinichi, le forum



une piste

difficile sans voir le fichier, mais les textbox renvoi du texte, essaye de convertir leurs valeurs en double :

Deperdition = 2 * WorksheetFunction.Pi() * lambda * (cdbl(Tmaintenir)- Tambmin) * safety /
WorksheetFunction.Ln((Diam1 + 2 * ep_calo) / Diam1)

Je n'ai bien sur fait qu'une textbox dans mon exemple il faut que tu le fasse à toutes.

Si le problème persiste, il faudrait que tu nous mettes un fichier afin que l'on comprenne ce que doit faire ta formule.

salut