Microsoft 365 Gestion simple de stock produits

M

midimic

XLDnaute Junior
Bonjour,
Je soumets à votre expertise un tableau simplifié de gestion de produits
Je n'ai pas trouvé de solution à la hauteur de mes connaissances . . .
Merci d'avance
Michel
 

Pièces jointes

  • Stock Produits essai.xlsm
    40.3 KB · Affichages: 61
Trier par date Trier par votes
S

soan

XLDnaute Barbatruc
Inactif
Bonjour Michel, goube,

ton fichier en retour ; à l'ouverture du fichier, tu es sur une nouvelle feuille "TRT" : Tableau Récapitulatif de Type ; à part la ligne n° 1 des en-têtes, tu peux voir que cette feuille est vide ; va sur la feuille "Mvts", et fais Ctrl e ➯ travail effectué ! 😊​

VB: 
Option Explicit

Dim Tbl, Stk%, TQE%, TQS%, n2&, k1&, k2&

Private Sub BlocES()
  Cells(k1, 3) = "Entrée": Cells(k2, 3) = "Sortie": Cells(k1, 4).Resize(2) = 0: n2 = n2 + 3
End Sub

Private Sub MvtX(lg&)
  Dim Mvt$, Qté%, b As Byte: Mvt = Tbl(lg, 3): Qté = Tbl(lg, 4)
  If Mvt = "Entrée" Then
    TQE = TQE + Qté: Stk = Stk + Qté: Cells(k1, 4) = TQE: b = 1
  End If
  If Mvt = "Sortie" Then
    TQS = TQS + Qté: Stk = Stk - Qté: Cells(k2, 4) = TQS: b = 2
  End If
  If b > 0 Then Cells(k2, 6) = Stk: Tbl(lg, 5) = 1
End Sub

Sub RécapTyp()
  If ActiveSheet.Name <> "Mvts" Then Exit Sub
  Dim n1&: n1 = Cells(Rows.Count, 1).End(3).Row: If n1 = 1 Then Exit Sub
  Dim sh As Worksheet, cel As Range, ref$, d1 As Date, d2 As Date, i&, j&, k&
  Set sh = ActiveSheet: n1 = n1 - 1: Tbl = [A2].Resize(n1, 5): Application.ScreenUpdating = 0
  Worksheets("TRT").Select: n2 = Cells(Rows.Count, 3).End(3).Row
  If n2 > 1 Then [A2].Resize(n2 - 1, 7).ClearContents 'effacement des anciens résultats
  n2 = 2  'les nouveaux résultats seront écrits à partir de la ligne n° 2
  For i = 1 To n1
    If Tbl(i, 5) = 0 Then
      ref = Tbl(i, 1): j = sh.Columns(1).Find(ref, , -4163, 1, 1).Row - 1
      If i = j Then
        Cells(n2, 1) = ref: d1 = sh.Cells(i + 1, 2): Cells(n2, 2) = d1
        Set cel = Worksheets("Stock").Columns(1).Find(ref, , -4163, 1, 1)
        If Not cel Is Nothing Then
          Stk = cel.Offset(, 1): Cells(n2, 5) = Stk: TQE = 0: TQS = 0
          k1 = n2 + 1: k2 = n2 + 2: BlocES: MvtX i
          For k = i + 1 To n1
            If Tbl(k, 5) = 0 Then
              If Tbl(k, 1) = ref Then
                d2 = sh.Cells(k + 1, 2)
                If d2 <> d1 Then k1 = k1 + 3: k2 = k2 + 3: Cells(k1, 2) = d2: d1 = d2: BlocES
                MvtX k
              End If
            End If
          Next k
        End If
      End If
    End If
  Next i
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. ;)

soan
 

Pièces jointes

  • Stock Produits essai.xlsm
    45.3 KB · Affichages: 100
Vote positif 0 Vote négatif
M

midimic

XLDnaute Junior
soan à dit:
Bonjour Michel, goube,

