VBA contrôle comme argument

jpb388 · 5 Juillet 2011

Bonjour à tous

J'ai un userform qui contient 5 textbox chacune d'entre elle est géré par leur propre code. A part le nom de la textbox ce code est identique. Mon idée est de faire une sous routine avec comme argument le nom de la textbox
exemple;
call Trait_Txt(userform.textbox)

et dans le module
sub Trait_Txt(MaTxt as textbox)
Mavar = MaTxt.value
mais comme vous vous en doutez cela ne fonctionne pas
Merci d'avance
jp

Gorfael · 5 Juillet 2011

Re : VBA contrôle comme argument

Salut jpb388 et le forum
call Trait_Txt(userform.textbox.name)

et dans le module
sub Trait_Txt(MaTxt as control)
Mavar = usf.controls(MaTxt)

Tant qu'on aura aussi peut d'informations, on ne pourra pas faire mieux !
A+

tototiti2008 · 5 Juillet 2011

Re : VBA contrôle comme argument

Bonjour JP, Bonjour Gorfael,

Moi je proposerais plutôt

Code:

call Trait_Txt(userform.textbox.name)


sub Trait_Txt(MaTxt as String)
Mavar = usf.controls(MaTxt).Text

Pierrot93 · 5 Juillet 2011

Re : VBA contrôle comme argument

Bonjour à tous,

une autre possibilité, utiliser un module de classe, tu trouveras plein d'exemples sur le forum...

bonne fin d'après midi
@+

Gorfael · 5 Juillet 2011

Re : VBA contrôle comme argument

Salut tototiti2008 et le forum
Ouais, ça me semble mieux
Mais j'ai répondu sans conviction.
A+

VBA contrôle comme argument

jpb388

XLDnaute Accro

Gorfael

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

Discussions similaires