Discussion :

[monfiston]

bonjour
j'utilise un userform pour scanner des N° de pièces

quand la pièce est scanné, le textbox N° de pièces doit ré-avoir le focus pour scanner la pièce suivante

la dessus mon fichier fonctionne sans pb

par-contre j'ai rajouté un combobox pour choisir le N° de station

et malheureusement, je ne peux pas le sélectionner avec la souris

et quand je modifie mon fichier pour redonner le focus, je ne peux plus scanner plusieurs pièces à la suite, car je perds le focus du textbox N° de pièce après avoir scanner une pièce

voici mon code

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
28
29
30
31
32
33
34
35
36
37
Sub piece_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 
If piece <> "" Then
    ThisWorkbook.Worksheets("bdd 1").Range("a1") = piece.Value
    Label2.Visible = True
    Label2.Caption = "pièce N°:" & ThisWorkbook.Worksheets("bdd 1").Range("a1") & " enregistré"
    piece = ""
    piece.SetFocus
    focus
End If
 
End Sub
Sub focus()
 
piece.SetFocus
 
End Sub
Sub Validation_Click()
 
If IsNumeric(piece) Then
    ThisWorkbook.Worksheets("bdd 1").Range("a1") = piece.Value
    SAISIE_FUITES.enregistrement_dans_la_base
    piece = ""
    saisie_de_piece_identique = ""
End If
 
End Sub
'redonne le focus
Sub piece_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If piece.Value = "" Then Cancel = True
End Sub
 
 
Sub UserForm_Initialize()
STATION.RowSource = "'bdd 1'!C2:C6"
 
End Sub

et voici un fichier test

test.xlsm

vous auriez une astuce?

[Philippe Tulliez]

Bonjour,

EDIT (Erreur de procédure événementielle que je viens de corriger)

Code à placer dans la procédure événementielle Exit du contrôle où a lieu le Scan (pour l'exemple txtInputScan)

Code :

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

1
2
3
4
5
6
7
8
Private Sub txtInputScan_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Cancel = True
  With Me.txtInputScan
  .SetFocus
  .SelStart = 0
  .SelLength = Len(.Text)
  End With
End Sub

Pour scanner avec une douchette, personnellement j'utilise la cellule d'une feuille Exel dédiée au scan voir éventuellement mes réponses dans cette discussion Comment créer un formulaire de saisie pour rechercher une position à l'aide d'un code barre?

[monfiston]

merci, de votre aide
j'ai donc placé le code dans la procédure exit de mon textbox

mais ça fait la même chose qu'avant, je n'ai pas accès à mon combobox qui se trouve sur le même userform

d'après ce que je voie, c'est le Cancel = True, qui bloque l'accès au combobox

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub piece_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 
If piece <> "" Then
    ThisWorkbook.Worksheets("bdd 1").Range("a1") = piece.Value
    Label2.Visible = True
    Label2.Caption = "pièce N°:" & ThisWorkbook.Worksheets("bdd 1").Range("a1") & " enregistré"
    piece = ""
    piece.SetFocus
    focus
End If
 
End Sub
Sub focus()
 
'piece.SetFocus
 
End Sub
Sub Validation_Click()
 
If IsNumeric(piece) Then
    ThisWorkbook.Worksheets("bdd 1").Range("a1") = piece.Value
    SAISIE_FUITES.enregistrement_dans_la_base
    piece = ""
    saisie_de_piece_identique = ""
End If
 
End Sub
'redonne le focus
Sub piece_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
  Cancel = True
  With Me.piece
  .SetFocus
  .SelStart = 0
  .SelLength = Len(.Text)
  End With
 
End Sub
 
 
Sub UserForm_Initialize()
STATION.RowSource = "'bdd 1'!C2:C6"
 
End Sub

[Philippe Tulliez]

Bonjour,
La procédure que vous affichez n'est pas ce que j'ai préconisé. Ce n'est pas l'événement Exit mais BeforeUpdate

mais ça fait la même chose qu'avant, je n'ai pas accès à mon combobox qui se trouve sur le même userform

Si vous sélectionnez un Combobox sur le même formulaire, il est évident que vous perdrez le focus mais je ne vois pas le rapport entre les deux

Essayez d'expliquer ce que vous souhaitez faire sans afficher de code VBA.

[monfiston]

Si, je l ai bien mise dans l événement exit

[Philippe Tulliez]

Bonjour,
Je teste toutes les procédures que je publie et j'ai bien le focus dans le TextBox après avoir scanné. Si le Combobox n'est pas accessible c'est que vous avez peut-être modifié l'une de ses propriétés comme par exemple Enable

Si, je l ai bien mise dans l événement exit

Alors pourquoi afficher une autre procédure ?
Difficile de vous aider dans ces conditions.