Calcul textbox

[apdf1]

Bonjour,

J'ai besoin d'un petit coup de main. J'ai un USF avec 3 TextBox je souhaiterais afficher le résultat de la textBox "T1 + T2" dans la Textbox8 en automatique.

Voici le code que j'ai appliqué.

Private Sub TextBox3_Change()
TextBox3.Text = Val(T1.Text) + Val(T2.Text)
End Sub

Je vous remercie par avance et vous souhaite une bonne journée

Cordialement

Max

 

[Papou-net]

Re : Calcul textbox

Bonjour apdf1,

Ton code est bon, mais mal placé.

Tu dois entrer cette ligne dans la procédure Change de T1 et T2 :

Private Sub T1_Change()
TextBox3.Value = T1.Value + T2.Value
End Sub

Private Sub T2_Change()
TextBox3.Value = Val(T1.Value) + Val(T2.Value)
End Sub

Tu remarqueras au passage que j'ai remplacé la propriété .Text par .Value, mais ça marche tout aussi bien avec .Text.

Attention toutefois, si tu entres des données alphanumériques dans T1 ou T2, tu obtiendras 0 en TextBox3, ce qui pourrait induire des erreurs dans la suite de ton programme.

Espérant avoir répondu.

Cordialement.

 

[apdf1]

Re : Calcul textbox

Bonjour Papou-net

Je te remercie infiniment ces Nickel

Bonne Week end

Max