Passer une TextBox en argument : PB car prend la propriété par defaut (.Value)

Bonjour,

J'ai rencontré un problème ici : je ne suis pas parvenu a passer une TextBox en argument. Je n'ai pas très très tellement besoin de connaitre la solution mais j'en suis curieux pour mes projets futurs :D voici un code simplifié du problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub TextBox1_Change() TextBoxCheck (TextBox1) End Sub   Private Sub TextBox2_Change() TextBoxCheck (TextBox2) End Sub   '[...]   Private Sub TextBoxCheck(ByRef ThisTextBox As MSForms.TextBox) If IsNumeric(ThisTextBox) Then ThisTextBox.BackColor = &HC0FFC0 'Vert Else ThisTextBox.BackColor = &HC0FFFF 'Jaune End If End Sub

---

Malgré le "As MSForms.TextBox" l'argument récupéré est TextBox1.Value (la propriété par defaut de TextBox) au lieu de l'objet TextBox lui même..

J'ai cherché sur le net et.. rien trouvé :( help! Merci.

Bonjour KekeStreet,

J'ai essayé ton code et il fonctionne chez moi si j'enlève les parenthèses dans les évènements Change :

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_Change() TextBoxCheck TextBox1 End Sub Private Sub TextBox2_Change() TextBoxCheck TextBox2 End Sub

---

par contre si je laisse les parenthèses, ça plante chez moi

Ok, oui maintenant j'ai pigé d'ou viens le problème..

http://mhubiche.developpez.com/vba/f...yntaxes/bases/

Paragraphe II-A-1 : [...] on n'utilise les parenthèses QUE lorsqu'on espère obtenir un résultat [...]

La base.. la BASE !!

Je me sens vraiment nul là.. erreur de débutant. J'ai cherché compliqué alors que c'était tout con :aie: désolé pour ce topic inutile.

Bonjour,

Il y a un petit truc pour savoir si les parenthèses sont nécessaires ou pas.
Si l'éditeur ajoute un espace avant, c'est qu'elles ne sont pas nécessaires (sauf pour une expression).