Bonjour le Forum,

Ouf…, primaire dans le savoir… élémentaire dans l'exécution… je ne fume pas le Vba hélas et je ne bois pas non plus ! Je ne sais pas coder et j'en appelle à vous, les doués du code et contributeurs de PCA. J'ose croire que vous pourrez m'aider à me sortir de ce problème…

Il s'agit de coder le module "cmdValider". Vous avez déjà compris c'est formidable ! Je pressens que vous allez utiliser la fonction CLng (tb1.Value) et tb2 etc.., mais a cet endroit, je suis asphyxié et inerte….! Bien entendu, je sais que l'inconnu est votre hantise aussi je vous apporte un certain confort. Dans ma PJ, vous y trouverez le formulaire d'entrée des données (UsF), les états de sortie (Onglets), la définition des données et formules de calcul (Commentaires). Je suis à votre disposition pour préciser si vous décelez un oubli. Je n'ai aucun délai à respecter.

Pour une conception ouverte, sachez que le présent projet se développera en deux temps ;

-- 1ère phase – Construire un système d'inventaire permanent statique mais conforme aux dispositions comptables et fiscales en vigueur.

- 2nd phase – Étendre l'application à son aspect dynamique pour intégrer des fonctionnalités relevant d'une gestion de stock notamment les indicateurs et clignotants (stock mini, stock de sécurité, stock alerte, stock dormant, stock maxi etc.…).

ICI

Merci à vous tous les contributeurs

A + .

Salut

en vrac pendant les pubs : http://cjoint.com/?giadoRX3sn

j'ai pas tout compris kesky fallait faire... faudrait détailler un poil plus pour mon pauvre encéphale éthanolisé...

Bonjour Bérylion,

Effectivement c'est court d'en fumer une (Vba) entre deux pubs d'autant que tu me fais remarquer que j'ai oublié de faire une présentation générale du système à son stade opérationnel. Excuses moi pour cette lacune ! Je complète ci-après :

D'une part la feuille "Stk" d'autre par la feuille "Mvt" . Sur la feuille "Stk", un bouton d'appel d'un Useform qui permet de saisir les mouvements de stock (Entrée & Sortie) dans le système. Les mouvements en question sont listés dans l'ordre de leur saisie sur les lignes de la feuille "Mvt". Ces mêmes mouvements mettent à jour la position de stock implantée dans la feuille "Stk". Mouvement et Stock ont deux valeurs "Quantité" et "Coût unitaire". La feuille "Stk" constitue la base de données des codes articles qui sont les produits pour revente en l'état sans transformation objet du négoce. A chaque code d'identité est associé une "Désign,ation" et un code de "Classement". Ces deux dernières données sont renvoyées par le système, pour chaque saisie de mouvement, dans la feuille "Mvt".

Avant d'enregistrer le premier mouvement, la feuille "Stk", zone nomenclature, doit être mise à jour pour chaque code d'identité qui représente une unité consommateur. L'utilisateur saisit au clavier le code "Identité", la" Désignation", et le code de "Classement". Le "Prix unitaire moyen pondéré", calculé par le système après chaque entrée, est pris en compte par le dit système pour valoriser chaque mouvement de sortie. Pour la clarté des calculs relatifs au "Cump" voir les exemples chiffrés dans la Démo.

Merci de prendre en compte cet explicatif.

Merci encore de t'intéresser à mon affaire. Bon dimanche.

A +

Bonjour Bérylion,

Je suppose que, pour faire avancer l'encodage de l'USF, tu attends de savoir, outre l'explicatif sur le système, ce que j'ai observé lors de mes essais.

au niveau de la feuile "Stk" :

-La colonne D n'est pas modifiée par le mouvement et reste vide.

au niveau de la feuille "Mvt" :

- La ligne de données, relative au premier mouvement transcrit sur la feuille, est envoyée à la ligne 18 au lieu de la ligne 2

- Les formules nommées, dans les colonnes I et L, sont écrasées par l'affichage de chaque ligne nouvelle.

- Le module "cmdValider" n'est pas codé pour renvoyer les données "Désignation" et "Classement". Ces deux dernières, associées à "Identité", sont saisies au clavier à partir de la feuille "Stk".

