Discussion :

[Patman]

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 :

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

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.

[BlueMonkey]

Bonjour,

Dans l'exemple, il y a des choses non définie. (couleur, MiseEnForme() ou MiseEnFormeTB()).
Pour être sûr, est-ce que tu peux tester le code ci-dessous stp.

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    Call MiseEnForme(TB1)
End Sub
 
Sub MiseEnForme(t As MSFORMS.TextBox)
    t.ForeColor = ColorConstants.vbRed
    t.BackColor = ColorConstants.vbWhite
End Sub

[Patman]

waouh merci beaucoup.

Pour les objets non défini
- couleur était une énumération de couleurs que j'ai défini par une valeur hexadécimale.
- TB1, le nom d'une de mes TextBox.
- MiseEnFormeTB le nom de ma routine pour mettre en forme mes TextBox.

Un simple call a résolu mon problème. C'est une function que je n'avais jamais employé auparavant. Je vais devoir l'approfondir.

Encore merci.

[BlueMonkey]

Re.

En fait pour la partie Call c'est surtout une particularité historique de VBA. Les appel de routine peuvent se faire sans parenthèse.
Si on veut mettre les parenthèses, il faut faire précéder le nom de routine par Call. (ce n'est pas vrai pour les fonctions = qui retourne une valeur)

Sinon on peut très bien écrire MiseEnForme TB1. (sans le Call). Mais venant d'un autre langage ça me choque
toujours un peu d'appeler des routines ou fonctions sans mettre de parenthèse.

Quoiqu'il en soit, content pour toi que ce soit résolu .