Discussion :

[hawk91]

Bonjour à tous, autre petit soucis, je n arrive pas à additionner 2 textbox 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
33
34
35
Private Sub TextBox31_AfterUpdate()
TextBox31.Value = CDbl(TextBox32.Value) + CDbl(TextBox34.Value)
End Sub
 
Private Sub TextBox33_AfterUpdate()
Me.TextBox33.Value = Format(CDbl(Me.TextBox33.Value), "# ##0.00 €")
End Sub
 
Private Sub TextBox31_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox31 = Format(Me.TextBox31, "# ##0.00 €")
End Sub
 
 
Private Sub TextBox32_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox32 = Format(Me.TextBox32, "# ##0.00 €")
End Sub
 
 
Private Sub TextBox33_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox33 = Format(Me.TextBox33, "# ##0.00 €")
End Sub
 
Private Sub TextBox34_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox34 = Format(Me.TextBox34, "# ##0.00 €")
End Sub
 
 
Private Sub TextBox37_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox37 = Format(Me.TextBox37, "# ##0.00 €")
End Sub

Merci

[laetitia]

bonjour hawk91 le forum un exemple

Code :

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

TextBox3 = (CDbl(TextBox1.Value) + CDbl(TextBox2.Value))

ou

Code :

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

TextBox3 = (Val(TextBox1.Value) + Val(TextBox2.Value))

[hawk91]

Merci je vais tester, mon soucis est que le résultat ne s affiche pas automatiquement il faut taper un chiffre dans la cellule resultat, n importe lequel et la il s affiche

Ta 1ere solution, je lutilise actuellement mais le chiffre ne s'affiche pas automatiquement.

Code :

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

TextBox31.Value = CDbl(TextBox32.Value) + CDbl(TextBox34.Value)

Et la 2eme ne change pas non plus, voila ce que j'ai mis actuellement

Code :

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

1
2
3
4
5
Private Sub TextBox31_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox31 = Format(Me.TextBox31, "# ##0.00 €")
TextBox31 = (Val(TextBox32.Value) + Val(TextBox34.Value))
End Sub

Merci

[laetitia]

rebonjour le forum c est normal essai comme cela rajoute ce code dans change

Option Explicit

Code :

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

1
2
3
4
Private Sub TextBox32_Change()
On Error Resume Next
TextBox31.Value = CDbl(TextBox32.Value) + CDbl(TextBox34.Value)
End Sub

Code :

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

1
2
3
4
Private Sub TextBox34_Change()
On Error Resume Next
TextBox31.Value = CDbl(TextBox32.Value) + CDbl(TextBox34.Value)
End Sub

[hawk91]

Humm mon code est un peu "brouillon", voici ce que j'ai puis je simplififer

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
33
34
35
36
37
38
39
40
Private Sub TextBox31_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
 
TextBox31 = (Val(TextBox32.Value) + Val(TextBox34.Value))
Me.TextBox31 = Format(Me.TextBox31, "# ##0.00 €")
End Sub
 
Private Sub TextBox32_Change()
On Error Resume Next
TextBox31.Value = CDbl(TextBox32.Value) + CDbl(TextBox34.Value)
End Sub
 
 
Private Sub TextBox32_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox32 = Format(Me.TextBox32, "# ##0.00 €")
End Sub
 
 
Private Sub TextBox33_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox33 = Format(Me.TextBox33, "# ##0.00 €")
End Sub
 
Private Sub TextBox34_Change()
On Error Resume Next
TextBox31.Value = CDbl(TextBox32.Value) + CDbl(TextBox34.Value)
End Sub
 
 
Private Sub TextBox34_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox34 = Format(Me.TextBox34, "# ##0.00 €")
End Sub
 
 
Private Sub TextBox37_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox37 = Format(Me.TextBox37, "# ##0.00 €")
End Sub

TextBox31 = Total32+34, TextBox32= Annexe, Tx34= Princi, Tx 33 montant val Tx 37 mont conf

[laetitia]

re on le met en haut dans le module mais si tu as aucune variable declaree c est pas la peine !!
autrement en simplifiant ton code
Option Explicit

Code :

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

1
2
3
4
5
Private Sub TextBox32_Change()
On Error Resume Next
TextBox31.Value = (CDbl(TextBox32.Value) + CDbl(TextBox34.Value))
TextBox31 = Format(Me.TextBox31, "# ##0.00 €")
End Sub

Code :

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

1
2
3
4
5
Private Sub TextBox34_Change()
On Error Resume Next
TextBox31.Value = (CDbl(TextBox32.Value) + CDbl(TextBox34.Value))
TextBox31 = Format(Me.TextBox31, "# ##0.00 €")
End Sub

Code :

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

1
2
3
Private Sub TextBox32_AfterUpdate()
Me.TextBox32.Value = Format(CDbl(Me.TextBox32.Value), "# ##0.00 €")
End Sub

Code :

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

1
2
3
Private Sub TextBox34_AfterUpdate()
Me.TextBox34.Value = Format(CDbl(Me.TextBox34.Value), "# ##0.00 €")
End Sub