Retrouver une cellule dans une liste par un scan douchette

H

Hurricane.Tn

XLDnaute Nouveau

• 25 Janvier 2019

• #31

Bonjour Bruno, en faite le principe c'est que lors du scanne a l'envoi il doit y avoir 2 personnes 1 préparateur et 1 vérificateur (bien sûr différent) et un livreur.
Donc le préparateur il scanne son code (code avec @) ensuite il scanne les articles, et ce stade la pour obliger l'utilisateur a scanner le code du vérificateur et celui du livreur j'ai pas trouver le moyen que lors du scanne au retour, donc avant de scanner les articles au retour les cellules nom du vérificateur et nom du livreur dans la partie préparation et livraison et la cellule nom du livreur et nom du vérificateur composition dans la partie retour et vérification doivent être remplis, après pour vérifier la présence du nom vérificateur consommation j'ai pas trouvé le moyen mais je pense comme vous avez dit un bouton validation c une bonne idée qui peut être créer pour les deux un bouton pour valider l'envoi et qui vérifiera la présence des champs obligatoires et donnera la main pour le scanne au retour et un autre bouton pour valider les autres champs et enregistrer le fichier.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 25 Janvier 2019

• #32

Bonjour,
j'ai fait comme demandé, explication en fichier.
Que fait l'onglet quand c'est finit, on imprime et hop on efface et on recommence (ou autre) c'est là que des boutons pourraient faire l'affaire.
Faire les essais sur ce fichier car si tu transfère la macro sur un fichier qui n'a pas les même données en même place ca va pas
Bruno

 

Pièces jointes

• mouvements stockBIS.xlsm

  33.6 KB · Affichages: 12

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Janvier 2019

• #33

Hello
A ceux que ca intéresse . . .
voici un énième fichier avec macro différente du précédent.
La protection de la feuille et le plus des boutons aide beaucoup.
La cellule en jaune est celle ou l'on peut scanner.
Tout est sous protection sans MP
Bruno

 

Pièces jointes

• mouvements stockBIS2.xlsm

  33.8 KB · Affichages: 22

Vote positif 0 Vote négatif

H

Hurricane.Tn

XLDnaute Nouveau

• 28 Janvier 2019

• #34

une autre fois je vous remercie énormément Bruno .

 

Vote positif 0 Vote négatif

H

Hurricane.Tn

XLDnaute Nouveau

• 29 Janvier 2019

• #35

Bonjour Bruno, j'ai reçu 2 nouveaux produits avec 2 code barre différents et qui ne contiennent pas "/", pour les différencier seulement a travers le nombre de caractère dans le code barre donc je me suis basé sur les anciens codes que vous avez mis et j'ai essayer d'écrire ce code pour résoudre le souci, pouvez vous me dire si il est correct, merci.
j'ai essayer de changer ce code:
If Target.Value Like "*/*" = False Then
MsgBox "Code Barre Incorrect", vbExclamation, "ANNULATION"

par celui la:
If Target.Value Like "*/*" = False Then
lng = Len(Target): gtin = Mid(Target, 3, 14)
ref1 = Application.VLookup(gtin, Sheets(2).Range("'BD Articles'!A:C"), 2, False)
If lng < 29 Then lot1 = Mid(Target, 19, lng) Else lot1 = Mid(Target, 27, lng)
lig = Application.Match(ref1, [A:A], 0)
If Not IsNumeric(lig) Then MsgBox "inexistant": Exit Sub
Application.EnableEvents = False
Range(lda) = Date: Beep
Cells(lig, 7) = lot1: Cells(lig, col) = Cells(lig, col) + 1: Target = ""
Target.Select
Application.EnableEvents = True
Exit Sub
End If

en précisant que pour effectuer la recherche des référence produits j'ai créer une feuille dans le fichier (BD Articles) qui contient les Gtin produit et leurs référence.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Janvier 2019

• #36