- Les instructions de programme visant le calcul du "Cump" ne sont pas écrites d'où absence de résultat.

Disposes-tu de temps pour mettre au point le premier essai ? Dan l'affirmatif, j'attends de te lire et en serais heureux. Dans tous les cas merci.

A +

Paulus a écrit :

Bonjour Bérylion,

Je suppose que, pour faire avancer l'encodage de l'USF, tu attends de savoir, outre l'explicatif sur le système, ce que j'ai observé lors de mes essais.

au niveau de la feuile "Stk" :

-La colonne D n'est pas modifiée par le mouvement et reste vide.

au niveau de la feuille "Mvt" :

- La ligne de données, relative au premier mouvement transcrit sur la feuille, est envoyée à la ligne 18 au lieu de la ligne 2

- Les formules nommées, dans les colonnes I et L, sont écrasées par l'affichage de chaque ligne nouvelle.

- Le module "cmdValider" n'est pas codé pour renvoyer les données "Désignation" et "Classement". Ces deux dernières, associées à "Identité", sont saisies au clavier à partir de la feuille "Stk".

- Les instructions de programme visant le calcul du "Cump" ne sont pas écrites d'où absence de résultat.

Disposes-tu de temps pour mettre au point le premier essai ? Dan l'affirmatif, j'attends de te lire et en serais heureux. Dans tous les cas merci.

A +

Salut

j'ai pas bcp de tps mais ça me changera les idées...

