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

[rom1z]

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 :

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:

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

 

[dysorthographie]

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

 

[job75]

Bonsoir rom1z, dysor,

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

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]

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]

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

 

[rom1z]

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]

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]

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