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

orson17 · 20 Novembre 2010

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 · 20 Novembre 2010

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

Bonsoir orson17,

Tu peux essayer ce code :

VB:

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 · 20 Novembre 2010

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 :

Code:

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

A plus

orson17 · 20 Novembre 2010

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

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

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

orson17

XLDnaute Nouveau

Fred0o

XLDnaute Barbatruc

soenda

XLDnaute Accro

orson17

XLDnaute Nouveau

Discussions similaires

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

orson17

XLDnaute Nouveau

Fred0o

XLDnaute Barbatruc

soenda

XLDnaute Accro

orson17

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency