XL 2010 Besoin d'aide (Gestion de Stock)

mohamet lamine SARR · 11 Septembre 2020

Bonjour à tous,
Mon fichier en attaché est un fichier de gestion de stock de pièces détachées (pièces de rechange).
Donc je veux que sur la dernière feuille, le tableau soit remplir automatiquement sur la date, l'immatriculation du véhicule, la pièce rechangée et la quantité.
Cordialement

danielco · 11 Septembre 2020

Bonjour,

Tu peux donner un exemple ?

Daniel

mohamet lamine SARR · 11 Septembre 2020

danielco à dit:
Bonjour,

Tu peux donner un exemple ?

Daniel

Bonjour,
veuillez voir le fichier.
Sur je veux que lorsqu'on ajoute une ligne la feuille ¨Journal entrées et sorties¨ je veux que cette ligne soit répertoriée dans le tableau que j'ai fais sur la dernière feuille.

danielco · 11 Septembre 2020

J'ai ajouté la macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Ligne As Long
  If Application.CountA(Rows(Target.Row)) = 4 Then
    If Cells(Target.Row, 4) = "" Or Cells(Target.Row, 5) = 0 Then
      With Sheets("Feuil1")
        Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Cells(Ligne, 2) = Cells(Target.Row, 2)
        .Cells(Ligne, 3) = Cells(Target.Row, 6)
        .Cells(Ligne, 4) = Cells(Target.Row, 3)
        .Cells(Ligne, 5) = Cells(Target.Row, 4) + Cells(Target.Row, 5)
      End With
    End If
  End If
End Sub

A ton classeur. Le transfert se fait automatiquement quand les 4 cellules sont remplies.

Daniel

mohamet lamine SARR · 11 Septembre 2020

danielco à dit:

J'ai ajouté la macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Ligne As Long
  If Application.CountA(Rows(Target.Row)) = 4 Then
    If Cells(Target.Row, 4) = "" Or Cells(Target.Row, 5) = 0 Then
      With Sheets("Feuil1")
        Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Cells(Ligne, 2) = Cells(Target.Row, 2)
        .Cells(Ligne, 3) = Cells(Target.Row, 6)
        .Cells(Ligne, 4) = Cells(Target.Row, 3)
        .Cells(Ligne, 5) = Cells(Target.Row, 4) + Cells(Target.Row, 5)
      End With
    End If
  End If
End Sub

A ton classeur. Le transfert se fait automatiquement quand les 4 cellules sont remplies.

Daniel

Bonsoir, c'est exactement ce que je recherchais.
Cependant est ce qu'il y a possibilité que dans la colonne ¨PIECES RECHANGEES¨ on ait le nom de la pièce ?

danielco · 11 Septembre 2020

Voici.

XL 2010 Besoin d'aide (Gestion de Stock)

mohamet lamine SARR

XLDnaute Junior

Pièces jointes

danielco

XLDnaute Accro

mohamet lamine SARR

XLDnaute Junior

danielco

XLDnaute Accro

Pièces jointes

mohamet lamine SARR

XLDnaute Junior

danielco

XLDnaute Accro

Pièces jointes

Discussions similaires