Scribd
Importer
89 vues2 pages

Gestion de Stock avec VBA

Transféré par

Boubacar Keita
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
89 vues2 pages

Gestion de Stock avec VBA

Transféré par

Boubacar Keita
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

```vba

Sub GestionStock()

Dim matStock As Worksheet

Set matStock = ThisWorkbook.Sheets("Stock") ' Remplacez "Stock" par le nom de votre feuille de stock

' Dernière ligne utilisée dans la feuille de stock

Dim lastRow As Long

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

' Saisie des informations

Dim itemName As String

Dim itemQuantity As Integer

Dim itemAction As String

itemName = InputBox("Nom du matériel : ")

itemQuantity = InputBox("Quantité : ")

itemAction = InputBox("Action (Entrée/Sortie) : ")

' Vérifier l'action et mettre à jour le stock

If itemAction = "Entrée" Then

matStock.Cells(lastRow, "A").Value = itemName

matStock.Cells(lastRow, "B").Value = itemQuantity

ElseIf itemAction = "Sortie" Then

matStock.Cells(lastRow, "A").Value = itemName


matStock.Cells(lastRow, "B").Value = -itemQuantity

Else

MsgBox "Action invalide !"

Exit Sub

End If

' Mise à jour du solde

Dim currentBalance As Integer

Dim i As Long

currentBalance = 0

For i = 2 To lastRow

currentBalance = currentBalance + matStock.Cells(i, "B").Value

Next i

matStock.Cells(lastRow, "C").Value = currentBalance

MsgBox "Mise à jour du stock effectuée avec succès !"

End Sub

```

Cela crée une macro qui vous demande le nom du matériel, la quantité et si c'est une entrée ou une
sortie. Il met ensuite à jour le stock et calcule le solde actualisé. Les données sont enregistrées dans une
feuille nommée "Stock" (modifiable dans le code).

Vous aimerez peut-être aussi