OVH Cloud OVH Cloud

Textbox

2 réponses
Avatar
Denys
Re-bonjour à tous,

Supponsons que j'aie à écrire l'instruction suivante pour les textbox1 à 10:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "#,##0.00")
End Sub

Comment éviter de la recopier 10 fois ? Est-ce possible?

Merci

Denys

2 réponses

Avatar
michdenis
Bonjour Denys,

Pour éviter d'avoir à recopier 10 fois la même procédure, il faudrait
utiliser alors un module de classe. Cependant, cet événement (exit) n'est
pas disponible dans un module de classe. Conséquence, il n'y a pas
de solution directe à ta problématique.

Cependant, au lieu d'utiliser cet événement sur chaque Textbox, tu pourrais
avoir un bouton de validation générale de l'ensemble des informations que
contient ton formulaire... et dans cette procédure, tu pourrais ajouter la mise
en forme de tes textbox en supposant que cela est réalisable dans ton projet.


Salutations!



"Denys" a écrit dans le message de news:
Re-bonjour à tous,

Supponsons que j'aie à écrire l'instruction suivante pour les textbox1 à 10:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "#,##0.00")
End Sub

Comment éviter de la recopier 10 fois ? Est-ce possible?

Merci

Denys
Avatar
Denys
Bonjour Denis,

Merci pour la précision de ta réponse. En fait, ce n'est pas si dramatique,
sauf que par économie d'espace (et aussi pour plus de clarté) je me demandais
si c'était faisable.... Mais bon... pour les fois que ça arrive...

Bonne journée

Denys


Bonjour Denys,

Pour éviter d'avoir à recopier 10 fois la même procédure, il faudrait
utiliser alors un module de classe. Cependant, cet événement (exit) n'est
pas disponible dans un module de classe. Conséquence, il n'y a pas
de solution directe à ta problématique.

Cependant, au lieu d'utiliser cet événement sur chaque Textbox, tu pourrais
avoir un bouton de validation générale de l'ensemble des informations que
contient ton formulaire... et dans cette procédure, tu pourrais ajouter la mise
en forme de tes textbox en supposant que cela est réalisable dans ton projet.


Salutations!



"Denys" a écrit dans le message de news:
Re-bonjour à tous,

Supponsons que j'aie à écrire l'instruction suivante pour les textbox1 à 10:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "#,##0.00")
End Sub

Comment éviter de la recopier 10 fois ? Est-ce possible?

Merci

Denys