bon, je regarde pour améliorer ma 1ere version suivant tes remarques
(si je trouve 1h dans l'AM !!)

RE,

Je n'avais pas vu…….précédemment. Insére donc, si tu veux bien, une instruction de prog du genre

Text.box tb5 (Coût unitaire d'achat)

' On vérifie si la valeur entrée est numérique (3 décimales).

'Si pas numérique, annule la validation de contrôle.

MsgBox "Vous devez entrer un Nombre à 3 décimales"

Merci & A +

Bonjour,

Si j'entre un nombre, il sera forcément en numérique

Si je veux 3 décimales et que j'attribue le format avec 3 décimales cela s'affichera forcément avec 3 décimales que je tape 56 ou 56.5 ou 56.55 ou 56.555 j'aurai toujours 3 décimales comme ceci 56.000 ou 56.500 ou 56.550 ou 56.555

Je comprendrai mieux ton souci si le message disait vous avez utilisé la virgule et il faut utiliser le point

Bonjour sourisette,

Hélas non très chère, dans le cas précis j'utilise le Français mais je raisonne le langage Vba.

Il s'agit d'une TextBox et comme le dit son nom, elle réagit pour que l'on saisisse du texte même s'il s'agit de chiffres qui sont pris en compte avec une propriété de texte.

Dans le cas prècis, dans un UseForm, j'utilise une TextBox pour saisir du numérique avec décimales. Donc il faut donner une instuction de programme pour que cette TectBox transforme sa propriété texte en propriété numérique.

A +

Re,

Je me doutais bien un rien que tu avais de bonnes raisons... Voilà, j'ai appris qqch de plus mais c'est trop fort pour moi. Tu connais mes limites

P.S. J'ai réussi à monter sous accès ma petite gestion de stock (ultra simpliste)

RE,

Si je vois le jour avec mon truc, nous nous amuserons à comparer.

Rien de compliqué non plus dans les idées (conception Excel), mais sûrement approprié dans les trois volets que tu connais au plan pratique (comptable, fiscal et gestion).

A +

Paulus a écrit :

RE,

Je n'avais pas vu…….précédemment. Insére donc, si tu veux bien, une instruction de prog du genre

Text.box tb5 (Coût unitaire d'achat)

' On vérifie si la valeur entrée est numérique (3 décimales).

'Si pas numérique, annule la validation de contrôle.

MsgBox "Vous devez entrer un Nombre à 3 décimales"

Merci & A +

pas touché terre de l'AM, mais j'ai une vague idée à approfondir.
je devrais pouvoir regarder demain matin...

Bonjour Paulus

Voilà le code à ajouter

VBA
If Not IsNumeric(Me.tb5.Value) Then
        MsgBox "Vous devez entrer un Nombre à 3 décimales"
        Me.tb5.SetFocus
        Exit Sub
    End If

Cdlt

RGI

Oups tu étais là salutations Bérylion

Salut les spécialistes,

T'es sympha Gilbert, je savais que c'était ce module (grâce à la toile Visual Basis) mais je ne savais pas adapter la chose à mon truc (l'argot Vba !) Merci de ta contribution.

Pas grave l'ami Béry, je te sais affairé. Mon affaire attendra des moments meilleurs. Merci de me tenir au courant.

Bonne soirée à vous deux

A +

il faut adapter aussi ensuite la mise en place des données

VBA
For n% = 1 To 5
        On Error Resume Next
        If n = 4 And Me.sortie Then decalage = 5
        If n = 5 Then Sheets("Mvt").Range("A65536").End(xlUp).Offset(-2, n + decalage).Value = CSng(Me.Controls("tb" & n).Value): GoTo suite
        Sheets("Mvt").Range("A65536").End(xlUp).Offset(-2, n + decalage).Value = CLng(Me.Controls("tb" & n).Value)
        If decalage = 5 Then Exit For
        decalage = 2
suite:
    Next 

Cdlt

RGI

Qu'en penses tu ? Merci

A +

RE Gilbert_rgi

J'ai testé le second code que tu m'as adressé pour la mise en place des mouvements.

Niet, l'encodage bogue sur le mot .Sortie. MsgeBox "Membre de méthode ou de données introuvable".

Dommage !

A +

Re,

Normalement Exel calcule sur la valeur exacte même s'il affiche en arrondi sauf si on lui demande de calculer sur la valeur affichée

Bonjour Paulus

voilà le fichier modifié

http://cjoint.com/?gkiHPcKdEB

Cdlt

RGI

citation
l'encodage bogue sur le mot .Sortie. MsgeBox "Membre de méthode ou de données introuvable".

erreur : ce n'est pas MsgeBox mais MsgBox ;-)))

Cdlt

RGI

Bonjour le Forum,

Merci à toi Gilbert_rgi, tu as réglé le problème de l'arrondi (intempestif) du tb5 (Coût unitaire d'achat) et de son renvoi correct dans la feuille Mvt colonne H (Cu).

J'ai viré la procédure IsNumeric (Me.tb5. Value) Then……….because lors de la saisie d'un mouvement option Sortie, le MsgBox "Vous devez entrer un Nombre à 3 décimales" ne manquait pas de s'afficher.

Pour clarifier l'état des lieux à l'heure actuelle, je remets en ligne la version 4 de Gestkneg. A ce stade, mes observations formulées dans mon post ci-dessus du 09/06/2008 à 11:49 restent d'actualité.

Merci à tous ceux qui voudront bien m'aider à mettre en place les procédures Vba..

ICI

A +

Paulus a écrit :

Bonjour le Forum,

Merci à toi Gilbert_rgi, tu as réglé le problème de l'arrondi (intempestif) du tb5 (Coût unitaire d'achat) et de son renvoi correct dans la feuille Mvt colonne H (Cu).

J'ai viré la procédure IsNumeric (Me.tb5. Value) Then……….because lors de la saisie d'un mouvement option Sortie, le MsgBox "Vous devez entrer un Nombre à 3 décimales" ne manquait pas de s'afficher.

Pour clarifier l'état des lieux à l'heure actuelle, je remets en ligne la version 4 de Gestkneg. A ce stade, mes observations formulées dans mon post ci-dessus du 09/06/2008 à 11:49 restent d'actualité.

Merci à tous ceux qui voudront bien m'aider à mettre en place les procédures Vba..

ICI

A +

'lut

c'est du vrac : http://cjoint.com/?gkqDwvL2Zw

10min par-ci + 10min par-la, mais ça semble tenir la route...

j'ai pas tenu compte du format décimal puisqu'il est géré en format de cell

ça demande qu'a être perfectionné, suivant tes remarques et celles d'autres fumeurs endurcis...

Superbe travail Béry comme d'hab

RGI

Salut Béry et Gilbert,

D'abord merci à tous deux l'un à la courette.....l'autre le calmos SciencePo. Vous avez été chouette chacun à votre façon. Je sais que nous n'avons pas tout réglé (la gestion du Cump notamment) Mais on verra.

Pour l'instant vous ne faites plus rien. Je regarde....j'évalue parcequ'il y a une 3ème approche pour renvoyer "Désignation" et "Classement" associés à "Identité" dans la feuille "Mvt". Une saisie unique de la nomenclature, une fois pour toute, dans la feuille "Stk" le jour du déclenchement de la commande articles (j'en ai parlé dans ma présentation) et en avant les gros !

Merci de vous intéresser à ce projet qui, s'il aboutit, devrait trouver preneurs.

Bonne fin de journée à vous deux

Paulus a écrit :

Salut Béry et Gilbert,

D'abord merci à tous deux l'un à la courette.....l'autre le calmos SciencePo. Vous avez été chouette chacun à votre façon. Je sais que nous n'avons pas tout réglé (la gestion du Cump notamment) Mais on verra.

Pour l'instant vous ne faites plus rien. Je regarde....j'évalue parcequ'il y a une 3ème approche pour renvoyer "Désignation" et "Classement" associés à "Identité" dans la feuille "Mvt". Une saisie unique de la nomenclature, une fois pour toute, dans la feuille "Stk" le jour du déclenchement de la commande articles (j'en ai parlé dans ma présentation) et en avant les gros !

