Saisie via Code barre dans cellule

Bonjour,

J'ai un programme qui marche très bien, mais j'ai un petit soucis.

Lorsque je flash mon code barre dans B5, il passe automatiquement à B6 pour le suivant.

Je voudrais pouvoir rentrer mes codes barres uniquement dans B5.

B5 -> 33

B5 -> 89

B5 -> 12

Cela évite des manipulations avec le clavier.

Etant débutant, je ne sais comment faire.

Merci d'avance pour votre aide.

Dom

Bonjour

A tester

Merci je vais étudier la réponse.

Ca marche dans l'exemple mais pas dans mon code !!!

Je dois bien rajouter la macro à mon code ?

Merci pour votre patience.

Bonjour

Oui bien sur en appliquant la règle d'usage (pas 2 macros identiques) dans le module de feuille

Si tu sais faire pas de problème

sinon (au minimum ) ta macro en place va être indispensable , sinon il faudra ton fichier

Merci de votre aide.

Voici le fichier. Code trouvé sur le site, il fonctionne bien.

Merci encore.

Bonjour

Tu as bien placé le code mais une petite modification à faire car ton autre macro modifies cette cellule

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$5" Then
    'If Target <> "" Then Target.Select   ' Ligne à supprimée
    Target.Select
  End If
End Sub

Merci beaucoup pour l'aide, ça marche très bien, je suis très content.

Merci encore.