Discussion :

[capi81]

Salut le forum

Je souhaite faire des calculs dans des textbox mais je n'y arrive pas.
je cherche à faire en sorte que le résultat des calculs suivants s'affichent dans les textboxs suivant:
- textbox5 = (textbox1*textbox3)+(textbox1*textbox2)
- textbox7=(textbox1*textbox3)+(textbox1*textbox2)-((textbox1*textbox3)+(textbox1*textbox2)*textbox6-textbox4)
Merci de voir comment vous pourrez m'aider.
http://cjoint.com/?DAnocpbCqxF

[Invité]

je t'invite à prendre connaissance de ce poste:
http://www.developpez.net/forums/d14...e/#post7645507

[Invité]

Bonjour,

Il faut d'abord convertir vos Textbox en des valeurs numériques.

Cdbl(TextboxX) par exemple. Voir l'aide Excel pour la conversion de données en types long, single ou double.

Cordialement.

[capi81]

Salut à tous

Merci pour vos contributions.
Voici ce que j'ai essayé de réaliser mais je rencontre un soucis:
lorsque je renseigne le textbox1, il y'a un zero (0) que s'affiche dans le textbox5 (ce qui est normal).
Lorsque je renseigne le textbox2, le meme zero reste toujours dans le textbox5.
Il en est de meme lorsque je renseigne le textbox3.
En resumé, je constate que le calcul ne se fait pas correctement.
Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim sommeTB As Double, valTB As Double, result As Double
Function Conv_en_Cdbl(valeur)
     'Avec la fonction CDbl, le séparateur décimal régional est requis
     'Format(0, ".") donne le séparateur décimal régional
    Conv_en_Cdbl = Replace(valeur, ".", Format(0, "."))
 
    If Conv_en_Cdbl = "" Then
     Conv_en_Cdbl = 0
     Else
        If Not IsNumeric(Conv_en_Cdbl) Then
          Conv_en_Cdbl = 0
        Else
            Conv_en_Cdbl = CDbl(Conv_en_Cdbl)
        End If
    End If
End Function
 
Private Sub TextBox1_Change()
If TextBox1 > 0 Then
calcul
End If
End Sub
Private Sub calcul()
sommeTB = Val(TextBox1) * Val(TextBox2)
valTB = Val(TextBox1) * Val(TextBox3)
result = valTB + sommeTB
TextBox5 = result
End Sub
 
Private Sub TextBox5_Change()
calcul
End Sub

[Theze]

Bonjour,

Et de cette façon (avec Evaluate) ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub TextBox1_Change()
 
    Cacul
 
End Sub
 
Private Sub TextBox2_Change()
 
    Cacul
 
End Sub
 
Private Sub TextBox3_Change()
 
    Cacul
 
End Sub
 
Sub Cacul()
 
    On Error Resume Next
    TextBox5 = Evaluate(TextBox1.Text * TextBox3.Text + TextBox1.Text * TextBox2.Text)
 
End Sub

Hervé.

[capi81]

Salut Theze

Merci pour votre solution qui fonctionne bien.