ton fichier en retour ; à l'ouverture du fichier, tu es sur une nouvelle feuille "TRT" : Tableau Récapitulatif de Type ; à part la ligne n° 1 des en-têtes, tu peux voir que cette feuille est vide ; va sur la feuille "Mvts", et fais Ctrl e ➯ travail effectué ! 😊​

VB: 
Option Explicit

Dim Tbl, Stk%, TQE%, TQS%, n2&, k1&, k2&

Private Sub BlocES()
  Cells(k1, 3) = "Entrée": Cells(k2, 3) = "Sortie": Cells(k1, 4).Resize(2) = 0: n2 = n2 + 3
End Sub

Private Sub MvtX(lg&)
  Dim Mvt$, Qté%, b As Byte: Mvt = Tbl(lg, 3): Qté = Tbl(lg, 4)
  If Mvt = "Entrée" Then
    TQE = TQE + Qté: Stk = Stk + Qté: Cells(k1, 4) = TQE: b = 1
  End If
  If Mvt = "Sortie" Then
    TQS = TQS + Qté: Stk = Stk - Qté: Cells(k2, 4) = TQS: b = 2
  End If
  If b > 0 Then Cells(k2, 6) = Stk: Tbl(lg, 5) = 1
End Sub

Sub RécapTyp()
  If ActiveSheet.Name <> "Mvts" Then Exit Sub
  Dim n1&: n1 = Cells(Rows.Count, 1).End(3).Row: If n1 = 1 Then Exit Sub
  Dim sh As Worksheet, cel As Range, ref$, d1 As Date, d2 As Date, i&, j&, k&
  Set sh = ActiveSheet: n1 = n1 - 1: Tbl = [A2].Resize(n1, 5): Application.ScreenUpdating = 0
  Worksheets("TRT").Select: n2 = Cells(Rows.Count, 3).End(3).Row
  If n2 > 1 Then [A2].Resize(n2 - 1, 7).ClearContents 'effacement des anciens résultats
  n2 = 2  'les nouveaux résultats seront écrits à partir de la ligne n° 2
  For i = 1 To n1
    If Tbl(i, 5) = 0 Then
      ref = Tbl(i, 1): j = sh.Columns(1).Find(ref, , -4163, 1, 1).Row - 1
      If i = j Then
        Cells(n2, 1) = ref: d1 = sh.Cells(i + 1, 2): Cells(n2, 2) = d1
        Set cel = Worksheets("Stock").Columns(1).Find(ref, , -4163, 1, 1)
        If Not cel Is Nothing Then
          Stk = cel.Offset(, 1): Cells(n2, 5) = Stk: TQE = 0: TQS = 0
          k1 = n2 + 1: k2 = n2 + 2: BlocES: MvtX i
          For k = i + 1 To n1
            If Tbl(k, 5) = 0 Then
              If Tbl(k, 1) = ref Then
                d2 = sh.Cells(k + 1, 2)
                If d2 <> d1 Then k1 = k1 + 3: k2 = k2 + 3: Cells(k1, 2) = d2: d1 = d2: BlocES
                MvtX k
              End If
            End If
          Next k
        End If
      End If
    End If
  Next i
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. ;)

soan
Cliquez pour agrandir...
Whouah ouh
Je suis impressionné? et bien incapable de concevoir pareil programme.
Je regarde dans le détail
Merci
Michel
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
@Michel

réponse à ton post #6 : voici la nouvelle version de mon fichier, avec mise à jour de la colonne "Quantité", sur la feuille "Stock" ; même utilisation que précédemment ; dans le code VBA, après Next k, j'ai ajouté cette seule instruction : cel.Offset(, 1) = Stk

le bas du code VBA, à partir de la boucle For k est donc celui-ci :​

VB: 
          For k = i + 1 To n1
            If Tbl(k, 5) = 0 Then
              If Tbl(k, 1) = ref Then
                d2 = sh.Cells(k + 1, 2)
                If d2 <> d1 Then k1 = k1 + 3: k2 = k2 + 3: Cells(k1, 2) = d2: d1 = d2: BlocES
                MvtX k
              End If
            End If
          Next k
          cel.Offset(, 1) = Stk
        End If
      End If
    End If
  Next i
