OVH Cloud OVH Cloud

Récupération de l'objet pointé

1 réponse
Avatar
commercial.billaud
Bonsoir,

J'utilise un Useform sur lequel j'ai un Multipages dont l'une des
pages contient 36 TextBox ...

J'aimerai contrôler la saisie de ces TextBox.

Il se trouve qu'elles présentent toutes le même type de données et de
contrôle dessus (numérique compris entre 0 et 90).

J'utilise la méthode ".Change" de chaque TexBox mais ca me fait ... 36
sub avec le même code à l'intérieur !!!!

Questions :
. comment ne faire qu'une seule sub ?
. si pas possible, comment rendre générique le code à l'intérieur
pour que chaque "sub .Change" lance ce code générique ? Attention,
j'utilise des propriétés de l'objet cliqué (pour autant, le nom est
bâti d'une façon toto_01, toto_02, etc.)

Merci par avance pour votre aide ....

P.S. : l'objet "Me" me renvoie la Useform alors que "Me.ActiveControl"
me renvoie la Multipages ...

1 réponse

Avatar
Eric
Bonsoir,

Ici : http://www.excelabo.net/xl/controles.php#moduleclasse

Laurent Longre propose de créer un module de classe pour affecter une
procédure commune à un évènement d'un ensemble de contrôles de même type.

Ca devrait correspondre à ton besoin.

--
A+
Eric
Lien à suivre : http://users.skynet.be/mpfa/

(LOLO53) écrivait
news::

Bonsoir,

J'utilise un Useform sur lequel j'ai un Multipages dont l'une des
pages contient 36 TextBox ...

J'aimerai contrôler la saisie de ces TextBox.

Il se trouve qu'elles présentent toutes le même type de données et
de

contrôle dessus (numérique compris entre 0 et 90).

J'utilise la méthode ".Change" de chaque TexBox mais ca me fait ... 36
sub avec le même code à l'intérieur !!!!

Questions :
. comment ne faire qu'une seule sub ?
. si pas possible, comment rendre générique le code à
l'intérieur

pour que chaque "sub .Change" lance ce code générique ? Attention,
j'utilise des propriétés de l'objet cliqué (pour autant, le nom est
bâti d'une façon toto_01, toto_02, etc.)

Merci par avance pour votre aide ....

P.S. : l'objet "Me" me renvoie la Useform alors que "Me.ActiveControl"
me renvoie la Multipages ...