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