End Sub

soan
 

Pièces jointes

  • Stock Produits essai.xlsm
    45.3 KB · Affichages: 11
Dernière édition:
Vote positif 0 Vote négatif
M

midimic

XLDnaute Junior
soan à dit:
@Michel

merci pour avoir choisi ma solution :) ; voici la nouvelle version de mon fichier, avec mise à jour de la colonne "Quantité", sur la feuille "Stock" ; même utilisation que précédemment ; dans le code VBA, après Next k, j'ai ajouté cette seule instruction : cel.Offset(, 1) = Stk

le bas du code VBA, à partir de la boucle For k est donc celui-ci :​

VB: 
          For k = i + 1 To n1
            If Tbl(k, 5) = 0 Then
              If Tbl(k, 1) = ref Then
                d2 = sh.Cells(k + 1, 2)
                If d2 <> d1 Then k1 = k1 + 3: k2 = k2 + 3: Cells(k1, 2) = d2: d1 = d2: BlocES
                MvtX k
              End If
            End If
          Next k
          cel.Offset(, 1) = Stk
        End If
      End If
    End If
  Next i
End Sub

soan
Cliquez pour agrandir...
C'est parfait
pourrait-on séparer les références dans le tableau TRT pour le rendre plus lisible ? ou plus convivial
Peut-on faire un bouton validation dans l'onglet Mvts pour activer CTRL E ? ( une macro ?)
Cordialement, Michel
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
@Michel

nouvelle version du fichier ; la feuille "TRT" est vide (sauf les en-têtes) ; va sur la feuille "Mvts" ; fais Ctrl e OU clique sur le bouton "Valider" ➯ travail effectué ! 😊 mêmes résultats qu'avant, à partir de la ligne 3, et les références sont séparées par une ligne vide pour une présentation plus aérée ; bien sûr, la mise à jour du Stock (colonne "Quantité") a été faite en feuille "Stock".​

VB: 
Option Explicit

Dim Tbl, Stk%, TQE%, TQS%, n2&, k1&, k2&

Private Sub BlocES()
  Cells(k1, 3) = "Entrée": Cells(k2, 3) = "Sortie": Cells(k1, 4).Resize(2) = 0: n2 = n2 + 3
End Sub

Private Sub MvtX(lg&)
  Dim Mvt$, Qté%, b As Byte: Mvt = Tbl(lg, 3): Qté = Tbl(lg, 4)
  If Mvt = "Entrée" Then
    TQE = TQE + Qté: Stk = Stk + Qté: Cells(k1, 4) = TQE: b = 1
  End If
  If Mvt = "Sortie" Then
    TQS = TQS + Qté: Stk = Stk - Qté: Cells(k2, 4) = TQS: b = 2
  End If
  If b > 0 Then Cells(k2, 6) = Stk: Tbl(lg, 5) = 1
End Sub