Bonjour,
C'est bien, j'ai plus de boulot . . .
Petit plus à apporter
ref1 = Application.VLookup(gtin, Sheets(2).Range("'BD Articles'!A:C"), 2, False)
Sheets(2) est à éviter d'ailleurs il fait doublon avec Range( "BD Articles'!....
(2) est un index, si on déplace l'onglet c'est tout faux . Moi je fais
Application.VLookup(gtin,Feuil1.[A:C], 2,False) 'Feuil1 est le Codename qui ne peut être changé que par VBA
C'est à gauche de BD Articles en fenêtre des projets.
<29 c'est maxi 28 souvent on se fait avoir
Sinon je pense que c'est bon.
Et bravo
Bruno

 

Vote positif 0 Vote négatif

H

Hurricane.Tn

XLDnaute Nouveau

• 29 Janvier 2019

• #37

Merci je vais le tester alors

 

Vote positif 0 Vote négatif

H

Hurricane.Tn

XLDnaute Nouveau

• 29 Janvier 2019

• #38

Bon ca n'a pas marché je vous met le fichier pour jeter un œil s'il vous plait

 

Pièces jointes

• mouvements stock bis.xlsm

  172.6 KB · Affichages: 12

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Janvier 2019

• #39

Pour avancer le code de la douchette indique quoi comme chiffre pour 7543540
Dans la macro j'ai vu que tu avais mis seulement dans le code 'Retour' de toute façon le Mid est à revoir.
Donc que dit le code de la douchette pour trouver 7543540 . . . . .!
Bruno

 

Vote positif 0 Vote négatif

H

Hurricane.Tn

XLDnaute Nouveau

• 29 Janvier 2019

• #40

le code de la douchette dit
010072190285799710H5266878
dont le chiffre 00721902857997 est le gtin que j'utilise dans Application.VLookup pour trouver la réf 7543540

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Janvier 2019

• #41

Je pense ca doit le faire
Voici le fichier
attention je mets pas le lot car je sais pas ou le prendre dans ce cas!
Bruno

 

Pièces jointes

• mouvements stock bis (3).xlsm

  166.8 KB · Affichages: 16

Vote positif 0 Vote négatif

H

Hurricane.Tn

XLDnaute Nouveau

• 30 Janvier 2019

• #42

Bonjour Bruno
j'ai régler le problème de lot mais maintenant pour les codes barre >28 caractères (couleur jaune dans le fichier) il me met "inexistant",
c un peu bizarre.

 

Pièces jointes

• mouvements stock bis.xlsm

  171.2 KB · Affichages: 10

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 30 Janvier 2019

• #43

Hello à tous,

Remplacer
Application.Match(Val(Feuil2.Cells(lg, 2)), Feuil1.[A:A], 0)
par
Application.Match(Feuil2.Cells(lg, 2), Feuil1.[A:A], 0)
A voir si cela fonctionne aussi avec les autres
Bruno

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 30 Janvier 2019

• #44

hé non ca passe pas pour l'autre donc voici la partie de macro
ceci à faire aussi en 'retour
Bruno

VB:

If Target.Value Like "*/*" = False Then
lng = Len(Target): gtin = Target.Text
gtin = Mid(Target.Text, 3, 14)
lg = Application.Match(gtin, Feuil2.[A:A], 0)
If Not IsNumeric(lg) Then MsgBox "Non trouv?": GoTo fin
If IsNumeric(Feuil2.Cells(lg, 2)) Then
lig = Application.Match(Val(Feuil2.Cells(lg, 2)), Feuil1.[A:A], 0)
Else
lig = Application.Match(Feuil2.Cells(lg, 2), Feuil1.[A:A], 0)
End If
If Not IsNumeric(lig) Then MsgBox "inexistant": GoTo fin
If lng < 29 Then lot1 = Mid(Target, 19, lng) Else lot1 = Mid(Target, 27, lng)
Application.EnableEvents = False
Cells(lig, 7) = lot1: Cells(lig, col) = Cells(lig, col) + 1: Target = "": Beep
Target.Select
Application.EnableEvents = True
GoTo fin
End If

 

Vote positif 0 Vote négatif

H

Hurricane.Tn

XLDnaute Nouveau

• 30 Janvier 2019

• #45

Parfait l'ami ca marche nickel, je ne trouve pas les mots pour vous remercier Bruno.

 

Vote positif 0 Vote négatif