Scribd
Importer
84 vues1 page

Gestion de Stock

Le document contient deux sous-programmes VBA pour la gestion des stocks dans Excel. Le premier sous-programme, 'MettreAJourStock', met à jour le stock en calculant la valeur actuelle à partir des quantités initiales, des entrées et des sorties. Le second sous-programme, 'AjouterProduit', permet d'ajouter un nouveau produit avec un ID auto-incrémenté et des informations saisies par l'utilisateur.

Transféré par

Ali Issifi
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd
84 vues1 page

Gestion de Stock

Le document contient deux sous-programmes VBA pour la gestion des stocks dans Excel. Le premier sous-programme, 'MettreAJourStock', met à jour le stock en calculant la valeur actuelle à partir des quantités initiales, des entrées et des sorties. Le second sous-programme, 'AjouterProduit', permet d'ajouter un nouveau produit avec un ID auto-incrémenté et des informations saisies par l'utilisateur.

Transféré par

Ali Issifi
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd

Sub MettreAJourStock()

Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

' Définir la feuille de travail


Set ws = ThisWorkbook.Sheets("Feuil1") ' Remplacez "Feuil1" par le nom de votre feuille

' Trouver la dernière ligne avec des données


lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' Parcourir chaque ligne pour mettre à jour le stock


For i = 2 To lastRow
' Calculer le stock actuel
ws.Cells(i, 6).Value = ws.Cells(i, 3).Value + ws.Cells(i, 4).Value - ws.Cells(i, 5).Value
Next i

MsgBox "Stock mis à jour avec succès!"


End Sub

Sub AjouterProduit()
Dim ws As Worksheet
Dim lastRow As Long

' Définir la feuille de travail


Set ws = ThisWorkbook.Sheets("Feuil1") ' Remplacez "Feuil1" par le nom de votre feuille

' Trouver la dernière ligne avec des données


lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1

' Ajouter un nouveau produit


ws.Cells(lastRow, 1).Value = ws.Cells(lastRow - 1, 1).Value + 1 ' ID Produit auto-incrémenté
ws.Cells(lastRow, 2).Value = InputBox("Entrez le nom du produit:")
ws.Cells(lastRow, 3).Value = InputBox("Entrez la quantité initiale:")
ws.Cells(lastRow, 4).Value = 0 ' Entrées initiales
ws.Cells(lastRow, 5).Value = 0 ' Sorties initiales
ws.Cells(lastRow, 6).Value = ws.Cells(lastRow, 3).Value ' Stock actuel initial

MsgBox "Produit ajouté avec succès!"


End Sub

Vous aimerez peut-être aussi