Evaluer une expression

Bonjour

je m’emmelle un peu les pinceaux pour evaluer cette exression :

If Cint(1 / (TextBox1.text)) * (CInt(TextBox1.Text) * CInt(TextBox7.Text) - CInt(TextBox7.Text)) + (1 / CInt(TextBox2.Text)) * (0 - CInt(TextBox7.Text)) + (1 / CInt(TextBox3.Text)) * (0 - CInt(TextBox7.Text)) > 0 Then

qui doit me renvoyer une valeur decimale

Comment puis corriger cela , ? comprenant bien que je dois convertir des chaines de caractères en valeur

Merci à vous.

Bonjour,

par exemple,

soit Cdbl(TextBox1.text) pour:

-1.79769313486231E308 à -4,94065645841247E-324 pour les valeurs négatives

4,94065645841247E-324 à 1,79769313486232E308 pour les valeurs positives.

soit CDec(TextBox1.text) pour:

+/-79 228 162 514 264 337 593 543 950 335 pour les nombres sans décimales.

La plage de valeurs des nombres à 28 décimales est

+/-7,9228162514264337593543950335. Le plus petit nombre différent de zéro est 0,0000000000000000000000000001.

Bonjour,

pour plus de clarté j'utiliserai des variables un peu comme ceci :

Dim T1 As Integer
Dim T2 As Integer
Dim T3 As Integer
Dim T7 As Integer
Dim Result As Double

T1 = CInt(TextBox1.Text)
T2 = CInt(TextBox2.Text)
T3 = CInt(TextBox3.Text)
T7 = CInt(TextBox7.Text)

Result = 1 / T1 * (T1 * T7 - T7) + 1 / T2 * (0 - T7) + 1 / T3 * (0 - T7)

If Result > 0 Then

Merci pour vos réponses la presentation donnée par Thèze est pas mal Un grand merci