Sub RécapTyp()
  If ActiveSheet.Name <> "Mvts" Then Exit Sub
  Dim n1&: n1 = Cells(Rows.Count, 1).End(3).Row: If n1 = 1 Then Exit Sub
  Dim sh As Worksheet, cel As Range, ref$, d1 As Date, d2 As Date, i&, j&, k&
  Set sh = ActiveSheet: n1 = n1 - 1: Tbl = [A2].Resize(n1, 5): Application.ScreenUpdating = 0
  ActiveCell.Select: Worksheets("TRT").Select: n2 = Cells(Rows.Count, 3).End(3).Row
  If n2 > 1 Then [A2].Resize(n2 - 1, 7).ClearContents 'effacement des anciens résultats
  n2 = 3  'les nouveaux résultats seront écrits à partir de la ligne n° 3
  For i = 1 To n1
    If Tbl(i, 5) = 0 Then
      ref = Tbl(i, 1): j = sh.Columns(1).Find(ref, , -4163, 1, 1).Row - 1
      If i = j Then
        Cells(n2, 1) = ref: d1 = sh.Cells(i + 1, 2): Cells(n2, 2) = d1
        Set cel = Worksheets("Stock").Columns(1).Find(ref, , -4163, 1, 1)
        If Not cel Is Nothing Then
          Stk = cel.Offset(, 1): Cells(n2, 5) = Stk: TQE = 0: TQS = 0
          k1 = n2 + 1: k2 = n2 + 2: BlocES: MvtX i
          For k = i + 1 To n1
            If Tbl(k, 5) = 0 Then
              If Tbl(k, 1) = ref Then
                d2 = sh.Cells(k + 1, 2)
                If d2 <> d1 Then k1 = k1 + 3: k2 = k2 + 3: Cells(k1, 2) = d2: d1 = d2: BlocES
                MvtX k
              End If
            End If
          Next k
          cel.Offset(, 1) = Stk: n2 = n2 + 1
        End If
      End If
    End If
  Next i
End Sub

soan
 

Pièces jointes

  • Stock Produits essai.xlsm
    45.7 KB · Affichages: 16
Vote positif 0 Vote négatif
M

midimic

XLDnaute Junior
soan à dit:
@Michel

nouvelle version du fichier ; la feuille "TRT" est vide (sauf les en-têtes) ; va sur la feuille "Mvts" ; fais Ctrl e OU clique sur le bouton "Valider" ➯ travail effectué ! 😊 mêmes résultats qu'avant, à partir de la ligne 3, et les références sont séparées par une ligne vide pour une présentation plus aérée ; bien sûr, la mise à jour du Stock (colonne "Quantité") a été faite en feuille "Stock".​

VB: 
Option Explicit

Dim Tbl, Stk%, TQE%, TQS%, n2&, k1&, k2&

Private Sub BlocES()
  Cells(k1, 3) = "Entrée": Cells(k2, 3) = "Sortie": Cells(k1, 4).Resize(2) = 0: n2 = n2 + 3
End Sub

Private Sub MvtX(lg&)
  Dim Mvt$, Qté%, b As Byte: Mvt = Tbl(lg, 3): Qté = Tbl(lg, 4)
  If Mvt = "Entrée" Then
    TQE = TQE + Qté: Stk = Stk + Qté: Cells(k1, 4) = TQE: b = 1
  End If
  If Mvt = "Sortie" Then
    TQS = TQS + Qté: Stk = Stk - Qté: Cells(k2, 4) = TQS: b = 2
  End If
  If b > 0 Then Cells(k2, 6) = Stk: Tbl(lg, 5) = 1
End Sub

Sub RécapTyp()
  If ActiveSheet.Name <> "Mvts" Then Exit Sub
  Dim n1&: n1 = Cells(Rows.Count, 1).End(3).Row: If n1 = 1 Then Exit Sub
  Dim sh As Worksheet, cel As Range, ref$, d1 As Date, d2 As Date, i&, j&, k&
  Set sh = ActiveSheet: n1 = n1 - 1: Tbl = [A2].Resize(n1, 5): Application.ScreenUpdating = 0
  ActiveCell.Select: Worksheets("TRT").Select: n2 = Cells(Rows.Count, 3).End(3).Row
  If n2 > 1 Then [A2].Resize(n2 - 1, 7).ClearContents 'effacement des anciens résultats
  n2 = 3  'les nouveaux résultats seront écrits à partir de la ligne n° 3
  For i = 1 To n1
    If Tbl(i, 5) = 0 Then
      ref = Tbl(i, 1): j = sh.Columns(1).Find(ref, , -4163, 1, 1).Row - 1
      If i = j Then
        Cells(n2, 1) = ref: d1 = sh.Cells(i + 1, 2): Cells(n2, 2) = d1
        Set cel = Worksheets("Stock").Columns(1).Find(ref, , -4163, 1, 1)
        If Not cel Is Nothing Then
          Stk = cel.Offset(, 1): Cells(n2, 5) = Stk: TQE = 0: TQS = 0
          k1 = n2 + 1: k2 = n2 + 2: BlocES: MvtX i
          For k = i + 1 To n1
            If Tbl(k, 5) = 0 Then
              If Tbl(k, 1) = ref Then
                d2 = sh.Cells(k + 1, 2)
                If d2 <> d1 Then k1 = k1 + 3: k2 = k2 + 3: Cells(k1, 2) = d2: d1 = d2: BlocES
                MvtX k
              End If
            End If
          Next k
          cel.Offset(, 1) = Stk: n2 = n2 + 1
        End If
      End If
    End If
  Next i
