Garder le focus sur une TextBox dans VBA.

Question

Bonjour, 

Je travaille actuellement sur un projet de gestion de stock à l'aide d'un lecteur code barre. 

Le principe est le suivant: 

Lorsque je désire sortir un ou plusieurs articles du stock, clic droit n'importe où dans la feuille Excel, sortir du stock. À ce moment là, un UserForm apparaît avec le focus sur la TextBox. Muni du lecteur code barre, je scanne le premier article qui est directerment transféré dans une cellule et s'efface de la TextBox. Cependant, lorsque je désire scanner le deuxième article, au lieu de maintenir le focus sur la TextBox, le focus passe sur le bouton ok et me ferme le UserForm. 

Pour maintenir le focus dans la TextBox j'ai essayé la fonction suivante: 

[i]Private Sub Barcode_box_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Program.TreatCodeReaded
If Barcode_box.Value "" Then Cancel True

End Sub/i

Le focus reste alors sur la TextBox, je peux donc scanner plusieurs articles, mais lors de la fin du scann, il est impossible de cliquer sur OK ou Annuler,les deux boutons sont bloqués. 

Pourriez-vous m'aider à garder le focus puis en fin de scann à valider OK ou Annuler? 

Merci de votre aide

ucfoutu · Answer

Boinjour,

Ce seraitr plutôt le code du bouton OK, qu'il faudrait nous montrer !
Et également celui qui s'exécute au scan (celui qui efface la textbox et qui écrit dans la cellule)
Modifier la cause serait plus orthodoxe que faire (toujours possible mais relevant de la bidouille) , un tour de passe-passe utilisant une booléenne 


____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Eywa · Answer

Bonjour, Voilà le détail que vous demandez, cependant, il n'y a rien de très recherché dans le bouton OK: [i]Sub OKFromMaboite() Unload Maboite1 End Sub/i Concernant le code relatif au scanne, le voici: [i]Sub TreatCodeReaded() Dim sCodeReaded As String Dim sGlobalCode As String sCodeReaded Maboite1.Barcode_box.Text sGlobalCode Sheets(sSheetName4CodeBar).Range("GlobalReadedCode").Text If sCodeReaded <> "" Then If sGlobalCode <> "" Then Range("GlobalReadedCode").Clear sGlobalCode = sCodeReaded Else sGlobalCode = sCodeReaded End If Sheets(sSheetName4CodeBar).Range("GlobalReadedCode").FormulaR1C1 = sGlobalCode Maboite1.Barcode_box.Text = "" End If End Sub/i Merci pour l'aide, je débute...

ucfoutu · Answer

Cela ne nous dit rien si tu ne nous montres pas où et comment sont lancées ces deux procédures (OKFromMaboite et TreatCodeReaded) !


____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Eywa · Answer

Je serai prêt à envoyer le fichier, aurais-tu une méthode pour qu'il te soit accèsible?

ucfoutu · Answer

Ce n'est pas du fichier (je n'ouvre d'ailleurs personnellement jamais un xls non écrit par moi) dont nous avons besoin, mais de ce que je t'ai demandé .


____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Eywa · Answer

Je vais essayer d'être plus clair.

Mon répertoire Excel contient trois onglets :

Onglet 1 : Artikel_Standardtabelle (sSheetName4Artikel)
Onglet 2 : Barcode (sSheetName4CodeBar)
Onlget 3 : EAN13 (sSheetName4EAN13)

L'onglet 2 et l'onglet 3 sont inaccessibles à l'utilisateur, il ne peut que travailler dans l'onglet 1 qui contient la description de chaque article en stock (ref, quantités etc.).

Si l'utilisateur désire sortir n pièces de son stock, clic droit n'importe ou dans l'onglet 1, Artikenl(n) herausnehmen (Sortir un ou des articles). À ce moment là le code suivant démarre :

[i]Sub Artikelherausnehmen()

Sheets(sSheetName4CodeBar).Range("A2:A1000").FormulaR1C1 =  ""
Load Maboite1
Maboite1.Show 0

End Sub/i
Le UserForm  Maboite1  s'affiche. Il contient :

-	Un bouton Ok (OKFromMaboite)

