Problème de passage de TextBox en argument.
Bonjour,
Après avoir cherché une demi-journée sur mon problème, je me résigne à poser un post. La plupart du temps, je trouve ma solution sans devoir en arriver là.
J'essaie de passer un objet TextBox dans une routine. Au lieu de passer l'objet, VBA me passe la propriété Text de la TextBox.
Au lancement du code, j'obtiens un merveilleux message : 'Erreur 424' objet requis.
l'exemple du code que j'ai fait est ci-dessous.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Sub MiseEnFormeTB(ByRef t As MSFORMS.TextBox)
t.ForeColor = couleur.rouge
t.Backcolor = couleur.blanc
..... la suite du code n'a pas vraiment d'importance car c'est l'ensemble de traitement pour la chaine de caractère s'y trouvant.
End sub
sub test()
MiseEnForme(usrForm.TB1) ' TB1 étant ma TextBox
end Sub |
Si j'omets le type de variable dans la routine (MSFORMS.TextBox) et que je demande par la commande VarType ce que la routine reçoit, j'obtiens 8 qui est une chaine de caractère.
J'arrive au bout de mes idées et je ne vois pas comment résoudre ce problème. Si quelqu'un peut m'aider, je suis preneur.
Merci pour votre patience. :zoubi:
