Autres bug sur une procédure avec textbox contenant un code barre

[Chatron]

Bonjour les amis
je reviens vers vous à cause de mon incapacité résoudre mon problème
Avant toute chose je précise que mon application pour gérer une petite bibliothèque associative fonctionne avec un ordinateur ancien
Windows Xp et Office 97 2000
C'est grâce à l'aide intensive de ce forum que mon application fonctionne, mais, à retardement, je me suis aperçu d'un problème sur la dernière procédure
J'ai une procédure TbX_Douchette qui cherche le code qui s'inscrit (avec la douchette) dans la textbox et qui remplit les CbBox avec les données des autres colonnes sur la même ligne
S'il n'y a pas de codes correspondants dans la colonne Code on peut continuer en recherchant la suite avec les combobox
Dernièrement avec l'aide de TooFatBoy et de Bruno M45 j'ai mis une commandBox pour enregistrer le code manquant directement après avoir sélectionné l'auteur, le titre et le rangement
Cette dernière procédure que j'avais essayé en en remplissant la textbox par un copier collé (je n'avais pas de lecteur de code barre sous la main) fonctionnait normalement ce n'est pas le cas avec le lecteur de code barre
Si je supprime cette dernière procédure (commandBox : CmbCode) La procédure TbX_Douchette fonctionne normalement, même s'il n'y a pas de codes correspondant dans la colonne
Par contre si la procédure commanBox n'est pas désactivée, quand je saisis le code dans la textBox avec la douchette ça bugue dans la commandBox
Code dans textBox Tbx_Douchette

Private Sub TbX_Douchette_Change() 'action douchette
Dim Code As Range
    Me.CbB2 = ""
    Me.CBb3 = ""
    Me.CbB4 = ""
 
    If TbX_Douchette <> "" Then
        Workbooks("GdP_GdA.xls").Sheets("GdA").Activate
        Set Code = Columns("E").Find(TbX_Douchette.Value, , xlValues, xlWhole)
        If Not Code Is Nothing Then
             Me.CbB2 = Code.Offset(0, 1)
             Me.CBb3 = Code.Offset(0, 2)
             Me.CbB4 = Code.Offset(0, 3)
              
        End If
       'TbX_Douchette.SetFocus
    
    End If
End Sub

Code dans CmBCode

Private Sub CmbCode_Click()
'
Dim lig As Long

    With Workbooks("GdP_GdA.xls").Sheets("GdA")
        lig = .Range("G9:G" & .Cells(.Rows.Count, 7).End(xlUp).Row).Find(CBb3.Value, LookIn:=xlValues).Row
        .Cells(lig, 5).Value = TbX_Douchette.Value
    End With

End Sub

Bloque sur

 lig = .Range("G9:G" & .Cells(.Rows.Count, 7).End(xlUp).Row).Find(CBb3.Value, LookIn:=xlValues).Row

Pourquoi la saisie douchette dans la textBox agit dans le CommandBouton ?
J'ai passé un temps fou à essayer des "if" , des "Else", "goto fin", "Exit Sub"

Merci pour votre aide

​

 

[TooFatBoy]

Je ne comprends pas qu'on ne puisse pas sortir de la procédure si le code n'est pas trouvé du genre

• "si le code est trouvé dans la colonne on remplis les CbB2, CBb3, CbB4"
• "Si le code n'est pas trouvé on arrête la procédure"

Je pense que rien ne t'empêche de le faire.

Exemple : If cellule-du-code="" then exit sub