Passage d'un textBox en argument

Bonjour,

J'ai fait un code à la "va vite" que je souhaite dégraisser en passant un textBox en argument à une fonction de contrôle et formatage mais quelque chose se passe mal.

Code:

---

1 2 3 4 5 6 7

Private Sub controle_numeric(Arg1 As TextBox) MsgBox "test" End Sub   Private Sub prix_unit_TextBox_Change() controle_numeric prix_unit_TextBox End Sub

---

Où est l'erreur ??

Merci de votre aide.

Bonjour,

Modifie ainsi la première Sub :

Code:

---

1 2 3

Private Sub controle_numeric(Arg1 As MSForms.TextBox) MsgBox "test" End Sub

---

Merci beaucoup :mrgreen: