Controle unique de plusieursTextBox

[patrice]

Bonjour au Forum,

Dans un UserForm, j'ai 15 TextBox de 1 à 15 et pour chaqu'un j'effectue les meme controles :
Private Sub TextBox1_Change()
blabla
End Sub
Ce Sub est écrit 15 fois.
Y a t il une solution pour économiser du code type
Private Sub TextBox(I)_Change()
control en fonction de I

Merci d'avance.
A+

 

[mDF]

Bonjour Patrice,

Pour économiser des lignes de code dans ce cas, je vois 2 solutions :

La première simple consiste à renvoyer chaque évènement TextBox_Change() sur une procédure de traitement commun en passant un argument qui permettrait d'identifier l'origine de la demande du genre :

Private Sub TextBox1_Change()
Call TraitCom(1)
End Sub
Private Sub TextBox2_Change()
Call TraitCom(2)
End Sub
...
Sub TraitCom(T as integer)
... 'traitement à effectuer
End Sub

La seconde solution (bien meilleure à mon avis mais moins évidente à mettre en oeuvre) consiste à définir une nouvelle classe pour ce groupe d'objets. Je te joins un exemple qui, adapté à tes besoins, pourra peut-être te rendre service.

Je ne suis pas "spécialiste" en la matière, mais je découvre depuis peu les possibilités offertes par cette technique très intéressante...

Cordialement.
DIDIER