Discussion :

[goby45]

Bonjour,

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.

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).

Une instruction vba pour faire ceci existe-t-elle ?

Merci de votre aide.

[PMO2017]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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