Modification parametres d'origine pour la tabulation

Bonjour,

Créez un UserForm1 avec une TextBox1 et une TextBox2 puis copiez le code suivant dans la fenêtre de code du UserForm

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub TextBox1_Enter()
TextBox1.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
End Sub
 
Private Sub TextBox2_Enter()
TextBox2.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
End Sub
 
Private Sub UserForm_Initialize()
With TextBox1
  .Text = "J'ai créé un formulaire avec pas mal de textbox, je passe de l'une a l'autre avec la touche tab, mais j'ai des infos par défaut qui s'inscrive dans mes textbox, que je complète au besoin avec mon formulaire."
  .MultiLine = True
End With
With TextBox2
  .Text = "Pour aller plus vite pendant ma saisie, j'aurais aimé que lorsqu'on passe d'une textbox à une autre avec la touche tab, on se retrouve en fin de ligne (donc ne pas sélectionner toute l'écriture de la textbox)."
  .MultiLine = True
End With
End Sub

Cordialement.

PMO
Patrick Morange