Merci de vous intéresser à ce projet qui, s'il aboutit, devrait trouver preneurs.

Bonne fin de journée à vous deux

Salut

tu verras que j'avais un peu anticipé...

Sur ce messieurs :

Le Monsieur te dit "chapeau" pour ton travail.........

Cordialement

RGI

Bonjour Béry et Gilbert

Impatient tu es l'ami Gilbert ! Bien sûr je m'incline bas, le chapeau à la main et vous remercie chaleureusement tous les deux parce que l'un et l'autre vous avez su démontrer que ce système de gestion des stocks n'était pas viable puisqu'il se révèle être le début d'une usine à gaz ! J'ai testé vos deux montages et, effectivement me suis rendu compte que l'opération de promotion, sûrement par insuffisance de définition, allait produire un système défaillant ou inopérant. Pourquoi ?

Les contrôles de vraisemblance et les contrôles de syntaxe des entrées de données sont pratiquement inexistants. Le système ne rejette pas les doublons des identités et ne s'assure pas que les caractéristiques des données entrées sont conformes. Le code identité numérique 13 caractères, la désignation alpha 20 caractères, le code classement numérique 8 caractères, le N° de bon numérique 6 caractères cohérents avec l'option Entrée/Sortie, le coût unitaire d'achat numérique à 3 décimales, le N° de compte numérique 6 caractères cohérent avec l'option Entrée/Sortie. Il n'est pas sûr non plus que le formulaire d'entrée des données (UsF), soit un outil pertinent pour le cas d'espèce. Pourquoi ne pas saisir les données directement dans la feuille "Stk" c.a.d direct la base de données ?

La gestion quantitative des stocks.

Apparemment c'est peut être le seul pavé qui fonctionne tant en Entrée qu'en Sortie aussi bien en positif qu'en négatif.

La gestion des coûts d'articles.

L'ensemble des règles opératoires (algorithmes de calcul) n'a pas été défini de manière précise. Son absence ne permet pas une programmation sans risque. Chacun, s'il le désire, pourra donner son opinion mieux même apporter son conseil fruit d'études ou d'expérience.

Entre temps bonne continuation à tous et merci encore.

Bonsoir Paulus,

Sur ton projet, en lisant quelques sujets similaires, je trouve ici l'avis d'un PCAstucien (MachinBidule) et je pense exactement comme lui quand il dit ceci :

"Ne faites pas de gestion de stock avec Excel : Excel est un tableur, pas une base de données. Or une gestion de stocks nécessite la mise en oeuvre d'une base de données. C'est possible avec Excel, mais il va falloir fabriquer une véritable usine à gaz pour réaliser cela, un système tellement complexe que la maintenance en sera impossible par un autre que son auteur, etc."

Dans Access, tu pourra tout-à-l'aise jouer au VBA et le contrôle de tes données sera bien plus facile à gérer.

