Autres Additionner et ou soustraire en direct dans un TextBox

[marcelio]

Bonjour le forum,
Comme le dit le titre de ma demande, est il possible d’additionner ou de soustraire directement dans un TextBox.
J’ai des gros chiffres à ajouter ou à supprimer dans ma TextBox.
Peut-on faire.
Exemple 1 : =3598+941= cela m’affiche comme résultat 4539
Exemple 2 =3598-335= 3263
Exemple 3 =3598+941-335= 4204
Merci pour votre aide
Marcelio

 

[Robert]

Bonjour Marcelino,

Si tu n'utilises que des nombre entiers Val(TextBox1.Value) fera très bien l'affaire...

 

[Eric C]

Bonjour le forum
Bonjour marcelio, bonjour Robert

Je pense que marcelio désire faire une ou des opérations depuis 1 TextBox. Pour ce faire, essaie ce code :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Evaluate(TextBox1.Text)
End Sub

@+ Eric c

 

[marcelio]

Bonjour Robert et Eric,

Merci à tous les 2 pour votre aide.
Je garde le code d' Eric qui me convient parfaitement.
Bonne journée à tous les 2 et au Forum.
Marcelio

 

[patricktoulon]

bonjour eric C
fait moi plaisir teste un eventuel textbox vide avant de l'evaluer sinon vba pas content 😉

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And TextBox1.Value <> "" Then TextBox1 = Evaluate(TextBox1.Value)
End Sub

garde l’événement exit si tu veux

 

[patricktoulon]

Bonjour Marcelino,

Si tu n'utilises que des nombre entiers Val(TextBox1.Value) fera très bien l'affaire...

ca ne peut fonctionner robert val prendra le premier nombre et c'est tout

 

[Eric C]

Re,
Bonjour Patrick

Dans ce cas là.... mon gars (dixit Bigard), on rajoute quelques lignes de code et plus de problème -

Private Sub UserForm_Activate()
TextBox1.Value = 0
TextBox1.SelStart = 0
TextBox1.SelLength = Len(Me.TextBox1)
End Sub

@+ Eric c

 

[patricktoulon]

re
????????????????
quel rapport, pourquoi?,qu'est ce que ça apporte en plus ?

le test tu le fait a l'exit ou comme moi au keydown 13 le reste importe peu

 

[Eric C]

Re,
Il n'y aura plus d'erreur si la touche "Entrée" ou "Tab"est activée.

 

[patricktoulon]

mais non c'est a la demande exit ou keydown 13 qu'il faut agir
d'autant plus que vous avez pas penser a une éventuelle erreur de formule écrite dans le txbox car vba plantera aussi

donc

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> "" Then
If Not IsError(Evaluate(TextBox1.Value)) Then TextBox1 = Evaluate(TextBox1.Value) Else MsgBox "la formule comporte une(des)erreur(s)"
End If
End Sub

ou

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And TextBox1.Value <> "" Then
If Not IsError(Evaluate(TextBox1.Value)) Then TextBox1 = Evaluate(TextBox1.Value) Else MsgBox "la formule comporte une(des)erreur(s)"
End If
End Sub

 

[Eric C]

Re,
Merci Patrick