Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

eriiic

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
 

Pièces jointes

  • INVENTAIRE.xlsm
    128.9 KB · Affichages: 80

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
 

Pièces jointes

  • INVENTAIRE.xlsm
    306.1 KB · Affichages: 51

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.
 

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…