Discussion :

[EvaristeGaloisBis]

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 le code text :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[tirex28]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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/

[EvaristeGaloisBis]

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

[tirex28]

Re,

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

Parce que attoto est une sub.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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/

[EvaristeGaloisBis]

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