Salut Yeahou, José, Salim, Mulder et Skeuly, Thombar, Pascal, Yvon, Eric, !! lol et le Forom !!!
Oui José j'adore m'amuser en travaillant et je pense que c'est comme ceci qu'on travaille le mieux, et pour Yeahou c'est super d'avoir des proposition d'amélioration, en tant que vieux crouton du Forum, en tout cas je suis content de m'amuser avec vous deux en ce moment, fun and serious !
J'ai fait ceci dans des UserForms (la Touche Enter pour passer de TextBox en TextBox), laisse moi juste retrouver le Fil / Démo...
En attendant Yeahou, très bien vu le MaxLength.... j'espère juste que tu t'es pas tapé 50 fois le cinq dans la Propriété MaxLength de chacune des 50 textBox... Sinon tu vas être vert en testant çà :
Sub TxbMaxLength()
Dim CTRL As OLEObject
For Each CTRL In Sheets("LOL").OLEObjects
If CTRL.ProgId = "Forms.TextBox.1" Then
CTRL.Object.MaxLength = 6
End If
Next CTRL
End Sub
LOL !!! 'd'ailleurs il faut la mettre dans le module "SpecialTool" que j'appelerais aussi "SpecialCorse" lol (hein Pat?)
Bon je regarde pour la touche [enter] in the 4ème dimension !!!!
@+Thierry