Pb sur passage d'argument de type control

Salut à tous,
je voudrais avoir une aide sur le passage d'argument de type control.
exemple :

Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call TEST(Me.TextBox1) '=> Me.TextBox1 = "" PKOI ?
End Sub

Sub TEST(Contr As Control)
MsgBox "control : " & Contr
End Sub

MERCI D AVANCE !

DAMIEN

Je comprend pas bien ou tu veux en venir, mais soit plus précis dans ta déclaration d'argument de ta sub TEST.
Si tu transmet un Controle Textbox, met "TEST(Contr as TextBox)"
Mais bon , je vois pas pourquoi tu fait pas le MSgBox dans le DblClick() !!!!!!!

Christophe R.


-------------------------------
Réponse au message :
-------------------------------

> Salut à tous,
> je voudrais avoir une aide sur le passage d'argument de type control.
> exemple :
>
> Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
> Call TEST(Me.TextBox1) '=> Me.TextBox1 = "" PKOI ?
> End Sub
>
> Sub TEST(Contr As Control)
> MsgBox "control : " & Contr
> End Sub
>
> MERCI D AVANCE !
>
> DAMIEN

Merci de ta réponse mais comme mon projet et assez urgent, j'ai trouvé une autre solution
Encore merci


-------------------------------
Réponse au message :
-------------------------------

> Je comprend pas bien ou tu veux en venir, mais soit plus précis dans ta déclaration d'argument de ta sub TEST.
> Si tu transmet un Controle Textbox, met "TEST(Contr as TextBox)"
> Mais bon , je vois pas pourquoi tu fait pas le MSgBox dans le DblClick() !!!!!!!
>
> Christophe R.
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Salut à tous,
> > je voudrais avoir une aide sur le passage d'argument de type control.
> > exemple :
> >
> > Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
> > Call TEST(Me.TextBox1) '=> Me.TextBox1 = "" PKOI ?
> > End Sub
> >
> > Sub TEST(Contr As Control)
> > MsgBox "control : " & Contr
> > End Sub
> >
> > MERCI D AVANCE !
> >
> > DAMIEN
>