Gestion de stock et suivi

[czac]

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

 

[czac]

bonjour,

oui quelques bug lorsque j'ouvre le fichier. PAr contre c'est exactement dans l'esprit

super

 

[JM27]

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.

 

[czac]

Bonjour,

déjà voilà au démarrage ce que j'ai.

cordialement

 

[JM27]

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é

 

[czac]

hello,

oui ca fonctionne en enregistrant le fichier sur mon bureau. Ci-joint le fichier en V4

 

[JM27]

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

 

[czac]

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

 

[JM27]

Bonjour
A tester
Avec la commande en plus et une modification dans la demande de prix

 

[ChTi160]

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 :

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]

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

.Range("A" & DerLigne)

Pourquoi se compliquer la Vie Lol
j'ai rajouté en bas de la procédure :

Private Sub CmbTRansférerQuantitéDansDEvis_Click()
  Me.ListBoxCommande.ListIndex = -1

Bonne fin de journée
Amicalement
Jean marie

 

[JM27]

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]

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

 

[JM27]

Bonsoir
pour info
plutôt
Format(Date,"ddmmyyyy") ( avec la virgule)
plutôt que
Format(Date"ddmmyyyy")

 

[ChTi160]

Ok
Excuse !
Bonne continuation
Bonne fin de Journée
Jean marie

 

[JM27]

tu n'as pas à t'excuser.
une erreur est si vite arrivée.
dans mon fichier il doit rester pas mal de bugs : a voir