End Sub

soan
Cliquez pour agrandir...
Merci
Je viens de découvrir une impossibilité.
Je ne devrais pas pouvoir saisir une sortie sur un stock insuffisant et de la même manière je ne peux pas avoir un stock physique négatif
Merci pour ton aide éclairée et ta patience.
C'est en testant que je trouve mes incohérences.
Cordialement
Michel
 
Vote positif 0 Vote négatif
M

midimic

XLDnaute Junior
soan à dit:
@Michel

nouvelle version du fichier ; la feuille "TRT" est vide (sauf les en-têtes) ; va sur la feuille "Mvts" ; fais Ctrl e OU clique sur le bouton "Valider" ➯ travail effectué ! 😊 mêmes résultats qu'avant, à partir de la ligne 3, et les références sont séparées par une ligne vide pour une présentation plus aérée ; bien sûr, la mise à jour du Stock (colonne "Quantité") a été faite en feuille "Stock".​

VB: 
Option Explicit

Dim Tbl, Stk%, TQE%, TQS%, n2&, k1&, k2&

Private Sub BlocES()
  Cells(k1, 3) = "Entrée": Cells(k2, 3) = "Sortie": Cells(k1, 4).Resize(2) = 0: n2 = n2 + 3
End Sub

Private Sub MvtX(lg&)
  Dim Mvt$, Qté%, b As Byte: Mvt = Tbl(lg, 3): Qté = Tbl(lg, 4)
  If Mvt = "Entrée" Then
    TQE = TQE + Qté: Stk = Stk + Qté: Cells(k1, 4) = TQE: b = 1
  End If
  If Mvt = "Sortie" Then
    TQS = TQS + Qté: Stk = Stk - Qté: Cells(k2, 4) = TQS: b = 2
  End If
  If b > 0 Then Cells(k2, 6) = Stk: Tbl(lg, 5) = 1
End Sub

Sub RécapTyp()
  If ActiveSheet.Name <> "Mvts" Then Exit Sub
  Dim n1&: n1 = Cells(Rows.Count, 1).End(3).Row: If n1 = 1 Then Exit Sub
  Dim sh As Worksheet, cel As Range, ref$, d1 As Date, d2 As Date, i&, j&, k&
  Set sh = ActiveSheet: n1 = n1 - 1: Tbl = [A2].Resize(n1, 5): Application.ScreenUpdating = 0
  ActiveCell.Select: Worksheets("TRT").Select: n2 = Cells(Rows.Count, 3).End(3).Row
  If n2 > 1 Then [A2].Resize(n2 - 1, 7).ClearContents 'effacement des anciens résultats
  n2 = 3  'les nouveaux résultats seront écrits à partir de la ligne n° 3
  For i = 1 To n1
    If Tbl(i, 5) = 0 Then
      ref = Tbl(i, 1): j = sh.Columns(1).Find(ref, , -4163, 1, 1).Row - 1
      If i = j Then
        Cells(n2, 1) = ref: d1 = sh.Cells(i + 1, 2): Cells(n2, 2) = d1
        Set cel = Worksheets("Stock").Columns(1).Find(ref, , -4163, 1, 1)
        If Not cel Is Nothing Then
          Stk = cel.Offset(, 1): Cells(n2, 5) = Stk: TQE = 0: TQS = 0
          k1 = n2 + 1: k2 = n2 + 2: BlocES: MvtX i
          For k = i + 1 To n1
            If Tbl(k, 5) = 0 Then
              If Tbl(k, 1) = ref Then
                d2 = sh.Cells(k + 1, 2)
                If d2 <> d1 Then k1 = k1 + 3: k2 = k2 + 3: Cells(k1, 2) = d2: d1 = d2: BlocES
                MvtX k
              End If
            End If
          Next k
          cel.Offset(, 1) = Stk: n2 = n2 + 1
        End If
      End If
    End If
  Next i
