Bonjour à tous,
Je suis entrain de créer un petit programme en VBA qui consiste à réaliser une action lorsque l'on scanne un code barre avec un stylo numérique.
1°) J'ai une zone de texte qui se nomme : tbx_InsertValues.
2°) J'ai un stylo numérique, et une série de feuille avec un code barre.
3°) Je voudrais scanner ce code barre, avec ce stylo numérique.
4°) En scannant le code barre, le numéro scanné est mis automatiquement dans la zone de texte du 1°).
Supposons que le numéro scanné est le suivant : ABCDEFGHIJKLMNOPQRSTU.
Lorsque je scanne avec mon stylo, il saisit dans le textbox le numéro ci dessus avec un retour chariot supplémentaire.
Dés que ce retour chariot est détecté, il doit vider la zone de texte.
La question est : Comment détecter ce retour chariot, j'ai l'impression que l'évènement _KeyPress ne comprend pas le retour chariot.
Afin de combler à cela, je compte le nombre de caractère (24 en tout) mais si vous avez la solution pour détecter ce fameux retour chariot, je suis preneur.
Mon programme à l'heure actuelle :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Option Explicit Public Resultat As Integer = 0 Private Sub tbx_InsertValues_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Resultat = Resultat + 1 If Not Resultat < 23 Then tbx_InsertValues.Value = tbx_InsertValues.Value & Chr(KeyAscii) InsertValues ValidInsert Resultat = 0 KeyAscii = 0 End If End Sub
Partager