Retrouver une cellule dans une liste par un scan douchette

APEED · 15 Octobre 2018

Bonjour,

Je vais bientôt faire l'inventaire de la ludothèque associative dans laquelle je suis bénévole.
J'aimerai mettre en place un fichier excel qui me permette de:
-m'envoyer directement à la ligne du jeu scanné et de colorier cette nul ou de marquer dans la colonne "A" "OK"
-remettre à 0 la cellule du scan H5 tout en maintenant la validation des autres lignes précédemment scannées.

Je pense que je dois passer par une macro mais j'avoue que je ne suis pas très douée pour ça.

Lorsque je scanne le code barre d'un jeu, c'est le code du jeu qui apparait dans la cellule "SCAN"

Je vous mets mon document en pièce jointe et vous remercie par avance

Hurricane.Tn · 11 Janvier 2019

bonjour,
dans le même sujet pouvez vous m'aider a trouver une solution pour mon problème.
de même que pour APEED je veux que le mouvement de mon stock se fait automatiquement avec douchette
mes code a barre sont de type référence/lot donc je veux que lorsque je scanne la date du scanne se rempli et une recherche de la référence se fait automatiquement dans le tableau, si elle est trouvée alors le lot sera coller dans la cellule lot et la cellule QUANTITE LIVREE devient 1 bien sur cette case peu incrémenter selon le nombre produits scanner, et de même pour le mouvent du scanne du stock au retour.
je vous serais très reconnaissant , merci

youky(BJ) · 11 Janvier 2019

Bonjour Hurricane,
Voici qui doit répondre à la demande.
Je ne me suis pas occupé de la col J
Reviens si besoin . . .
Bruno

Hurricane.Tn · 11 Janvier 2019

Merci infiniment pour votre réponse, mais si c'est possible j'ai 2 truc a adapter dans votre fichier
vous trouverez la description dans le fichier joint.
merci d'avance.

youky(BJ) · 11 Janvier 2019

Voici,
Bruno

Hurricane.Tn · 11 Janvier 2019

parfait
je vous remercie énormément Bruno.

Hurricane.Tn · 12 Janvier 2019

bonjour, je voudrais savoir comment faire pour que dans le même fichier un message s'affiche "code a barre incorrecte" si le code a barre scanner ne contient pas "/"
merci.

youky(BJ) · 12 Janvier 2019

Salut bien,
Remplacer le code par celui là
Bruno

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Value Like "*/*" = False Then
MsgBox "Code Barre Incorrect", vbExclamation, "ANNULATION"
Application.EnableEvents = False
Target = "": Target.Select
Application.EnableEvents = True
Exit Sub
End If
ref = Split(Target, "/")(0): lot = Split(Target, "/")(1)
If Intersect(Range(Target.Address), Range("K6,N6")) Is Nothing Then Exit Sub
If Target.Address = "$K$6" Then lda = "B10": col = 8
If Target.Address = "$N$6" Then lda = "H10": col = 9
lig = Application.Match(ref, [A:A], 0)
If Not IsNumeric(lig) Then MsgBox "inexistant": Exit Sub
Application.EnableEvents = False
Range(lda) = Date: Beep
Cells(lig, 7) = lot: Cells(lig, col) = Cells(lig, col) + 1: Target = ""
Target.Select
Application.EnableEvents = True
End Sub

Hurricane.Tn · 12 Janvier 2019

Merci beaucoup
mais est ce que c normal que je ne peu pas faire le calcul de la consommation automatiquement avec une simple formule (H14-I14)
le message code a barre incorrect s'affiche.

youky(BJ) · 12 Janvier 2019

