[Résolu] [Calc]Ajout au stock via scan d'un code

[LPA406]

Bonjour.

J'ai trouvé sur votre forum il y a quelques mois un excellent fichier pour la gestion du stock, j'utilise celui-ci pour mon école, j'ai un peu travaillé dessus mais j'ai un petit soucis de macro, je ne suis pas très fort dans ce domaine et j'ai besoin d'un petit coup de pouce.
Actuellement dans l'onglet "lecture de code-barre" si je scanne un code d'article dans la cellule A1, celui-ci est soustrait du stock.
Dans l'onglet "Ajout stock" je souhaiterai procéder à la l'opération contraire, en scannant le code de l'article celui-ci s'additionnerai à la quantité déjà en stock, actuellement pour entrer quelque chose dans le stock, je dois rechercher la ligne de l'article et ajouter manuellement un à un ce qui est assez long.
J'ai essayé de transformé la macro mais je me suis retrouvé avec des codes d'erreurs.
Quelqu'un peut-il m'aider à compléter cette macro et à résoudre ce problème.

Merci infiniment par avance.

À bientôt

[Michel JANZEF]

Bonjour,
Dans la macro, modifiez la ligne

Code : Tout sélectionner

cell.value = cell.value-1

en

Code : Tout sélectionner

cell.value = cell.value+1

[LPA406]

Bonjour Michel JANZEF, merci pour votre réponse rapide.

J'ai fait ce e que vous me dites, mais ça agit aussi sur l'onglet "lecture code-barre" au lieu de soustraire au stock à cet endroit il additionne, ce que je souhaite c'est que la macro de l'onglet "Ajout stock" soit indépendante de celle de "lecture code-barre" donc en résumé, soustraire lorsque je scanne dans l'onglet "lecture code-barre" et additionner lorsque je scanne dans l'onglet "Ajout stock" sans que j'ai à transformer sans arrêt la macro.

Merci d'ors et déjà pour les réponses

[TheHache]

Salut,

Renomme ta feuille Lecture code-barre en Lecture_code_barre afin de gérer plus facilement evt.absoluteName

Copie ceci dans ta macro entre 'On Error GoTo 0' et 'exit sub' puis affecte ta macro à l’événement feuille modifiée pour Ajout_stock :

Code : Tout sélectionner

	
Lecture_ou_Ajout = Left(evt.absoluteName, 6)
Select Case Lecture_ou_Ajout
	Case "$Lectu"
		cell.value = cell.value - 1
	Case "$Ajout"
		cell.value = cell.value + 1
End Select

En fonction des 6 premiers caractères du nom de la feuille, Calc fera du plus ou du moins.
Tu pourrais gérer ta lecture code barre et ton ajout stock dans la même feuille, cela t'éviterais de changer de feuille.
A bientôt

[LPA406]

Salut THEHACHE. Merci pour ta solution, je suis persuadé que c'est ce que je cherche.

Peux-tu me le faire sur mon fichier parce là je n'y arrive pas, je ne dois pas tout comprendre et je rame. ça m'aiderai beaucoup.

Merci infiniment pour ta patience et ton travail

[Michel JANZEF]

Bonjour,
J'avais lu un peu rapidement la question.

Je vous retourne le fichier fonctionnel avec la macro modifiée suivant les instructions de TheHache

[TheHache]

Salut Michel,

Je vous retourne le fichier fonctionnel

[LPA406]

Merci infiniment à tous les deux.

ça fonctionne et c'est ce que je souhaitais.

À bientôt