Calcul dans une textbox

C

Compte Supprimé 979

Guest

• 4 Décembre 2008

• #2

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+

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 4 Décembre 2008

• #3

Re : Calcul dans une textbox

Bonjour,
par exemple

Code:

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

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 4 Décembre 2008

• #4

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

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 4 Décembre 2008

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Décembre 2008

• #6

Re : Calcul dans une textbox

Bonsoir à tous,

si j'ai bien compris :

Code:

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.
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Décembre 2008

• #7

Re : Calcul dans une textbox

Re

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

Code:

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

@+

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 4 Décembre 2008

• #8

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

 

Vote positif 0 Vote négatif

gds35

XLDnaute Impliqué

• 4 Décembre 2008

• #9

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Décembre 2008

• #10

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 :

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif