Gestion de stocks simplifiée V12

[JM27]

JM27 a soumis une nouvelle ressource:

Gestion de stocks simplifiée - gestion de stock

bonjour
c'est une appli que j'ai voulu simple pour l'utilisateur .
Cette petite appli sans prétention permet de gérer un stock d'objets composé de famille ( catégorie) et description
On peut gérer ces stocks en prenant ou pas le coût des objets.
dans ce fichier pas de méthode cump , fifo ou lifo.
Avec une alerte stock gérée par macro.
Objectif atteint ? , à vous de le dire !
Je suis bien entendu ouvert à toute amélioration, suggestion, simplification.
merci de lire le mode d'emploi avant...

En savoir plus sur cette ressource...

 

[JM27]

JM27 a mis à jour Gestion de stocks simplifiée avec une nouvelle entrée de mise à jour:

Gestion de stock simplifiée V2

Amélioration de la saisie des quantités en entrée ou sorties ( ergonomie améliorée)

Lire le reste de cette entrée de mise à jour...

 

[lamzzo]

Merci J'ai vu les choix de modification des quantité. c'est un travaille remarquable.
il y a pas de possibilité d'avoir le mot de passe pour vb de la version 2 ? je voudrais passer sur celle ci pour mes travaux mais il faut préalablement que je modifie certain chose pour améliorer l'ergonomie.
merci d'avance

 

[JM27]

JM27 a mis à jour Gestion de stocks simplifiée avec une nouvelle entrée de mise à jour:

Gestion de stocks simplifié V4

Affichage de l'userform en modeless ( suite à demande)
Suppression du scroll quantité à sortie (intérêt limité)
Création d'un panier pour entrer ou sortir plusieurs produits en même temps ( suit à demande)
Ajout d'une feuille ou l'on peut éditer la liste des produits en stock critique.

Lire le reste de cette entrée de mise à jour...

 

[PatLac]

Bonsoir à tous,
Super boulot, il faut le souligner.
Mois j'aurais une question technique :
Dans l'onglet "mouvement", quand la quantité est négative (donc sortie du stock) en colonne "F", est-il possible qu'en colonne "I" le montant soit lui aussi en négatif ?
Merci

 

[JM27]

Bonsoir
En cas de sortie négative le montant de sortie est positif
la formule de calcul est la valeur absolue de cout unitaire multiplié par la quantité
Mais on peut facilement la rendre négative , mais je n'en vois pas à priori l'intérêt

il suffit de modifier

dans la procédure
Private Sub CmbValiderEntréeSortie_Click()
après
ElseIf Me.OptSortie = True Then

If Sheets("Stocks").Range("E" & LigneDestinationBDD) <> "" Then
 .Range("H" & LigneDestinationMouvement) = Sheets("Stocks").Range("E" & LigneDestinationBDD)
 .Range("I" & LigneDestinationMouvement) = .Range("H" & LigneDestinationMouvement) * CDbl(Me.ListBoxProduits.List(LigneDansListBox, 3))
 End If

Par

If Sheets("Stocks").Range("E" & LigneDestinationBDD) <> "" Then
 .Range("H" & LigneDestinationMouvement) = Sheets("Stocks").Range("E" & LigneDestinationBDD)
 .Range("I" & LigneDestinationMouvement) = .Range("H" & LigneDestinationMouvement) *- CDbl(Me.ListBoxProduits.List(LigneDansListBox, 3))
 End If

 

[PatLac]

Merci pour le retour rapide.
Moi j'ai ça :

 ElseIf Me.OptSortie = True Then
             With Sheets("Stocks")
                .Range("H" & LigneDestinationBDD) = .Range("H" & LigneDestinationBDD) - CDbl(Me.ListBoxProduits.List(LigneDansListBox, 3))
                .Range("J" & LigneDestinationBDD) = CDate(Me.ListBoxProduits.List(LigneDansListBox, 6))
                If .Range("E" & LigneDestinationBDD) <> "" Then
                   .Range("F" & LigneDestinationBDD) = .Range("H" & LigneDestinationBDD) * .Range("E" & LigneDestinationBDD)
                  
                End If

 

[JM27]

environ 20 lignes plus bas
pour info : dans quelques jours il y aura une mise à jour de l'appli ( sans valeur négative)

 

[PatLac]

Nickel
Merci beaucoup.
En fait ça permet d'associer une valeur au stock, ou alors il y avait déja une fonction qui permettait ça et que j'aurais raté ? ...ou pas compris c'est aussi possible...

 

[JM27]

Dans la feuille stocks tu as la valeur du stock par produit en colonne F
nota : les colonnes E et F sont affichées seulement si tu as sélectionné avec coût des articles lors de la première utilisation de l'userform ; a l'inverse si tu as sélectionné sans cout des articles ces colonnes seront masquées
idem dans la feuille mouvement

