Bonjour à tous,
J'ai actuellement un fichier conséquent de plus de 2000 lignes d'articles. Nous utilisons un scanner de codebarre / douchette. Sa fonction est très simple, elle remplace la saisi manuelle au clavier.
Du coup, lors d'un scan la valeur récupéré va s’inscrire dans la cellule active.
J'ai utilisé des mises en forme conditionnelle pour remplir la ligne en bleu des que, au moins une cellule de la ligne correspond avec le résultat du scan qui se trouve en R1 (pour les tests).
Ensuite nous devons remplir la cellule de la colonne z qui à été trouvé.
Au choix un prix, elle passe verte. La lettre U elle passe orange et la lettre C elle passe rouge.
J'ai un raccourci Ctrl + S pour me repositionner dans la cellule qui reçoit le scan.
J'aurais souhaité pouvoir positionné la cellule active directement dans la colonne z de la ligne bleu.
Je ne sais pas trop comment m'y prendre en vba.
En fait le range devrait être celui de ma ligne qui passe bleu ou la condition initiale c'est qu'au moins une cellule de cette ligne correspond avec R1 de manier a me positionner directement dans la cellule pour faire ma saisi.
J'espere que j'ai été assez clair. Je joins un fichier.
Merci
J'ai actuellement un fichier conséquent de plus de 2000 lignes d'articles. Nous utilisons un scanner de codebarre / douchette. Sa fonction est très simple, elle remplace la saisi manuelle au clavier.
Du coup, lors d'un scan la valeur récupéré va s’inscrire dans la cellule active.
J'ai utilisé des mises en forme conditionnelle pour remplir la ligne en bleu des que, au moins une cellule de la ligne correspond avec le résultat du scan qui se trouve en R1 (pour les tests).
Ensuite nous devons remplir la cellule de la colonne z qui à été trouvé.
Au choix un prix, elle passe verte. La lettre U elle passe orange et la lettre C elle passe rouge.
J'ai un raccourci Ctrl + S pour me repositionner dans la cellule qui reçoit le scan.
J'aurais souhaité pouvoir positionné la cellule active directement dans la colonne z de la ligne bleu.
Je ne sais pas trop comment m'y prendre en vba.
Code:
Sub MoveActive()
Worksheets("Liste").Activate
Range("$B2:$P2").Select
ActiveCell.Value = ""
ActiveCell.Offset(0, 10).Activate
End SubEn fait le range devrait être celui de ma ligne qui passe bleu ou la condition initiale c'est qu'au moins une cellule de cette ligne correspond avec R1 de manier a me positionner directement dans la cellule pour faire ma saisi.
J'espere que j'ai été assez clair. Je joins un fichier.
Merci
