Calcul dans une textbox

[gds35]

Mes AMIS du Forum bonjour ,

Peux t'on effecter un cacul dans une textbox du style :

2*1,20 + 3 * 1,32 + 6*1.50

Merci de votre aide

Cordialement GDS35

 

[Compte Supprimé 979]

Re : Calcul dans une textbox

Bonjour Gds35,

Question étrange que tu poses là !?

Le calcul peut se faire dans le code VBA du TextBox !

A+

 

[RENAUDER]

Re : Calcul dans une textbox

Bonjour,
par exemple

Private Sub CommandButton1_Click()
     Me.TextBox1.Value = 2 * 1.2 + 3 * 1.32 + 6 * 1.5
End Sub

 

[gds35]

Re : Calcul dans une textbox

Merci à tous les 2.

Je me suis mal exprimé , est-il possible que la personne qui saissise dans le USF la TextBox , puisse rentrer 2*1.20 + 6*1.30 et que lors de la validation de l'usf le resultat entré s'affiche dans la TextBox1 ????

Cordialement GDS35

 

[PMO2]

Re : Calcul dans une textbox

Bonjour,

Une piste avec le code suivant

'##############
Private Sub TextBox1_AfterUpdate()
Dim A$
Dim B$
Dim i&
Dim Chaine$
Dim bool As Boolean
Dim S As Worksheet
Chaine$ = "1234567890 +-/*."

A$ = TextBox1.Value
bool = True
For i& = 1 To Len(A$)
B$ = Mid(A$, i&, 1)
If InStr(1, Chaine$, B$) = 0 Then
bool = False
Exit For
End If
Next i&
If bool Then
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set S = Sheets.Add
On Error Resume Next
S.[a1].Formula = "=" & A$
If Err.Number = 0 Then TextBox1.Value = S.[a1]
S.Delete
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
'##############

Cordialement.

PMO
Patrick Morange

 

[Pierrot93]

Re : Calcul dans une textbox

Bonsoir à tous,

si j'ai bien compris :

MsgBox Evaluate(TextBox1.Value)

fonctionne avec ton exemple, copier coller dans un textbox, maintenant tout dépend ce que saisira l'utilisateur...

bonne soirée.
@+

 

[Pierrot93]

Re : Calcul dans une textbox

Re

devrait aussi fonctionner avec l'événement "exit" du textbox :

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

@+

 

[gds35]

Re : Calcul dans une textbox

Bonsoir a tous et merci de votre aide.....
Je vais tester les 2 codes et vs tiens au courant. Bonne soirée a tous
Cordialement GDS35

 

[gds35]

Re : Calcul dans une textbox

rebsr , cela marche a une exception pret le format de ma cellule est perdu soit format cellule = monetaire .

Bonne nuit a tous bonne soirée GDS35

 

[Pierrot93]

Re : Calcul dans une textbox

Bonjour,

pas question de cellule dans tes précedents messages, ou alors j'ai mal vu... Pour renvoyer le format monétaire dans ta textbox, utilise le code comme ceci :

TextBox1.Value = Format(Evaluate(TextBox1.Value), "#,##0.00 $")

bonne journée
@+