End Sub

soan
Cliquez pour agrandir...
Je viens de trouver une autre difficulté sur le stock restant
Quand je saisis ma référence et ma sortie, le stock initial se met à jour à ce moment là et affiche le nouveau stock restant
Quand je valide l'onglet mvts, le TRT prend en compte le nouveau stock restant (déjà modifié) et trouve un deuxième nouveau stock qui vient mettre à jour l'onglet Stock
Autrement dit, j'ai 2 articles en stock, j'en prélève 1 et mon nouveau stock est de zéro
 

Pièces jointes

  • Stock 0.jpg
    Stock 0.jpg
    192.7 KB · Affichages: 23
  • Stock1.jpg
    Stock1.jpg
    76.7 KB · Affichages: 20
  • Stock2.jpg
    Stock2.jpg
    48.1 KB · Affichages: 21
  • Stock3.jpg
    Stock3.jpg
    39.7 KB · Affichages: 21
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonsoir Michel,

je rappelle que selon ce que tu as écrit dans le fichier joint de ton énoncé, ta demande initiale était celle-ci :​

Image.jpg


le fichier de mon post #4 fait ce tableau ; ensuite, tu as demandé la mise à jour des stocks restants ; je l'ai fait dans le fichier joint de mon post #8 ; puis tu as demandé un bouton, et à séparer les références dans le tableau TRT (pour une présentation plus aérée et plus lisible) ; j'ai fait aussi ces 2 autres demandes dans le fichier joint de mon post #10 ; je pense que c'est bien assez pour le présent sujet ; aussi, pour toutes les demandes supplémentaires de tes posts #11 et #12, tu devrais créer un autre sujet ! je laisse à un autre intervenant le soin de t'aider davantage, car là ça devient carrément de la gestion de stock. (alors qu'au début c'était censé être seulement l'établissement d'un tableau récapitulatif de type) ; bonne chance pour la suite de ton projet ! 🍀​

soan
 
Vote positif 0 Vote négatif
M

midimic

XLDnaute Junior
soan à dit:
Bonsoir Michel,

je rappelle que selon ce que tu as écrit dans le fichier joint de ton énoncé, ta demande initiale était celle-ci :​

Regarde la pièce jointe 1104119

le fichier de mon post #4 fait ce tableau ; ensuite, tu as demandé la mise à jour des stocks restants ; je l'ai fait dans le fichier joint de mon post #8 ; puis tu as demandé un bouton, et à séparer les références dans le tableau TRT (pour une présentation plus aérée et plus lisible) ; j'ai fait aussi ces 2 autres demandes dans le fichier joint de mon post #10 ; je pense que c'est bien assez pour le présent sujet ; aussi, pour toutes les demandes supplémentaires de tes posts #11 et #12, tu devrais créer un autre sujet ! je laisse à un autre intervenant le soin de t'aider davantage, car là ça devient carrément de la gestion de stock. (alors qu'au début c'était censé être seulement l'établissement d'un tableau récapitulatif de type) ; bonne chance pour la suite de ton projet ! 🍀​

soan
Cliquez pour agrandir...
C'est juste. Je me suis trompé dans ma demande. Je n'avais pas vu que la mise à jour des stocks était déjà effectuée. Je vais juste essayer de supprimer les colonnes stock dans le tableau TRT. Je te remercie pour ton travail toujours très pédagogique. Grâce aux détails de tes posts je devrais pouvoir supprimer ces colonnes. Merci encore et bonne continuation. Michel
 
