Gestion de stock et suivi

czac

XLDnaute Occasionnel
Bonjour,

j'ai en charge le suivi et la gestion de stock de consommables d'un magasin. j'ai regardé sur le site s'il y avait un document qui pourrait me correspondre et j'ai rien trouvé, ce qui m'aurait permis de gagner du temps sachant que je ne suis pas un expert.
Effectivement, ce fichier devrait avoir:
- un formulaire où je saisie: Code article, libellé, Prix achat HT, Prix de vente HT, Stock, valeur stock
- Possibilité de faire un devis et une commande chez un fournisseur (devis lié à la commande)
- Facturation dans mon magasin (facturation par rayon)
- Le devis et la commande avec comme information: Date, adresse de livraison, adresse du fournisseur, un numéro de devis qui sera lié au numéro de la commande, et bien sur code article, libellé, quantité, prix
- une fois la marchandise réceptionné, avoir la possibilité de valider la réception par article (au cas où reliquat) et que ca mette à jour automatiquement mon stock
- ces devis, commande, facture devront se créer à part et s'enregistrer automatiquement dans le même dossier pour garder un suivi
- Pouvoir faire un inventaire pour réajuster le stock
- et en dernier quelques statistiques achat, vente, par rayon, etc...

Voilà je crois que j'ai tout dit :) y a t-il un fichier qui se rapprocherait de ma demande?
Je vous remercie d'avance pour votre aide

cordialement
 

JM27

XLDnaute Accro
bonjour
pour pouvoir avancer , pour les bugs ; il faut préciser.
A/ dans quelle circonstance ( en faisant quoi ?)
quand ca plante tu fait débugger et tu nous dit quelle est la ligne qui est en jaune dans le VBA et dans quelle macro ( le titre de la macro qui commence private sub située dans les lignes au dessus de l'endroit ou ca plante) sinon difficile de t'aider.
 

JM27

XLDnaute Accro
C'est surement lié à la copie de tes onglets de la base dans mon fichier.
clique sur oui lors de l'alerte, enregistre ton fichier sur le bureau par exemple , ferme le et ré-ouvre le , et dis moi si c'est ok.
si ok poste sur le site ton fichier.enregistré
 

JM27

XLDnaute Accro
Bonjour
Un petit plus
Les 3 première pages de l'userform doivent fonctionner.
(Entrées/Sorties; demande de devis ; MAJ de la base suite à devis)
bien lire la notice d'utilisation
 

Pièces jointes

  • Gestion_stockV4.xlsm
    161.2 KB · Affichages: 49

czac

XLDnaute Occasionnel
Bonjour,

je viens de tester et j'ai lu la notice d'utilisation. petites remarques:
1/ lorsqu'on créer la demande de prix, le fichier qui se créer et se nomme dans le dossier. Pourrait-on mettre 27072017 au lieu de 2772017? c'est une question de visu :)
2/ lorsque la MAJ de prix devis effectué, serait-il pas intéressant de noter la date de mise à jour du prix dans la base produit?

Franchement, sinon c'est super impeccable :)

cordialement
 

ChTi160

XLDnaute Barbatruc
Bonsoir
Bonsoir le Fil (JM27),Le Forum
une suggestion pour participer à ce superbe Travail de JM27
Pourquoi ne mets tu pas dans la définition de NouveauNom : Format(Date"ddmmyyyy")
plutôt que :
JourRéel & MoisRéel & Year(Date)
cela te permet de supprimer les calculs précédents soit :
VB:
If Day(Date) < 10 Then
          JourRéel = Format(Date, "dd")
     Else
          JourRéel = Day(Date)
     End If
     If Month(Date) < 10 Then
          MoisRéel = "0" & Month(Date)
     Else
          MoisRéel = Month(Date)
     End If
à moins que je n'ai pas compris ! Lol
Bonne continuation
Amicalement
Jean marie
 

ChTi160

XLDnaute Barbatruc
Re
une autre proposition
Pourquoi ne mets tu pas , lorsque tu détermines la Ligne ou coller les données (Dernière ligne Vide)
DerLigne = .Range("A65536").End(xlUp).Row +1
Pour éviter les x ---> DerLgn +1 qui donc deviennent
VB:
.Range("A" & DerLigne)
Pourquoi se compliquer la Vie Lol
j'ai rajouté en bas de la procédure :
VB:
Private Sub CmbTRansférerQuantitéDansDEvis_Click()
  Me.ListBoxCommande.ListIndex = -1
Bonne fin de journée
Amicalement
Jean marie
 
Dernière édition:

JM27

XLDnaute Accro
Bonsoir Chti 160
tu as tout à fait raison.
j'effectuerai la modif.
je me doutais qu'en changeant le format je serai arrivé a mes fins, mais je suis passé par cela et je ne sais pas pourquoi.
je ferais donc la modif.
De plus si tu regardes bien les lignes de macro, il doit y avoir des données qui ne servent à rien ( c'est du à ce fichier d'origine que j'ai modifié de fond en comble. )
Je ferais du nettoyage dès que ce fichier sera finalisé.
 

JM27

XLDnaute Accro
bonjour
si j'ai bien compris
Pour ta deuxième réponse je préfère garder
DerLigne = .Range("A65536").End(xlUp).Row
De plus ce n'est plus exact depuis excel 2007
Derligne=Range("A" & Rows.Count).End(xlUp).Row

Dans ma logique
DerLigne+1 n'est pas derligne mais première ligne vide donc le nom DerLigne peut prêter à interprétation.
dands ma logique la variable s'appellerait
premièreLigneVide= .Range("A65536").End(xlUp).Row+1
Mais bon chacun voit midi à sa porte ;)
j'essaye d'ètre le plus "significatif" possible dans le nom des variables.( sauf dans certains cas , notamment dans les fonction match)
Voila;)
 
Dernière édition:

Discussions similaires

Haut Bas