Excel VBA - Code Barres

Fermé
Adrien789 - 24 sept. 2012 à 17:21
 Adrien789 - 26 sept. 2012 à 10:25
Bonjour,



J'ai écrit une petite marco VBA pour faciliter de la saisie de données. L'utilisateur peut notamment scanner des étiquettes contenenant des chaînes de caractères :

Do While Poste = "" 'Boucle pour obliger la saisie d'une opération valide
Poste = InputBox("Scanner le code barre de l'opération terminée", "Saisie Donnée") 'Enregistrement Opération réalisée
Set Cel2 = Range("I12:AI12").Find(Poste, LookAt:=xlWhole) 'Recherche des informations sur la cellule contenant le numéro d'OF
If Cel2 Is Nothing Then
MsgBox ("Poste Inexistant")
Poste = "" 'Remise à zéro du paramètre
Else
Lig2 = Cel2.Row
Col2 = Cel2.Column
End If
Loop

Je souhaiterais éviter à l'utilisateur de devoir cliquer sur le bouton ok une fois qu'il a scanné son étiquette. Est-ce possible ? Magré plusiuers recherche je ne trouve pas la solution.

Mercoi pour votre aide,
Adrien

2 réponses

f894009 Messages postés 16750 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 3 décembre 2022 1 660
24 sept. 2012 à 19:20
Bonjour,
Normalement en ajoutant le caractere CR en fin de lecture de votre douchette cela devrait marcher. Voir le parametrage de la douchette.
0
Merci pour cette réponse.

Je vais essyer de suite si cela fonctionne pour moi
0