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
 

Pièces jointes

  • INVENTAIRE.xlsx
    118 KB · Affichages: 72

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
 

eriiic

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
 

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 023
Membres
101 873
dernier inscrit
excellllll