Résultat d'un calcul de textbox dans le même textbox

[orson17]

Bonsoir à tous, je cherche à faire par soucis de commodité , d'afficher dans un textbox le résultat d'une opération comme s'il s'agissait d'une simple calculatrice c'est à dire taper 1 + 2 dans le textbox et obtenir 3 aprés sortie du textbox ou afterupdate, comment faire? Merci

 

[Fred0o]

Re : Résultat d'un calcul de textbox dans le même textbox

Bonsoir orson17,

Tu peux essayer ce code :

Private Sub TextBox1_AfterUpdate()
    Dim Val, Tablo, VNum, i
    Val = Me.TextBox1.Value
    Tablo = Split(Val, "+")
    VNum = 0
    For i = 0 To UBound(Tablo)
        VNum = VNum + Tablo(i)
    Next
    Me.TextBox1.Value = VNum
End Sub

A+

 

[soenda]

Re : Résultat d'un calcul de textbox dans le même textbox

Bonsoir le fil, orson17, Fred0o

Si un autre contrôle peut prendre le focus (lorsque tu tapes sur "Entrée"),
tu peux écrire, dans l'évènement Exit du textBox :

    On Error Resume Next
    TextBox1 = Evaluate(TextBox1.Value)
 
    If Err.Number Then
        TextBox1 = ""
        Err.Clear
    End If

A plus

 

[orson17]

Re : Résultat d'un calcul de textbox dans le même textbox

merci à vous deux je vais potasser cela, bon week end