XL 2010 Besoin d'aide (Gestion de Stock)

mohamet lamine SARR

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

Fichiers joints

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
 

Fichiers joints

mohamet lamine SARR

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas