Comment insérer une formule dans une TextBox

Bonjour à tous les Excel....lents !!!!

Petit souci ce matin, je voudrais obtenir le résultat d'une formule au sein d'une textbox.

Petite précision, je suis débutant en vba et autodidacte.

J'ai quatre TextBox

- TextBox1

- TextBox2

- TextBox3

- TextBox4

Jusque là tout va bien !

Je voudrais que dans la TextBox4 je puisse obtenir le résultat d'une formule qui, sous Excel, donnerait ceci : =TextBox1 - (TextBox2 / TextBox3)

J'espère être assez explicite.

J'ai tenté code basic du style :

Private Sub TextBox4_AfterUpdate()
If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then
If TextBox1.Text > 0 And TextBox2.Text > 0 And TextBox3.Text > 0 Then TextBox4 = Format(TextBox1 - (TextBoxHeures2 / TextBox3)), " "
End If

End If

End Sub

Evidemment ça ne fonctionne pas.

Si quelques âmes charitables voudrais m'apporter une solution accompagné d'une explication sommaire, je vous en serait très reconnaissant.

Bonne journée à tous.

Stéphane,

Salut, à tester ?

Private Sub TextBox4_AfterUpdate()
If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then
If TextBox1.Text > 0 And TextBox2.Text > 0 And TextBox3.Text > 0 Then TextBox4.Value = TextBox1.Value - (TextBox2.Value / TextBox3.Value))
End If

End If

End Sub

Vous avez marqué " TextBoxHeures2 " dans le code normal ??

Comme toujours un fichier exemple serait le bienvenue pour pouvoir aider et tester le code de mon coté...

A+

EDIT salut ric tes réponses seront sans doutes plus pertinantes

Bonjour,

Tu ne peux pas utiliser Private Sub TextBox4_AfterUpdate() pour écrire dedans TextBox4 ...

Un essai ...

Private Sub TextBox3_Change()

   If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then
      If TextBox1.Text > 0 And TextBox2.Text > 0 And TextBox3.Text > 0 Then
         TextBox4 = TextBox1.Value - (TextBox2.Value / TextBox3.Value)
      End If
   End If
End Sub

EDIT : bonjour Gabin37 délais trop court > je n'ai pas vu ta proposition ...

ric

Super !

Tout fonctionne parfaitement.

Merci Gabin et merci Ric.

A bientôt.

Stéphane,