Discussion :

[androtechnoide]

Bonjour à tous,

J'aurai besoin de votre aide concernant un fichier avec un code VBA récupéré sur le net et un peu modifié par mes soins (le codage m'est inconnu mais je "bidouille" un peu les codes déjà fait)

Il s'agit d'un fichier de gestion de stock c-a-d, que je travaille dans un labo avec système qualité qui impose une gestion des consommables.

1° donc il me faudrait votre aide pour savoir vers quoi me diriger pour récupérer la valeur du stock de mon onglet "journal des stocks" dans ma grille récapitulative "consommables" (VBA ou formule).

2° facultatif celui là, dans le code vba du fichier, il y a toute une implémentation concernant les coût unitaire et totaux des éléments du stocks qui me sont totalement inutile... comment je fait pour les supprimer tous sans affecté le fonctionnement du fichier?

J'espère avoir été assez clair...ci joint le fichier
Je vous remercie d'avance pour toute l'aide que vous pourrez me fournir
Bonne journée

Ced

[excfl]

Bonjour le forum,

Une simple remarque : feuille journal des stocks :

pour automatiser les calculs dans la colonne G:

G2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMMEPROD((($D$2:D2=D2)*($B$2:B2="Entrée")*$F$2:F2))-SOMMEPROD((($D$2:D2=D2)*($B$2:B2="Sortie")*$F$2:F2))

[Zekraoui_Jakani]

Voici réponse à la 1ère question:

[excfl]

Feuille journal des stocks : insertion d'une ligne :





Feuille consommable : D4 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(NB.SI('Journal des stocks'!D:D;B4)=0;"";INDEX('Journal des stocks'!$G$1:$G$1000;MAX(('Journal des stocks'!$D$1:$D$1000=B4)*('Journal des stocks'!$F$1:$F$1000>0)*LIGNE($A$1:$A$1000))))

Formule matricielle à valider avec CTRL MAJ ENTREE

[androtechnoide]

Merci à vous pour ces réponses, elles m'aide grandement... et ça fonctionne comme je veux je pense...je vérifierai plus tard

Pas toujours évident pour moi ces programmes