Formule dans textbox

[Gringo]

Bonjour,

Voici mon problème: j'ai une formule dans un textbox qui ne marche pas, en l'occurence, le round (formule d'arrondissement). Voici mon code:

Private Sub TextBox25_AfterUpdate()
TextBox28.Value = Format((TextBox25.Value / 100 * 100), "##0.00")
TextBox27.Value = Format(round(((1 + TextBox23 / 100) ^ 3 / ((1 + TextBox26 / 100) * (1 + TextBox28 / 100)) - 1) * 100 / 0.05, 0) * 0.05 / 100, "##0.00") 'l'arrondissement ne fonctionne pas
End Sub

La valeur qu'il serait supposé me donner serait en pourcentage et je veux qu'il arrondisse au .05%.

De plus, quand j'essaie de le formatté de la façon suivante:

TextBox27.Value = Format(((1 + TextBox23 / 100) ^ 3 / ((1 + TextBox26 / 100) _
* (1 + TextBox28 / 100)) - 1) * 100, "##0.05")

il arrondi mais en me donnant un 5 à la fin tout le temps...
Est-ce que vous avez une idée de la raison pour laquelle cette formule ne marche pas dans un textbox (qui est situé dans un userform)?

Merci pour votre aide.

Gringo

 

[PascalXLD]

Re : Formule dans textbox

Bonjoru

Il ne faut pas oublier une chose c'est que le textbox en sortie c'est du string

As-tu essayé en faisant

TextBox28.Value = Format((Val(TextBox25.Value) / 100 * 100), "##0.00")
Ou sinon en remplaçant val par CDbl

Sinon verifies ta formule car tu divises par 100 puis tu multiplies par 100 donc pas top

Bonne journée

 

[Gringo]

Re : Formule dans textbox

Bonjour Pascal,

Merci pour ta réponse. Toutefois, le textbox28.value marche bien, c'est l'autre bout de code en dessous qui ne marche pas... textbox27.value=format(round...

Les multiplications que je fais sont pour m'assurer que le type de données n'est pas un string et que les calculs se fassent. Ca marche jusqu'à maintenant. Si tu as une façon plus efficace de le faire, je suis toute ouie et serai très heureux d'en apprendre...

Comment contourner le fait que c'est un string qui sort du textbox pour le faire calculer un arrondissement de la valeur que mon calcul donne?

Merci!

Gringo

 

[PascalXLD]

Re : Formule dans textbox

RE

pour l'arrondi pas trop le temps de regarder de suite

Pour le pbe string et bien tu pas par val ou CDBL

exemple

Val(textbox25)

te met en numérique ton textbox25

Bon courage

 

[Gringo]

Re : Formule dans textbox

Salut Pascal, forum,

Merci pour la réponse sur le string, ca va rendre mon code plus effectif!

J'attendrai ta réponse ou celle d'un autre XLdien pour mon problème d'arrondissement.

Merci!

Gringo

 

[Gringo]

Re : Formule dans textbox

Bonjour,

J'ai réussi à résoudre mon problème! La formule qu'il me fallait pour mon textbox est la suivante, pour ceux qui pourraient consulter ce post dans le futur:

TextBox27.Value = Format(round(((1 + TextBox23 / 100) ^ 3 / ((1 + TextBox26 / 100) _
* (1 + TextBox28 / 100)) - 1) * 100 / 0.05, 0) * 0.05, "##0.00")

Merci pour ton aide Pascal

Gringo