Probleme avec textebox
maalxe
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
j'ai encord un problème...:( tout fonctionne me si j'ajoute la ligne me.tb_scan.text = clear un message d'erreur survien. Ce que j'éssais de fair est de vidé ma textbox une foie le produit scanné pour pouvoir en scanné un nouveau. Merci si vous pouvez m'aidé
Private Sub tb_scan_Change()
For Each c In Range([B2], [B65000].End(xlUp))
If c.Offset = CDbl(Me.tb_scan) Then
Me.lb_code_produit = c.Offset(0, 1).Value
Me.lb_description = c.Offset(0, 2).Value
Me.lb_qty = c.Offset(0, 3).Value
Me.lb_poids = c.Offset(0, 5).Value
Me.tb_scan.Text = Clear
End If
Next c
End Sub
Private Sub tb_scan_Change()
For Each c In Range([B2], [B65000].End(xlUp))
If c.Offset = CDbl(Me.tb_scan) Then
Me.lb_code_produit = c.Offset(0, 1).Value
Me.lb_description = c.Offset(0, 2).Value
Me.lb_qty = c.Offset(0, 3).Value
Me.lb_poids = c.Offset(0, 5).Value
Me.tb_scan.Text = Clear
End If
Next c
End Sub