Discussion :

[hamon37]

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 :

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

[unparia]

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

Code :

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

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