Vote positif 0 Vote négatif
S

soan

XLDnaute Barbatruc
Inactif
Bonjour Michel,

j'ai quand même fait une autre version sans les 2 colonnes stock. :)

sur la feuille "TRT", j'ai supprimé les 2 colonnes E et F : "Stock initial" et "Stock restant"​

➯ la colonne "Total mouvements mensuel" est passée de G en E
➯ le tableau comporte 5 colonnes de A à E, au lieu de 7

➯ dans la sub RécapTyp(), la ligne pour effacer les anciens résultats devient :

If n2 > 1 Then [A2].Resize(n2 - 1, 5).ClearContents 'effacement des anciens résultats​


dans cette même sub RécapTyp(), juste après If Not cel Is Nothing Then j'ai enlevé Cells(n2, 5) = Stk qui était pour écrire le Stock initial en colonne E ➯ la ligne complète devient :​

Stk = cel.Offset(, 1): TQE = 0: TQS = 0

sur la ligne ci-dessus, j'espère que tu n'as pas enlevé Stk = cel.Offset(, 1) car il est nécessaire pour le calcul progressif du Stock restant, qui sera écrit plus tard en feuille "Stock", colonne B.​


sur la dernière ligne de la sub MvtX(), j'ai enlevé Cells(k2, 6) = Stk qui était pour écrire le Stock restant en colonne F ➯ la ligne complète devient :​

If b > 0 Then Tbl(lg, 5) = 1


utilisation du fichier :

* la feuille "TRT" est vide (sauf les en-têtes, en A1:E1)

* va sur la feuille "Mvts" ; fais Ctrl e ➯ image :​

Image 1.jpg


* sur la feuille "Stock", ça a été correctement mis à jour en colonne B "Quantité" :​

Image 2.jpg


si tu as déjà réussi à faire tout ça : parfait ! 👍 😊 sinon, ce post pourra t'aider, ainsi que d'autres lecteurs de cette conversation. 🍀​


au cas où tu aurais envie de supprimer aussi la colonne E "Total mouvements mensuel", il te suffit de la supprimer, puis de mettre 4 au lieu de 5 dans cette ligne de code VBA :​

If n2 > 1 Then [A2].Resize(n2 - 1, 4).ClearContents 'effacement des anciens résultats

y'a rien d'autre à changer dans le code VBA, car ma sub RécapTyp() n'écrit rien dans cette colonne E.

soan
 

Pièces jointes

  • Stock Produits essai.xlsm
    44.4 KB · Affichages: 40
Vote positif 0 Vote négatif

Discussions similaires

gael56000
  • Question
Microsoft 365 Gestion de Stock
Réponses
2
Affichages
956
gael56000
gael56000
I
  • Question
Microsoft 365 formule dans Excel
Réponses
10
Affichages
192
Phil69970
Phil69970
gothc
  • Question
XL 2021 gestion de stock vêtement
Réponses
3
Affichages
425
gothc
gothc
B
  • Question
Autres Formulaire Excel gestion de plusieurs entrepôt avec produits différents
Réponses
4
Affichages
379
benissmo
B
Spinzi
  • Question
XL 2013 Formule valorisation stock suivant rotation
Réponses
2
Affichages
234
Spinzi
Spinzi
D
  • Question
Autres fiches de gestion
Réponses
2
Affichages
547
doubleless
D
S
  • Question
Microsoft 365 Formule Gestion de Stock
Réponses
2
Affichages
482
Schwalby
S
S
  • Question
Access Gestion de Stock
Réponses
1
Affichages
492
Schwalby
S
L
  • Question
Microsoft 365 Besoin d'un simulateur de conditionnement
Réponses
5
Affichages
141
piga25
piga25
B
  • Question
Microsoft 365 Gestion de stock création de macros
Réponses
7
Affichages
672
vgendron
vgendron

Membres actuellement en ligne

11 membres et 90 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 104
Messages
2 085 347
Membres
102 868
dernier inscrit
JJV