Bonsoir,
J'ai fais une sorte de caisse enregistreuse avec un userform. Quand je selection un produit dans ma casse "TEXTBOXSCAN", j'ai ecris un code pour qu'il me trouve comment s'appel le produit et combien il coute.
Je voudrais que a chaque fois que je finis de scaner les produit, je puisse scane un autre. Je pense que je pouve ecrire "me.textboxscan.setfocus" mes ca ne marche pas...
C' est ce que j'ai ecris:
Private Sub TEXTBOXSCAN_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("TICKETCAISSE").Activate
With Sheets("TICKETCAISSE")
If Me.Q13.Value = "" Then
range("G31") = 1
Else
range("G31") = Me.Q13.Value
End If
Me.Q13 = ""
range("F2") = Me.TEXTBOXSCAN.Value
End With
With Me
Me.Label1 = Sheets("ticketcaisse").range("F20").Value
.TextBox1.Value = Sheets("TICKETCAISSE").range("G2").Value
Me.TEXTBOXSCAN = ""
Me.TEXTBOXSCAN.SetFocus
End With
Me.TEXTBOXSCAN.SetFocus
End Sub
Quelqu' un a une idee que puis-je ecrire?
N.B- Je travaille sur Excel2016
Merci beaucoup