Retrouver une cellule dans une liste par un scan douchette

APEED

XLDnaute Nouveau
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
 

Fichiers joints

eriiiic

XLDnaute Barbatruc
Bonjour,

si le scan est trouvé, "ok" est mis en D. La couleur est mise par MFC, et le scan effacé.
S'il n'est pas trouvé le scan n'est pas effacé.
eric
 

Fichiers joints

APEED

XLDnaute Nouveau
Bonjour,

si le scan est trouvé, "ok" est mis en D. La couleur est mise par MFC, et le scan effacé.
S'il n'est pas trouvé le scan n'est pas effacé.
eric
Merci beaucoup pour votre réponse. J'ai un message d'erreur avec la macro et je ne peux pas l'essayer. J'ai mis le message sur la feuille excel
 

Fichiers joints

APEED

XLDnaute Nouveau
Bonsoir,

Tout fonctionne parfaitement. Je viens de l'essayer sur plusieurs jeux. A-t-on la possibilité que le curseur reste dans la case H4 pour le scan ou qu'il y revienne après consultation du jeu ou d'avoir un message pour retour à la case?

Avec mes 1000 jeux quand je suis tout en bas de la liste, il faut que je retourne manuellement à la case pour faire le scan.

Merci
 

APEED

XLDnaute Nouveau
Je voudrai pouvoir aller au jeu validé pour vérifier que le code correspond au nom du jeu. Comme dans la proposition Youki mais que le curseur reste dans la case h4 pour éviter de jouer entre chaque jeu avec l’ascenseur.
 

eriiiic

XLDnaute Barbatruc
On peut aussi inscrire à coté du scan pour éviter d'avoir la feuille qui se balade et avoir le résultat toujours au même endroit :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [scan].Address Then
        Set c = Columns(2).Find(Target.Value, , xlValues, xlWhole)
        Application.EnableEvents = False
        If Not c Is Nothing Then
            c.Interior.ColorIndex = 35
            [J4].Offset(, 1) = Target.Value
            [J5].Offset(, 1).Offset(1) = c.Offset(, 1).Value
            c.Offset(, 2) = "ok"
        Else
            [J4:J5] = ""
        End If
        Application.EnableEvents = True
        [scan].Select
    End If
End Sub
eric
 

Hurricane.Tn

XLDnaute Nouveau
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
 

Fichiers joints

Discussions similaires


Haut Bas