XL 2010 Besoin d'aide (Gestion de Stock)

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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 ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
316
Réponses
0
Affichages
198
Réponses
3
Affichages
1 K
Réponses
2
Affichages
2 K
Réponses
10
Affichages
444
Réponses
15
Affichages
2 K
Réponses
2
Affichages
1 K
Retour