XL 2010 Besoin d'aide (Gestion de Stock)

mohamet lamine SARR

XLDnaute Junior
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
 

Pièces jointes

  • Suivi de stock de pièces détachées.xlsx
    49.4 KB · Affichages: 49

danielco

XLDnaute Accro
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
 

Pièces jointes

  • Suivi de stock de pièces détachées.xlsm
    59 KB · Affichages: 31

mohamet lamine SARR

XLDnaute Junior
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 ?
 

Discussions similaires

Réponses
2
Affichages
891
Réponses
10
Affichages
159

Statistiques des forums

Discussions
311 711
Messages
2 081 789
Membres
101 817
dernier inscrit
carvajal