[i]Sub OKFromMaboite()
Unload Maboite1
MsgBox "Vous avez scanné un total de & sRowPos  "
End Sub/i
-	Un bouton Annuler (CancelFromMaboite)

[i]Sub CancelFromMaboite()
Unload Maboite1
Sheets(sSheetName4CodeBar).Range("A2:A1000").FormulaR1C1  = ""
End Sub/i
-	Une TextBox (Barcode_box) 

Les pièces à sortir du stock sont prêtes à être scannées. À l'aide du lecteur code barre on scanne. Dès que le code barre est lu, la procédure TreatCodeReaded démarre.

 Le code barre lu est transféré dans la TextBox puis directement dans une cellule excel nommé GlobalReadedCode. Après le scann du premier code barre, la TextBox se vide et est prête à recevoir un nouveau code barre. 

On répète le scann suivant le nombre d'article désiré.

Le Focus est maintenu sur la TextBox grâce au booléen, mais les boutons Ok et Annuler sont inaccesibles. Comment faire pour qu'il redevienne accessible tout en supprimant le bouléen ?

Merci?

ucfoutu · Answer

Désolé, mais tu nous dis là ce que tu constates, non ce qui déclenche et comment ... nous ne pouvons rien faire avec cela ! - Comment (par quel code exact) est déclenchée la procédure TreatCodeReaded ? - l'examen de la procédure concernée (TreatCodeReaded) montre que la variable booléenne (alors que définie en String !) sCodeReaded prend une valeur True ou False, selon le cas pour mémoire : sCodeReaded Maboite1.Barcode_box.Text sGlobalCode Sheets(sSheetName4CodeBar).Range("GlobalReadedCode").Text fait que sCodeReaded ne peut retourner que True ou False or (ligne suivante) : on lit ensuite : If sCodeReaded <> "" Then ' quésako, puisque forcément True ou False ? If sGlobalCode <> "" Then ' (tiens ! et d'où cette variable tiendrait-elle une valeur ? du néant ? comme elle est de type string, elle est donc forcément = "" et on passe donc forcément au as Else !) - nous voilà donc à tous coup dans le else, qui dit : sGlobalCode = sCodeReaded Or sCodeReaded ne peut qu'être True ou False (booléenne) ! comment alors sGlobalCode (une string) pourrait-elle être une booléenne ?>> mystère ! Nous lisons ensuite : Sheets(sSheetName4CodeBar).Range("Globalement").FormulaR1C1 = sGlobalCode Maboite1.Barcode_box.Text = "" qui veut dire ceci : on confère à la plage nommée Globalement une formule qui serait sGlobalCode (une string qui, comme nous l'avons vu plus haut, est égale à ... une booléenne - sCodeReaded - ... faut le faire !) etc... etc... Et nous ne voyons nulle part ton mécanisme, ni de pensée, ni autre ... et encore moins ce qui provoquerait le click sur ton bouton OK ! Conclusion : c'est vraiment du n'importe quoi, là ... Impossible de t'aider valablement dans de telles conditions, même avec la meilleure volonté du monde Désolé, mais je compatyis et ... fuis ... ____________________ Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE ! Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

ucfoutu · Answer

sans compter que cette seule ligne
sCodeReaded Maboite1.Barcode_box.Text sGlobalCode Sheets(sSheetName4CodeBar).Range("GlobalReadedCode").Text 