les couts dans la feuille mouvement n'ont que peu d'intérêt ( seulement utile dans les tcd si tu veux ressortir des coûts par destination)

 

[PatLac]

Effectivement.
Mes excuses.
Je vais rester en embuscade pour la MAJ.
Merci encore et bonne soirée.

 

[devjam]

Bonjour , super travail très efficace pour mon job .Par contre je comprends pas au moment d'éditer les produits sous tension il me sort qu'un produit alors qu'il en existe d'autres. Je vous laisse les deux capture écran.

merci bien à vous

 

[JM27]

Bonjour
Bien Vu
Il manque une ligne de code
Sera rectifié dans la prochaine mise à jour
il manquait
DerlignePlus1 = DerlignePlus1 + 1

Private Sub CmnEditerListeTension_Click()
   Dim I As Integer
   If Me.ListBoxTension.ListCount = 0 Then
        MsgBox "Liste vide, pas de matériel en tension"
        Exit Sub
   End If
   With Sheets("StocksEnTension")
    .Range("A2:H10000") = ""
        DerlignePlus1 = .Range("A65536").End(xlUp).Row + 1
            For I = 0 To Me.ListBoxTension.ListCount - 1
                .Range("A" & DerlignePlus1) = Me.ListBoxTension.List(I, 0)
                .Range("B" & DerlignePlus1) = Me.ListBoxTension.List(I, 1)
                .Range("C" & DerlignePlus1) = Me.ListBoxTension.List(I, 2)
                .Range("D" & DerlignePlus1) = Me.ListBoxTension.List(I, 3)
                .Range("E" & DerlignePlus1) = Me.ListBoxTension.List(I, 4)
                .Range("F" & DerlignePlus1) = Me.ListBoxTension.List(I, 5)
                .Range("G" & DerlignePlus1) = Me.ListBoxTension.List(I, 6)
                .Range("H" & DerlignePlus1) = Date
                DerlignePlus1 = DerlignePlus1 + 1
            Next
   End With
    MsgBox "Edition réalisée"
    Application.Goto reference:=Sheets("StocksEnTension").Range("A1"), Scroll:=True
    Unload Me
End Sub

 

[devjam]

Bonjour
Bien Vu
Il manque une ligne de code
Sera rectifié dans la prochaine mise à jour
il manquait
DerlignePlus1 = DerlignePlus1 + 1

Private Sub CmnEditerListeTension_Click()
   Dim I As Integer
   If Me.ListBoxTension.ListCount = 0 Then
        MsgBox "Liste vide, pas de matériel en tension"
        Exit Sub
   End If
   With Sheets("StocksEnTension")
    .Range("A2:H10000") = ""
        DerlignePlus1 = .Range("A65536").End(xlUp).Row + 1
            For I = 0 To Me.ListBoxTension.ListCount - 1
                .Range("A" & DerlignePlus1) = Me.ListBoxTension.List(I, 0)
                .Range("B" & DerlignePlus1) = Me.ListBoxTension.List(I, 1)
                .Range("C" & DerlignePlus1) = Me.ListBoxTension.List(I, 2)
                .Range("D" & DerlignePlus1) = Me.ListBoxTension.List(I, 3)
                .Range("E" & DerlignePlus1) = Me.ListBoxTension.List(I, 4)
                .Range("F" & DerlignePlus1) = Me.ListBoxTension.List(I, 5)
                .Range("G" & DerlignePlus1) = Me.ListBoxTension.List(I, 6)
                .Range("H" & DerlignePlus1) = Date
                DerlignePlus1 = DerlignePlus1 + 1
            Next
   End With
    MsgBox "Edition réalisée"
    Application.Goto reference:=Sheets("StocksEnTension").Range("A1"), Scroll:=True
    Unload Me
End Sub

Super merci effectivement cela venait bien de la encore merci pour votre réactivité.

 

[JM27]

JM27 a mis à jour Gestion de stocks simplifiée avec une nouvelle entrée de mise à jour:

Gestion de stocks simplifié V7

Correction d'un bug dans la gestion du panier
mémorisation de la date de mouvement et de la destination lors d'une saisie de sorties/entrées multiples (ergonomie)
Ajout d'une zone de texte observation à la création d'une ref et à l'entrèe/sortie d'une ref
Ajout de l'unité dans la listbox d'entrée/sortie d'une ref
Protection des feuilles stock, mouvement et paramètre ( sachant qu'une protection de feuille est illusoire)
Possibilité de saisir des quantité décimales

Lire le reste de cette entrée de mise à jour...