saisie avec douchette code barre

[yves03]

Bonjour à tous,
Actuellement je saisie des code barre dans un Combobox et cela fonctionne tres bien.
Par contre est il possible sur un code barre d'enlever les 5 premiers caracteres et les 2 derniers.
Avec un exemple ce sera plus simple:

J'ai le code barre suivant : +E104BS0904-11L
Je ne voudrais garder que ce qui est en bleu.
Par contre j'ai des code barre qui ne commence pas par +E104, donc la il ne faut rien enlever.
Pour resumer chaque fois qu'il a +E104 il faut l'enlever et enlever les 2 derniers, c'est a dire dans ce cas 1L

Est ce possible ?
Merci d'avance de votre aide

 

[SergiO]

Re : saisie avec douchette code barre

Bonjour Yves,

Adapte ce code:

Sub test()
Dim CB As String
CB = "+E104BS0904-11L"
If Mid(CB, 1, 5) = "+E104" Then CB = Mid(CB, 6, 8)
End Sub

@+

 

[yves03]

Re : saisie avec douchette code barre

Merci de ton aide,
Par contre le code barre n'est pas toujours le meme, et le nombre de caracteres peut varier.
Ce qui ne change pas c'est +E104 qui est toujours au debut et 1L qui est toujours a la fin.
Il faudrait enlever systematiquement +E104 et 1L
Merci d'avance

 

[job75]

Re : saisie avec douchette code barre

Bonjour,

Sergio a dit : Adapte ce code...

Si le code barre est dans la cellule A1 il faut écrire :

Sub test()
Dim CB As String
CB = Range("A1").Value
If Mid(CB, 1, 5) = "+E104" Then CB = Mid(CB, 6, Len(CB) - 7)
End Sub

A+

 

[mariobross]

Re : saisie avec douchette code barre

yves , sergio, job ,le forum , bonjour , c'est ok pour le code de job , par contre j'ai une question pour yves : je me suis toujour demandé s'il était possible de faire fonctionner une douchette sous excel.
comment fait tu ?
tu sélectionne une combobox et lorsque tu scanne ,le code se met direct dans la combobox ?
faut -il une douchette spéciale , sur quel port la brancher ?
ce serai sympa de m'éclairer.
merci

 

[mariobross]

Re : saisie avec douchette code barre

yves , pour ta demande j'avai sorti un essai avec des formules de texte.
si cela peut te servir c'est en fichier joint.

 

[yves03]

Re : saisie avec douchette code barre

Merci pour votre aide, j'ai adapter un peu la macro pour mon application.

Sub test()
Dim CB As String
CB = Combobox1.value
If Mid(CB, 1, 5) = "+E104" Then Combobox1.value= Mid(CB, 6, Len(CB) - 7)
End Sub

Merci encore.
🙂

 

[yves03]

Re : saisie avec douchette code barre

yves , sergio, job ,le forum , bonjour , c'est ok pour le code de job , par contre j'ai une question pour yves : je me suis toujour demandé s'il était possible de faire fonctionner une douchette sous excel.
comment fait tu ?
tu sélectionne une combobox et lorsque tu scanne ,le code se met direct dans la combobox ?
faut -il une douchette spéciale , sur quel port la brancher ?
ce serai sympa de m'éclairer.
merci

Salut,
Merci pour les formules, ça peut ma servir.
Il s'agit d'une douchette USB que j'utilise sur des Combobox.
Ca fonctionne parfaitement
En fait la douchette est reconnue comme un clavier, c'est comme si tu tapais au clavier.
A+

 

[mariobross]

Re : saisie avec douchette code barre

merci yves , je ne pensai pas que c'était si simple , je conseille à ceux qui sont interresés par cette application de taper le mot clé "douchette" sur le forum .