redonner le focus à un textbox

**monfiston** · 20/09/2020, 16h36

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** · 20/09/2020, 18h18

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** · 20/09/2020, 18h52

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** · 20/09/2020, 19h32

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** · 20/09/2020, 19h35

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

**Philippe Tulliez** · 20/09/2020, 19h44

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.

**monfiston** · 20/09/2020, 19h46

On ne doit pas se comprendre essayer votre procédure dans le fichier joint plus haut

**Philippe Tulliez** · 20/09/2020, 20h10

Bonjour,
Je n'ouvre pas les fichiers joints.
J'aide les personnes qui expliquent clairement leur besoin en publiant éventuellement pour une meilleure compréhension des copies d'écrans, des données, etc.

**monfiston** · 20/09/2020, 20h33

C est bien dommage
Je ferais plusieurs capture d écran demain matin pour te montrer que le code cancel= true, bloque l accès au 2° combobox de l userform

**Philippe Tulliez** · 20/09/2020, 20h45

Bonjour,
Les contrôles d'un UserForm sont indépendants l'un de l'autre et je ne vois pas comment l'argument Cancel de la procédure événementielle TextBox.Exit pourrait avoir une incidence quelconque sur un autre contrôle.
Si vous ne pouvez pas utiliser votre ComboBox c'est soit qu'une de ces propriétés comme par exemple Enabled serait à False ou tout simplement vous ne l'avez pas alimenté (propriété List, RowSource ou méthode AddItem). C'est un peut comme un appareil électrique qui ne fonctionne pas tout simplement parce-que on ne la pas connecté à la prise de courant

**monfiston** · 20/09/2020, 20h55

Faites le test vous meme avec votre fichier, vous comprendrez ce qui cloche

**Philippe Tulliez** · 21/09/2020, 07h47

Bonjour,
Erratum
Il est exact qu'aucun contrôle autre que le TextBox concerné n'est accessible mais en même temps c'est logique, en utilisant Cancel notre volonté dans ce cas précis c'est de rester sur ce contrôle.

Si vous souhaitez scanner des articles, pourquoi utiliser un ComboBox ?

**monfiston** · 21/09/2020, 07h53

Je ne peux pas le faire sur une feuille, car j ai bien trop d information à injecter dans une base access, ,car plusieurs personne enregistre les données en même temps

**monfiston** · 21/09/2020, 07h54

Le textbox c est pour les numéro de pièce
Le combobox c est pour changer un paramètre de temps en temps

**pijaku** · 21/09/2020, 09h26

Bonjour,
Trouver une valeur de sortie.
Dans l'exemple ci-dessous, la saisie de abc dans le textbox piece permet la sortie sans enregistrement...

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
Sub piece_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If piece <> "abc" Then
    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 If
End Sub
Private Sub STATION_Change()
    piece = ""
    focus
End Sub
Sub focus()
    piece.SetFocus
End Sub

Si pas de clavier (pour la saisie de abc), prévoir un code barre à usage exclusif de sortie du TextBox...

**monfiston** · 21/09/2020, 09h36

merci, j'ai testé
mais ce n'est pas le fonctionnement que je souhaite

je souhaite que n'importe qu'elle numéro soit enregistré dans le textbox,
à la sortie de celui ci(touche entrée par exemple), ce même textbox redevient vide, et à de nouveau le focus

et je souhaite que le combobox soit manipulable tout le temps

Nom : Capture d’écran 2020-09-21 093416.jpg
Affichages : 1669
Taille : 84,7 Ko

Nom : Capture d’écran 2020-09-21 093416.jpg
Affichages : 1669
Taille : 84,7 Ko

par contre au lieu d'un combobox, je pourrais mettre des checkbox/optionbutton/...
mais pour le moment, dès qu'il y a l'instruction :cancel=true, ça empêche leurs sélection

**pijaku** · 21/09/2020, 10h35

Il te faut bien un moyen de sortir...
Un autre exemple avec une variable Booléenne de niveau Module :
[ici, un double-clic dans le textbox permet la sortie]

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
Private SortieAutorisee As Boolean
 
Private Sub piece_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If piece.Value <> vbNullString 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.Value = vbNullString
        focus
    End If
End Sub
Private Sub piece_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    SortieAutorisee = True
End Sub
'redonne le focus
Private Sub piece_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not SortieAutorisee Then
    If piece.Value = vbNullString Then Cancel = True
End If
End Sub
Sub focus()
    piece.SetFocus
    SortieAutorisee = False
End Sub
Private Sub Validation_Click()
    If IsNumeric(piece) Then
        ThisWorkbook.Worksheets("bdd 1").Range("a1") = piece.Value
        SAISIE_FUITES.enregistrement_dans_la_base
        piece.Value = vbNullString
        saisie_de_piece_identique.Value = vbNullString
    End If
End Sub
Private Sub UserForm_Initialize()
    STATION.RowSource = "'bdd 1'!C2:C6"
End Sub