déclenche forcément (dès l'éditeur) une erreur immédiatement dénoncée !
Je veux alors supposer que tu n'as même pas pris le soin de faire un copier/coller de ton vrai code ...
Ce n'est pas sérieux !
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

ucfoutu · Answer

Il y a probablement un : qui manque ... un :, ce n'est rien ? Ah... !
Reviens avec ton vrai code et les vraies réponses aux vraies questions, s'il te plait ...  


____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

LIBRE_MAX · Answer

Salut,
Gardes ta booléenne.Il faudra juste savoir cpmment l' exploiter.
Au départ elle est à False.

Dans l' événement Barcode_box_GotFocus elle est à False.
Dans l' evenement OKFromMaboite_MouseMove et 
CancelFromMaboite_MouseMove, elle devienne True.
Dans l' évenement Barcode_box_LostFocus, tu testes :
Si elle est false, tu restes sur le Barcode_box, sinon ,
Sub CancelFromMaboite() et Sub OKFromMaboite
s' éxécuteront sans aucun problème puisque avant même que le Barcode_box ne perde le focus, la booléeenne est mise à true suite au survole de l' un ou de l' autre des 2 bouttons.

Mais ça, c' est juste de la théorie.Je ne sais pas ce que cela donnera en pratique.
A toi de tester.


[] Ce qui va sans dire. va mieux en le disant.

ucfoutu · Answer

Bon... On reprend tout et on essaye de voir ce qui se passe (ce qui est fait) : 1) Lorsque je désire sortir un ou plusieurs articles du stock, clic droit n'importe où dans la feuille Excel, sortir du stock. À ce moment là, un UserForm apparaît avec le focus sur la TextBox Si l�utilisateur désire sortir n pièces de son stock, clic droit n�importe ou dans l�onglet 1, Artikenl(n) herausnehmen (Sortir un ou des articles). À ce moment là le code suivant démarre : Sub Artikelherausnehmen() Sheets(sSheetName4CodeBar).Range("A2:A1000").FormulaR1C1 = "" Load Maboite1 Maboite1.Show 0 End Sub ce qu'il nous faut savoir dans un premier temps, c'est très quel code estr exécuté à ce fameux click droit, autrement dit : où est le code qui appelle Artikelherausnehmen lors du clic droit ? 2) Les pièces à sortir du stock sont prêtes à être scannées. À l�aide du lecteur code barre on scanne. Dès que le code barre est lu, la procédure TreatCodeReaded démarre. Le code barre lu est transféré dans la TextBox puis directement dans une cellule excel nommé GlobalReadedCode. Après le scann du premier code barre, la TextBox se vide et est prête à recevoir un nouveau code barre. je suppose qu'intervient alors l'évènement Private Sub Barcode_box_Exit(ByVal Cancel As MSForms.ReturnBoolean) Program.TreatCodeReaded If Barcode_box.Value "" Then Cancel True End Sub qui exécute : Sub TreatCodeReaded() Dim sCodeReaded As String Dim sGlobalCode As String sCodeReaded Maboite1.Barcode_box.Text sGlobalCode Sheets(sSheetName4CodeBar).Range("GlobalReadedCode").Text 'oùil doit mpanque un : entre .Text et sGlobalCode : If sCodeReaded <> "" Then If sGlobalCode <> "" Then Range("GlobalReadedCode").Clear sGlobalCode = sCodeReaded Else sGlobalCode = sCodeReaded End If Sheets(sSheetName4CodeBar).Range("GlobalReadedCode").FormulaR1C1 = sGlobalCode Maboite1.Barcode_box.Text = "" End If End Sub Qui/quoi décide de lancer Barcode_box_Exit ? (on ne le voit pas...) Est-ce ton lecteur qui le fait spontanément ? ou est-ce un évènement généré par l'utilisateur, qui sort de la textbox pour se placer ailleurs (et sur quoi) ? Voilà ! commence par répondre, dans l'ordre, à ces deux questions, s'il te plait, de sorte à ce que nous ayons une meilleure vision du mécanisme présent __________________ Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE ! Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Eywa · Answer

Merci de prendre de ton temps pour essayer de ma dépanner. Je te rapelle que je débute, c'est le premier programme que j'écris, merci d'être compréhensif... 1. Le code exécuté lors du clic droit est le suivant: Sub CreateNewRightClicMenus() Dim z As Integer 'Efface tous les boutons de la souris For z = 1 To CommandBars("Cell").Controls.Count With CommandBars("Cell") .Controls(z).Visible = False End With Next 'Créer un bouton Sortir article(s) With Application.CommandBars("Cell").Controls.Add(msoControlButton) .Caption = "Artikel(n) herausnehmen" .BeginGroup = True .OnAction = "Artikelherausnehmen" End With End sub Après ce clic, tu le cites bien, le partie de code suivante se lance: Sub Artikelherausnehmen() Sheets(sSheetName4CodeBar).Range("A2:A1000").FormulaR1C1 = "" Load Maboite1 Maboite1.Show 0 End Sub 2. Pour répondre à cette question, c'est effectivement un appui sur la gachette du lecteur code barre qui lance Barcode_box_Exit. Private Sub Barcode_box_Exit(ByVal Cancel As MSForms.ReturnBoolean) Program.TreatCodeReaded If Barcode_box.Value "" Then Cancel True End Sub qui exécute : Sub TreatCodeReaded() Dim sCodeReaded As String Dim sGlobalCode As String sCodeReaded = Maboite1.Barcode_box.Text sGlobalCode = Sheets(sSheetName4CodeBar).Range("GlobalReadedCode").Text If sCodeReaded <> "" Then If sGlobalCode <> "" Then Range("GlobalReadedCode").Clear sGlobalCode = sCodeReaded Else sGlobalCode = sCodeReaded End If Sheets(sSheetName4CodeBar).Range("GlobalReadedCode").FormulaR1C1 = sGlobalCode Maboite1.Barcode_box.Text = "" End If End Sub Merci...

ucfoutu · Answer

c'est effectivement un appui sur la gachette du lecteur code barre qui lance Barcode_box_Exit Que voilà ,une mauvaise nouvelle ! Tu es donc intégralement dépendant de ce que décide ton lecteur ! Bon ! on va alors essayer de bidouiller : Sub TreatCodeReaded() Dim sCodeReaded As String Dim sGlobalCode As String sCodeReaded = Maboite1.Barcode_box.Text sGlobalCode = Sheets(sSheetName4CodeBar).Range("GlobalReadedCode").Text If sCodeReaded <> "" Then If sGlobalCode <> "" Then Range("GlobalReadedCode").Clear sGlobalCode = sCodeReaded Else sGlobalCode = sCodeReaded End If Sheets(sSheetName4CodeBar).Range("GlobalReadedCode").FormulaR1C1 = sGlobalCode repo = MsgBox("veux-tu continuer à scannber ?", vbYesNo) If repo vbYes Then Maboite1.Barcode_box.Text "" End If End Sub Mais cela va t(obliger à cliquer ouyi ou non sur ta msgbox entre chaque article, bien sur ____________________ Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE ! Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Eywa · Answer

Mais cela va t'obliger à cliquer oui ou non sur ta msgbox entre chaque article

C'est justement ce que je ne veux pas. Une fois que la procédure de scann est lancée, l'utilisateur se ballade dans le stock et scanne tous les articles qu'il veut sortir. De plus, intégrer une Vbyesno n'arrange rien au bouton OK et Annuler du UserForm qui sont encore bloqués. Finalement intégrer la MsgBox me fait carrément perdre le focus après avoir cliquer sur Yes, contrairement à avant où le focus restait dans la TextBox tout en bloquant les deux boutons.

Comment faire?

Eywa · Answer

Un appui sur la gachette du lecteur code barre est similaire à une pression sur la touche entrer du clavier.

ucfoutu · Answer

Dur dur ...
Dids-moi : arrives-tu présentement (essaye) à écrire dans la textbox manuellement ? Si oui : on a une chance...


____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Eywa · Answer

Oui j'y arrive, je peux soit utiliser le lecteur code barre, soit entrer un nombre manuellement et taper entrer pour qu'il soit transféré dans la cellule excel et effacé de la TextBox.

ucfoutu · Answer

Alors quand tu veux quitter et avoir accès à ton boyutonb OK :
Frappes simplement un " " (un espace)
et modifie ainsi :

Private Sub Barcode_box_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  if Barcode_box.value <> " " then Program.TreatCodeReaded
  If Barcode_box.Value "" Then Cancel True
End Sub 

C'est du rafistolage, mais je pense que cela fonctionnera ...
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

ucfoutu · Answer

Ou encore mieux : à essayer si répond à l'évènement KeyPress (on ne sait pas vraiment ce qu'est en effet ta "textbox") :

Private Sub Barcode_box_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  if Barcode_box.value <> " " then Program.TreatCodeReaded
  If Barcode_box.Value "" Then Cancel True
End Sub

Private Sub Barcode_box_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii 27 Then Barcode_box " " : OKFromMaboite.SetFocus
End Sub
Et il devrait alors te suffire de frapper la touche escape dans ta textbox pour atteindre ton bouton OK. Essaye ! on ne sait jamais ...

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Eywa · Answer

Rien ne se passe, toujours le même résultat.

Garder le focus sur une TextBox dans VBA.

24 réponses

Votre réponse

Discussions similaires