Rester dans un textbox apres remplissage listboc

Bonjour à tous,

Voilà, j'utilise une douchette à code barre pour scanner des bacs. Je voudrais que l'opérateur puisse scanner en continu sans avoir de manipulations à faire.
J'ai donc un textbox dans laquelle la douchette vient remplir la référence (lecture du code barres) et dès la fin de la modification, la valeur est mise dans une listbox pour une utilisation future (obligation d'avoir la listbox visible)

Je voudrais donc que mon curseur retourne de lui même dans la textbox afin que l'opérateur n'est pas besoin de cliquer sur celle-ci à chaque bac.

Voici le code que j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub TextBox1_AfterUpdate() Application.ScreenUpdating = False mot = TextBox1.Text ListBox1.AddItem If ListBox1.ListCount = 1 Then x = 0 Else x = ListBox1.ListCount - 1 End If ListBox1.List(x) = mot   TextBox1.Value = "" If TextBox1.Value = "" Then Cancel = True Else Cancel = False End If   CommandButton1.Visible = True   'ListBox1.Enabled = False   Application.ScreenUpdating = True     End Sub

---

Merci d'avance pour votre aide et votre temps :D

Bonjour
1) Qu'est cette variable Cancel ni déclarée, ni utilisée ?
2) qu'attendre de ceci ? :

Code:

---

1 2 3 4 5 6

TextBox1.Value = "" If TextBox1.Value = "" Then ' Elle l'EST (= "") puisque "" lui a été affecté ... Cancel = True ' et donc Cancel (dont tu ne fais de toutes manières rien) = toujours True Else Cancel = False End If

---