Récupération de l'objet pointé

[LOLO53]

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 TexBox.

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 ...

 

[Denis]

Bonjour Lolo53 et le Forum
il y a bien une possibilité en utilisant les modules de classe, mais il faudrait + de précision sur ce que tu désires
Bon courage et à +
Denis

 

[LOLO53]

Bonjour Denis,

Je t'envoie les précisions en MP pour ne pas polluer le phorum ...

 

[Denis]

Rebonjour Lolo53 et le Forum
ci-joint un petit exemple
demande moi si qquechose te tracasses
un défaut, je n'arrive pas à reprendre le focus en automatique

Bon amusement Denis

 

[LOLO53]

Salut Denis,

SUPER !!!

Je ne connais pas bien l'utilisation des modules de classe : j'apprends par ton exemple ...

Question complémentaire : ces modules de classe existaient déjà sous Excel 97 ?

Encore merci.