redonner le focus à un textbox

Version imprimable

Voir 40 message(s) de cette discussion en une page

1 pièce(s) jointe(s)

redonner le focus à un textbox

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:

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

Pièce jointe 579672

vous auriez une astuce?

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

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?

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:

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

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

Citation:

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.
20/09/2020, 19h35
monfiston

Si, je l ai bien mise dans l événement exit
20/09/2020, 19h44
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

Citation:

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.
20/09/2020, 19h46
monfiston

On ne doit pas se comprendre essayer votre procédure dans le fichier joint plus haut
20/09/2020, 20h10
Philippe Tulliez

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.
20/09/2020, 20h33
monfiston

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
20/09/2020, 20h45
Philippe Tulliez

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
20/09/2020, 20h55
monfiston

Faites le test vous meme avec votre fichier, vous comprendrez ce qui cloche
21/09/2020, 07h47
Philippe Tulliez

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 ?
21/09/2020, 07h53
monfiston

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
21/09/2020, 07h54
monfiston

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

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:

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

21/09/2020, 09h36
monfiston

1 pièce(s) jointe(s)

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

Pièce jointe 579733

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

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:

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

21/09/2020, 10h37
monfiston

Je sors du texbox avec la touche entrée
Et je ferme l userform avec la croix de l userform
21/09/2020, 10h39
pijaku

Oui, et?
Mon code ne convient pas?
21/09/2020, 10h52
monfiston

C est une possibilité, mais difficilement compréhensible pour que 40 personnes utilise ce type de manipulation

Voir 40 message(s) de cette discussion en une page