Mille excuses, c'est une boulette de plus !
J'ai oublié de décaler une ligne.
Nouveau code . . . .
Bruno

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Intersect(Range(Target.Address), Range("K6,N6")) Is Nothing Then Exit Sub
If Target.Value Like "*/*" = False Then
MsgBox "Code Barre Incorrect", vbExclamation, "ANNULATION"
Application.EnableEvents = False
Target = "": Target.Select
Application.EnableEvents = True
Exit Sub
End If
ref = Split(Target, "/")(0): lot = Split(Target, "/")(1)
If Target.Address = "$K$6" Then lda = "B10": col = 8
If Target.Address = "$N$6" Then lda = "H10": col = 9
lig = Application.Match(ref, [A:A], 0)
If Not IsNumeric(lig) Then MsgBox "inexistant": Exit Sub
Application.EnableEvents = False
Range(lda) = Date: Beep
Cells(lig, 7) = lot: Cells(lig, col) = Cells(lig, col) + 1: Target = ""
Target.Select
Application.EnableEvents = True
End Sub

Hurricane.Tn · 15 Janvier 2019

merci bien vous assurez Bruno.

Hurricane.Tn · 23 Janvier 2019

Bonjour Bruno j'espère que vous allez bien, est ce possible que vous m'aidiez une nouvelle fois.
notre service qualité m'a demander de mentionner le nom du préparateur, vérificateur et livreur dans le fichier en leurs attribuant des codes.
alors j'ai créer des codes barre pour eux en faisant la différence avec "@" dans le code des préparateurs et vérificateurs et "!" dans le code des livreurs.
donc avant de scanner les articles le préparateur doit scanner sont code barre et sont nom va apparaitre dans la cellule "nom du préparateur" ainsi que la date et un message "veuillez scanner le code du préparateur" apparait si la cellule est vide lors du scanne des articles.
ensuite si on scanne un autre code avec "@" la cellule nom du vérificateur se rempli seulement si le nom du préparateur est différent de celui du vérificateur, sinon le message "Le Vérificateur doit être différent du préparateur".
de même si on scanne un code avec le caractère "!" (livreur) le nom du livreur ne se rempli seulement si les cellules préparateur et vérificateur sont remplis.
enfin l'utilisateur ne peux pas faire le scanne d retour seulement si la partie préparation et livraison soit rempli.

Merci d'avance.

youky(BJ) · 23 Janvier 2019

Bonsoir,
Désolé du retard mais bien occupé et bonne crève.
Voici de retour le fichier, je ne peux pas tester mon code, pas de scanette alors . . .
si au lieu du nom est inscrit un code fait la modif
exemple bruno@12345 pour avoir bruno c'est (0) et pour avoir 12345 c'est (1)
Split(Target, "@")(0)
Split(Target, "!")(0)
si pas bon remplacer (0) par (1)
y en a 3 à remplacer
Bruno

youky(BJ) · 24 Janvier 2019

Bonjour je viens de revoir ma copie car je suis aller un peu vite.
Donc revoici le fichier
Bruno

Hurricane.Tn · 24 Janvier 2019

Merci Bruno pour votre réactivité mais actuellement dés que je scanne le code du préparateur il me demande de scanner le code du vérificateur ensuite le livreur en ensuite lorsque je scanne les articles ca ne marche pas.
je vous explique mieux ce que je veux car désolé j'été pas trop claire la dernière fois, donc je veux qu'au début l'utilisateur scanne le code barre du préparateur et si ce n'est pas le cas ( il scanne un code de livreur ou un article un message "veuillez scanner le code du préparateur" apparait ) ensuite
l'utilisateur va scanner les article (Scan a l'envoi) après il scanne le code du vérificateur et celui du livreur, mais en cas d'oublie de ces champs(nom vérificateur et nom livreur) les message de notification des champs vides ne s'affichent que lorsque l'utilisateur va commencer le (scanne au retour).
dites moi si vous aurez besoin de plus d'explication.
Merci d'avance.

youky(BJ) · 24 Janvier 2019

Voici si j'ai bien pigé.
En plus je n'avais pas tout testé, c'est fait et fonctionne comme j'ai compris
Par contre à la fin en retours je ne demande pas le vérificateur ni le livreur car je sais pas quand la commande est finit
et à quel moment le demander . . .
Peut être le fais-tu sur un bouton envoyer
Bruno

Retrouver une cellule dans une liste par un scan douchette

XLDnaute Nouveau

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

Discussions similaires