1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Retrouver une cellule dans une liste par un scan douchette

Discussion dans 'Forum Excel' démarrée par APEED, 15 Octobre 2018.

  1. APEED

    APEED XLDnaute Nouveau

    Inscrit depuis le :
    10 Septembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    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:

  2. Chargement...


  3. eriiiic

    eriiiic XLDnaute Barbatruc

    Inscrit depuis le :
    12 Juillet 2008
    Messages :
    2408
    "J'aime" reçus :
    163
    Utilise:
    Excel 2010 (PC)
    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:

  4. youky(BJ)

    youky(BJ) XLDnaute Barbatruc

    Inscrit depuis le :
    4 Février 2009
    Messages :
    2559
    "J'aime" reçus :
    126
    Sexe :
    Masculin
    Habite à:
    69 CALUIRE
    Utilise:
    Excel 2016 (PC)
    Bonjour à tous,
    Une autre proposition
    Bruno
     

    Pièces jointes:

  5. APEED

    APEED XLDnaute Nouveau

    Inscrit depuis le :
    10 Septembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    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:

  6. APEED

    APEED XLDnaute Nouveau

    Inscrit depuis le :
    10 Septembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    Merci beaucoup. Le fichier fonctionne parfaitement.
    Y a t il un moyen de mettre en vert le jeu validé?
     
  7. youky(BJ)

    youky(BJ) XLDnaute Barbatruc

    Inscrit depuis le :
    4 Février 2009
    Messages :
    2559
    "J'aime" reçus :
    126
    Sexe :
    Masculin
    Habite à:
    69 CALUIRE
    Utilise:
    Excel 2016 (PC)
    Fait par MFC jusqu'à la ligne 2000
    Il suffit de sélectionner la col A et Supp pour effacer et enlever les couleurs.
    Bruno
     

    Pièces jointes:

  8. APEED

    APEED XLDnaute Nouveau

    Inscrit depuis le :
    10 Septembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    Merci beaucoup. Je vais gagner énormément de temps. Très bonne journée
     
  9. eriiiic

    eriiiic XLDnaute Barbatruc

    Inscrit depuis le :
    12 Juillet 2008
    Messages :
    2408
    "J'aime" reçus :
    163
    Utilise:
    Excel 2010 (PC)
    ajouter en 1ère ligne :
    Code (Visual Basic):
    Dim c As Range
    Bizarre que VBE ne me l'ai pas signalé vu que j'ai 'Déclaration des variables obligatoire'...
    eric
     
  10. APEED

    APEED XLDnaute Nouveau

    Inscrit depuis le :
    10 Septembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    Merci beaucoup. Ça fonctionne parfaitement
     
  11. APEED

    APEED XLDnaute Nouveau

    Inscrit depuis le :
    10 Septembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    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
     
  12. eriiiic

    eriiiic XLDnaute Barbatruc

    Inscrit depuis le :
    12 Juillet 2008
    Messages :
    2408
    "J'aime" reçus :
    163
    Utilise:
    Excel 2010 (PC)
    C'est ce que fait ma proposition, ça me paraissait plus logique que ce que tu demandais.
    eric
     
  13. APEED

    APEED XLDnaute Nouveau

    Inscrit depuis le :
    10 Septembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    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.
     
  14. youky(BJ)

    youky(BJ) XLDnaute Barbatruc

    Inscrit depuis le :
    4 Février 2009
    Messages :
    2559
    "J'aime" reçus :
    126
    Sexe :
    Masculin
    Habite à:
    69 CALUIRE
    Utilise:
    Excel 2016 (PC)
    Hello
    j'allais en [A1].select
    remplacer par
    [H4].Select

    Bruno
     
  15. eriiiic

    eriiiic XLDnaute Barbatruc

    Inscrit depuis le :
    12 Juillet 2008
    Messages :
    2408
    "J'aime" reçus :
    163
    Utilise:
    Excel 2010 (PC)
    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 :
    Code (Visual Basic):
    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
     
  16. APEED

    APEED XLDnaute Nouveau

    Inscrit depuis le :
    10 Septembre 2018
    Messages :
    20
    "J'aime" reçus :
    0
    Merci pour tout. J'ai tout ce qu'il me faut. C'est absolument parfait.
    Un grand bravo à vous
     
  17. Hurricane.Tn

    Hurricane.Tn XLDnaute Nouveau

    Inscrit depuis le :
    20 Décembre 2018
    Messages :
    8
    "J'aime" reçus :
    0
    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
     

    Pièces jointes:

  18. youky(BJ)

    youky(BJ) XLDnaute Barbatruc

    Inscrit depuis le :
    4 Février 2009
    Messages :
    2559
    "J'aime" reçus :
    126
    Sexe :
    Masculin
    Habite à:
    69 CALUIRE
    Utilise:
    Excel 2016 (PC)
    Bonjour Hurricane,
    Voici qui doit répondre à la demande.
    Je ne me suis pas occupé de la col J
    Reviens si besoin . . .
    Bruno
     

    Pièces jointes:

  19. Hurricane.Tn

    Hurricane.Tn XLDnaute Nouveau

    Inscrit depuis le :
    20 Décembre 2018
    Messages :
    8
    "J'aime" reçus :
    0
    Merci infiniment pour votre réponse, mais si c'est possible j'ai 2 truc a adapter dans votre fichier
    vous trouverez la description dans le fichier joint.
    merci d'avance.
     

    Pièces jointes:

  20. youky(BJ)

    youky(BJ) XLDnaute Barbatruc

    Inscrit depuis le :
    4 Février 2009
    Messages :
    2559
    "J'aime" reçus :
    126
    Sexe :
    Masculin
    Habite à:
    69 CALUIRE
    Utilise:
    Excel 2016 (PC)
    Voici,
    Bruno
     

    Pièces jointes:

  21. Hurricane.Tn

    Hurricane.Tn XLDnaute Nouveau

    Inscrit depuis le :
    20 Décembre 2018
    Messages :
    8
    "J'aime" reçus :
    0
    parfait :)
    je vous remercie énormément Bruno.
     

Partager cette page