Modifier Propriétés TextBox par KeyUp/KeyDown

Re : Modifier Propriétés TextBox par KeyUp/KeyDown

Pas de chance, joue au tennis, en général, c'est sur 6, d'où, pas ce problème

Edit : Tout cela pour te dire qu'il y a un minimum de bienséance (Bonjour, Bonsoir, Merci...)
Et de plus, donner des explications Télégraphiques du style :
- Saisie scores de golf - Stop-
- Une UF Scores avec 18 TextBox - Stop-

Vraiment pas l'idéal pour comprendre ton souci....

Re : Modifier Propriétés TextBox par KeyUp/KeyDown

bonjour Jidé

Salut bhbh 🙂

@ Jidé

Après avoir jeté un oeil à la charte je te propose de tester:

Re : Modifier Propriétés TextBox par KeyUp/KeyDown

Bonjour Pierrejean,

Merci pour le code, il fonctionne pour la TextBox1. Mais faut-il que je le duplique pour mes 18 TextBox (mes 18 trous). C'est pas très esthétique, et satisfaisant pour ...l'esprit.
A la lecture de la notice du constructeur, l'événement KeyDown se produit lorsque l'utilisateur appuie sur une touche alors qu'une feuille est en cours d'éxécution ou un contrôle de celle-ci à le focus.
Je pensais donc pouvoir mettre la UF en objet, et pouvoir passer à MaxLength =2 sur le trou qui a le focus, en faisant précéder la saisie par Ctrl.
Mais je n'y arrive pas. Existe-il un mot-clé pour désigner la TextBox qui a le focus ? C'est peut-être là qu'est le problème ?

Re : Modifier Propriétés TextBox par KeyUp/KeyDown

Bonsoir pierrejean,

J'ai réussi à placer ActiveControl dans le code :

Private Sub Trou1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 17 Then ActiveControl.MaxLength = 2
End Sub

Cela marche, mais n'améliore en rien la situation. Rien de générique pour les 18 trous.