Scan code barre avec douchette et Userform
Bonjour, je dois creer un classeur permettant de reprouper une centaine de référence en scannant des codes barres.
Afin de faciliter la tache a la personne qui le fera je comptais passer par un userform.
Sachant que la douchette se comporte de cette façon : elle scanne et envoi la valeur.
J'ai donc créer un userform suivant le code ci dessous:
Private Sub CommandButton1_Enter()
'declaration de ligne pour inserer le scan avec incrementation
Dim numero_ligne As Integer
no_ligne = Sheets("RepOFscanner").Range("A65536").End(xlUp).Row + 1
If IsNumeric(TextBox1.Value) And (TextBox1.Value) <> ("A:A") Then 'SI valeur numérique ...
'destination du numero OF dans la colonne A feuille1
Sheets("RepOFscanner").Cells(no_ligne, 1) = TextBox1.Value
'Après insertion, on remet les valeurs initiales
TextBox1.Value = ""
Else 'sinon
MsgBox "Scan incorrect", vbCritical, "Message erreur"
TextBox1.Value = ""
End If
End Sub
ça fonctionne sauf que apres un scan la touche validez est selectionner il faut que je me deplace mauellement dans la case texte pour ressaisir un nouveau code barre.
Est il possible de scanner a la volée en passant par userform.
Merci de votre compréhension je commence tout juste la programmation VBA depuis le weekend dernier
Bonsoir,
La commande pour placer le curseur dans un textbox est : setfocus
Donc : textbox1.setfocus
C'est à placer dans ton code juste avant "End Sub".
Gelinotte
Excellent ça marche un grand merci
Je sais que ça date un peu mais j'ai besoin du code vba utilisé pour comparer avec mes versions...