[VBA-E]Comment envoyer en parametre un textbox d'une userform

bonjour,

je suis en train de programmer sur une petite userform et j'ai besoin d'envoyer en paramètre un textebox dans une fonction. Naivement je suis me suis basé sur la même méthode qeu pour les ComboBox a savoir le code suivant :

Code:

---

1 2 3 4 5 6 7

Private Sub tbxTest_KeyPress(ByVal KeyCode As MSForms.ReturnInteger) attoto (Me.tbxTest) End Sub   Private Sub attoto(truc As TextBox) MsgBox truc.Text End Sub

---

et j'ai toujours une erreur qui apparait : "Objet Requis"
Alors fort de ce constant je me suis dit que peut être j'aurai plus de chance en faisant un envoi par me.controls(1) mais rien n'y fait.

Est ce que quelqu'un a déjà réussi a faire ce genre d'envoi?

Bonjour,

Code:

---

1 2 3 4 5 6 7

Private Sub tbxTest_KeyPress(ByVal KeyCode As MSForms.ReturnInteger) attoto Me.tbxTest 'Sans parentheses End Sub   Private Sub attoto(truc As MSForms.TextBox) 'Préciser MSForms MsgBox truc.Text End Sub

---

Cordialement,

Tirex28/

Merci Beaucoup... je n'étais pas loin.
Mais pourquoi il ne faut pas mettre de parenthèse?

Re,

Citation:

---

Mais pourquoi il ne faut pas mettre de parenthèse?

---

Parce que attoto est une sub.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub tbxTest_KeyPress(ByVal KeyCode As MSForms.ReturnInteger) Dim s As String s = attoto(Me.tbxTest) 'Avec parentheses MsgBox s End Sub   Private Function attoto(truc As MSForms.TextBox) 'Préciser MSForms attoto = truc.Text End Function

---

Cordialement,

Tirex28/

aaa ouiii il aurait fallu mettre le "call" !!! je l'oublie régulièrement ce point précis du VBA:oops:
Merci pour la patience :)