Historique mouvement dans une gestion de stock

Bonjour à tous,

J'ai un petit problème (voire un gros?!)

En fait j'ai créé un fichier excel qui me permet de gérer (de façon sommaire) le stock de consommable pour l'entreprise dans laquelle je suis en stage. Pour cela j'ai créé une fiche par consommables (environ une trentaine en tout) dans laquelle j'ai calculé le stock minimal en dessou duquel un témoin d'alerte s'affiche. J'ai une première feuille qui elle, répertorie tous les consommables (colonne A), puis dans la colonne B on a le stock disponible pour chacun des produits. J'ai créé une macro gestion de stock. Une boite de dialogue s'affiche quand on ouvre la macro, on choisit dans une barre déroulante le consommable, ensuite on sélectionne "entrée" ou "sortie", on entre la quantité entrante ou sortante, et le nouveau stock se calcule et se modifie directement dans la colonne B.

Cependant il m'a été demandé de mettre en place un "suivi" des mouvements. J'aimerai donc trouver une solution (automatique ou presque = pas de copier coller) pour suivre les mouvements (dans une autre feuille par exemple ou je ne sais pas...). En gros à chaque mouvement, il faudrait une trace, ou alors pouvoir avoir la trace du stock toutes les 24h ...

Précision : Je n'ai pas vraiment d'idées quant à la présentation et la mise en forme, mais plutôt sur le résultat, j'aimerais avoir un historique des mouvements (entrées, et sorties) pour chaque consommable, soit par jour, soit à chaque mouvement.

Je pense que l'idéal serait de présenter le truc sout forme de tableau

Avec dans une colonne tout à droite, les différents consommables, et la ligne du haut serait les différentes dates des mouvements (comme dit, soit par jour, soit à chaque mouvement).

Bonsoir et bienvenue,

Les UserForm n'étant pas mon fort, j'ai quand même bricolé ce code

Tu dois ajouter une feuille nommée "Suivi" comme ci-joint

Code bouton "Valider"

Private Sub Update_Click() 'valider
Dim Lg%
Lg = Sheets("Suivi").Range("A65536").End(xlUp).Row + 1
If Not IsNumeric(TextBox1.Value) Then Exit Sub
StockActuel = Sheets("Listeconsommables").Cells(ComboBox1.ListIndex + 2, 2).Value
variation = TextBox1.Value

If OptionButton1.Value Then
    NouveauStock = StockActuel - variation
    Sheets("Suivi").Range("b" & Lg) = variation
Else
    NouveauStock = StockActuel + variation
    Sheets("Suivi").Range("c" & Lg) = variation
End If
Sheets("Listeconsommables").Cells(ComboBox1.ListIndex + 2, 2).Value = NouveauStock
    TextBox1.Value = ""
    Sheets("Suivi").Range("a" & Lg) = ComboBox1.Value
    Sheets("Suivi").Range("d" & Lg) = Date
End Sub

à noter que personnellement je n'aurai fait qu'une seule base de données comprenant tout (1 seul onglet)

Amicalement

Claude