Dommage qu'il n'y ait pas grand monde ici pour "nous" guider et une gros effort est nécessaire pour maitriser cette application.

Le BAba est le papier crayon et l'analyse des besoins pour créer les tables de données avec les relations nécessaires entre elles et là je te fais confiance, tu es ultra spécialiste du fait

Bonsoir sourisette,

Merci de ton "remonte moral" mais celà fait plaisir que tu m'envoies ce mot gentil.

Tout ce que tu dit a propos d'Acces j'acquiesse, mais derrière la phase 1ère (compta-fiscal) il y a la phase 2nd (gestion) et là il y a de la formule de calcul à mettre en oeuvre. Alors faut voir ! J'ai précisé "Négoce", j'entends petit commerce ,quel qu'il soit, de revente en l'état sans transformation.

Le volume de la nomenclature (code d'identité) se limite à quelques miliiers d'articles (x nombre d'exemplaires identiques dans chaque identité) pour avoir une idée de la surface de stockage, du niveau du fonds de roulement à constituer et la connaissance approximative du coût de possession du stock (en travaillant en flux tendu, avec une clientèle satisfaite) sur la base d'une étude de marché sérieuse.

A plus sourisette.

Re,

Qui a dit que Access ne pouvait pas calculer ?

Une table avec les articles peut être liée avec des sous-tables qui gèrent les quantités, les mouvements etc...
Les états peuvent donner des résultats triés, filtrés, calculés etc... etc...

Toutes les résultats calculés sur les données, les entrées, les sorties dûments stockées dans des tables pourront être affichées selon les demandes qu'on créera sous forme de requêtes.

Il existe des requêtes de Sélection, mise à jour, création de nouvelles tables, ajout, suppression, analyse croisée plus le langage SQL
On peut aussi faire interférer Excel et Access

Le tout est d'apprendre à s'en servir et de le vouloir

Salut sourisette,

T'as bien dormi, j'espère ? moi oui !

Dis moi ? tu me remontes plus que le moral, tu m'incites à la débauche ! oh pas normal ça ! t'as une idée derrière la tête... et je crois deviner ! Je me permettrai de te poser une question pertinente dans la journée.

A +

Bonjour PAULUS,

Nos nuits, quand elles ne sont pas squattées pas l'informatique sont donc consacrées à un repos bien mérité.

Un excellent (sans jeu de mot) spécialiste de Access ici c'est Clément de PCAstuces. Dommage qu'il n'ait pas beaucoup de temps pour les dépannages

Si tu pars pour Access faudra changer le titre du Post pour attirer les pro, car moi comme tu le sais je reste dans le ULTRA élémentaire mais si je peux t'aider, ce sera avec plaisir

Sourisdeservice

RE Gestion de stock négoce

Gestion de la nomenclature articles

Re,

Paulus,

Personnellement aucune idée sur la question mais tu aurais sans doute plus de chances de trouver par ici http://vb.developpez.com/

MachinBidule a écrit :

"Ne faites pas de gestion de stock avec Excel : Excel est un tableur, pas une base de données. Or une gestion de stocks nécessite la mise en oeuvre d'une base de données. C'est possible avec Excel, mais il va falloir fabriquer une véritable usine à gaz pour réaliser cela, un système tellement complexe que la maintenance en sera impossible par un autre que son auteur, etc."

un grand sage que cet homme la !!

toutefois, dans le cas de Paulus, ça reste "relativement" simple à construire,
puisque ça ne gère que du négoce (pas de consommation de composant, pas de transformation...)

Personnellement je préfère access mais pour un tout autre point de vue :
une fois l'appli créée, elle reste figée et y'a moins de risque qu'un utilisateur vienne modifier la structure par mégarde.
(sous excel c'est trop lourd à gérer )

Bonjour Béryl,

Tu complètes exactement comme j'aurais voulu l'analyse au niveau des modifications et des pertes de données.
C'est pour cela que malgré la difficulté de l'apprentissage, je m'acharne à créer mon application personelle.

Qui va piano, va sano

Bonjour le forum,

Un pratiquant de la programmation s'est exprimé, Bravo !

Faites nous le savoir