Retrouver une cellule dans une liste par un scan douchette

[APEED]

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

 

[eriiic]

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

 

[youky(BJ)]

Bonjour à tous,
Une autre proposition
Bruno

 

[APEED]

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

 

[APEED]

Bonjour à tous,
Une autre proposition
Bruno

Merci beaucoup. Le fichier fonctionne parfaitement.
Y a t il un moyen de mettre en vert le jeu validé?

 

[youky(BJ)]

Fait par MFC jusqu'à la ligne 2000
Il suffit de sélectionner la col A et Supp pour effacer et enlever les couleurs.
Bruno

 

[APEED]

Fait par MFC jusqu'à la ligne 2000
Il suffit de sélectionner la col A et Supp pour effacer et enlever les couleurs.
Bruno

Merci beaucoup. Je vais gagner énormément de temps. Très bonne journée

 

[eriiic]

J'ai un message d'erreur...

ajouter en 1ère ligne :

Dim c As Range

Bizarre que VBE ne me l'ai pas signalé vu que j'ai 'Déclaration des variables obligatoire'...
eric

 

[APEED]

ajouter en 1ère ligne :

Dim c As Range

Bizarre que VBE ne me l'ai pas signalé vu que j'ai 'Déclaration des variables obligatoire'...
eric

Merci beaucoup. Ça fonctionne parfaitement

 

[APEED]

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

 

[eriiic]

C'est ce que fait ma proposition, ça me paraissait plus logique que ce que tu demandais.
eric

 

[APEED]

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.

 

[youky(BJ)]

Hello
j'allais en [A1].select
remplacer par
[H4].Select

Bruno

 

[eriiic]

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 :

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

 

[APEED]

Merci pour tout. J'ai tout ce qu'il me faut. C'est absolument parfait.
Un grand bravo à vous