Addition de Textbox

Version imprimable

Addition de Textbox

Bonjour à tous, autre petit soucis, je n arrive pas à additionner 2 textbox 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
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

09/04/2009, 19h22
laetitia

bonjour hawk91 le forum un exemple

Code:

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

ou

Code:

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

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:

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

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

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

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

Option Explicit

Code:

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

Code:

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

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

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

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:

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:

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:

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

Code:

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

Merci avec ton code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub TextBox32_Change()
On Error Resume Next
TextBox31.Value = (CDbl(TextBox32.Value) + CDbl(TextBox34.Value))
TextBox31 = Format(Me.TextBox31, "# ##0.00 €")
End Sub
Private Sub TextBox34_Change()
On Error Resume Next
TextBox31.Value = (CDbl(TextBox32.Value) + CDbl(TextBox34.Value))
TextBox31 = Format(Me.TextBox31, "# ##0.00 €")
End Sub
Private Sub TextBox32_AfterUpdate()
Me.TextBox32.Value = Format(CDbl(Me.TextBox32.Value), "# ##0.00 €")
End Sub
Private Sub TextBox34_AfterUpdate()
Me.TextBox34.Value = Format(CDbl(Me.TextBox34.Value), "# ##0.00 €")
End Sub
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

cela s'affiche correctement mais seulement si TextBox32 est renseigné

10/04/2009, 10h19
laetitia

re j avais pas vu ton dernier post desole textbox37 est sensee faire quoi!!!!!!!!!
10/04/2009, 10h25
hawk91

Voila la demarche

Textbox 34 = Montant Principal, Textbox 32 = somme Annexe
TextBox 31 = 34+32
Textboc 33 = Montant validé et Textbox 37 = montant Confirmé
Donc 33 et 37 rentré manuelement

Ex = T34 =100 T32 = 20 T31 = 120, T33 peut être 100 mais T37 peut etre 120.

re comme je comprends textbox33 & 37 ne rentre pas dans le calcul
Option Explicit

Code:

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

Code:

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

Code:

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

Code:

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

Code:

1
2
3
4
Private Sub TextBox37_AfterUpdate()
On Error Resume Next
Me.TextBox37 = Format(Me.TextBox37, "# ##0.00 €")
End Sub

10/04/2009, 10h53
Invité

Bonjour

Une petit question, pourquoi veux-tu faire cela par le code ?
En plus tu joues sur des évènements.

Voici un exemple, il faut le mettre dans la propriété source contrôle de la zone de texte qui doit être remplie, sur la droite tu accèdes au générateur d'expression.

Par exemple on peut avoir cela :

Code:

=CDbl(Nz([Texte0];0))+CDbl(Nz([Texte2];0))

dés que que je saisies dans Texte0 ou Texte2, j'ai une le calcul qui se fait automatiquement.

Ce n'est qu'un exemple vite fait, mais pas besoin de passer par du code.

Philippe

Génial Merci laetitia. Puis je abuser si tu as "un peu de temps"?
Merci "Philippe" mais je n'ai pas réussi et j ai encore tellement d erreur à gerer, comme mon DtPicker qui se mettent pas par défaut sur la date du jour. Voici mon code
Code:

1 2 3 4 5 6 7 Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date) UserForm1.DTPicker2.Value = Date End Sub Private Sub DTPicker5_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date) End Sub
Et je cherche aussi à pouvoir envoyer à plusieurs destinataire un mail avec classeur joins mais dont un destinataire est connu et les autres c'est suivant la valeur d'une ComboBox voici un bout du code :
Code:

1 2 3 4 5 6 7 Private Sub CommandButton3_Click() lenom = ThisWorkbook.Name Workbooks(lenom).SendMail Recipients:="pe.com", _ Subject:="à valider", _ ReturnReceipt:=True End Sub
la c'est le destinataire connu et la suivante la ComboBox
Code:

1 2 3 4 5 6 7 8 9 Private Sub CommandButton4_Click() If ComboBox7.Value = " Alexandre" Then ComboBox7.Visible = True lenom = ThisWorkbook.Name Workbooks(lenom).SendMail Recipients:="pe.com", _ Subject:=" à valider", _ ReturnReceipt:=True
et il y a 3 ComboBox

10/04/2009, 10h59
laetitia

re, salut Philippe c est une solution viable aussi plus simple
autrement j ai un peu de temps
10/04/2009, 11h07
hawk91

Merci laetitia