Calcul dans userform

Version imprimable

13/01/2014, 14h37
capi81

Calcul dans userform

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
13/01/2014, 14h42
Invité

bonjour,

je t'invite à prendre connaissance de ce poste:
http://www.developpez.net/forums/d14...e/#post7645507
13/01/2014, 14h43
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.

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:

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

Bonjour,

Et de cette façon (avec Evaluate) ?

Code:

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é.

14/01/2014, 09h26
capi81

Salut Theze

Merci pour votre solution qui fonctionne bien.
:ccool: