Sortir d'une textbox malgré un exit cancel = true

rom1z · 27 Novembre 2020

Hello, j'ai une textbox qui me sert de saisie de code barre via une douchette.
afin de faire une saisie de plusieurs codes à la suite j'ai utilisé le sub exit avec un cancel = true
tout fonctionne sauf que je ne peux plus sortir ni cliquer ailleurs sur mon userform après avoir fait mes saisies de codes barres !
avez-vous une idée ?
merci d'avance !

code de la textbox :

VB:

Private Sub TextBoxsaisie_AfterUpdate()
Worksheets("INVENTAIRE").Activate
      
         If TextBoxsaisie <> "" Then
        For ligne = 4 To 500
            If Cells(ligne, 10) Like TextBoxsaisie Then
               
                ListBox2.AddItem Cells(ligne, 1)
               
            End If
        Next
    End If
  
    Me.TextBoxsaisie.Text = ""
   
End Sub

code du sub exit:

Code:

Private Sub TextBoxsaisie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
End Sub

dysorthographie · 27 Novembre 2020

https://www.excel-downloads.com/threads/setfocus-sur-textbox-et-douchette.20051286/#post-20379367

job75 · 27 Novembre 2020

Bonsoir rom1z, dysor,

Utiliser la variable mémorisée (en haut du code) flag :

VB:

Dim flag As Boolean 'mémorise la variable

Private Sub TextBoxsaisie_AfterUpdate()
flag = True 'bloque
Worksheets("INVENTAIRE").Activate
     
         If TextBoxsaisie <> "" Then
        For ligne = 4 To 500
            If Cells(ligne, 10) Like TextBoxsaisie Then
             
                ListBox2.AddItem Cells(ligne, 1)
             
            End If
        Next
    End If

    Me.TextBoxsaisie.Text = ""
flag = False 'débloque
End Sub

Private Sub TextBoxsaisie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = flag
End Sub

A+

rom1z · 27 Novembre 2020

Merci, job75 c'est une bonne piste mais je suis obligé de scanner 2fois pour chaque code barre, au premier scan, le retour chariot me mets le focus sur le bouton d'à coté, au deuxieme scan je récupère le focus dans la textbox et le code tourne

@dysorthographie merci mais le code ne fonctionne pas,

rom1z · 27 Novembre 2020

je n'ai pas encore trouvé la raison pour laquelle un setfocus ne fonctionne pas dans ce cas, cela aurait été plus simple...

rom1z · 27 Novembre 2020

job75, en fait le flag ne change rien, c'est le retour chariot du scan qui clique sur le boutton selectionné automatiquement et qui a pour commande de setfocus sur la textbox.
j'ai testé de mettre un setfocus dans le sub exit mais le comportement est le même.

job75 · 27 Novembre 2020

Sans fichier je n'ai pas vraiment cherché à comprendre votre code.

A la réflexion la macro TextBoxsaisie_AfterUpdate() semble inutile.

Autant mettre tout le code dans la TextBoxsaisie_Exit.

On conservera Cancel = flag

Mais flag sera déclarée Public dans un Module standard.

Et définie True/False par une macro Worksheet_BeforeDoubleClick dans la feuille de calcul.

Ou par un bouton bascule.

rom1z · 30 Novembre 2020

Bonjour, problème résolu avec l'affichage d'un userform dédié à la saisie.
merci

Sortir d'une textbox malgré un exit cancel = true

rom1z

XLDnaute Nouveau

dysorthographie

XLDnaute Accro

job75

XLDnaute Barbatruc

rom1z

XLDnaute Nouveau

rom1z

XLDnaute Nouveau

rom1z

XLDnaute Nouveau

job75

XLDnaute Barbatruc

rom1z

XLDnaute Nouveau

Discussions similaires