Mise à jour d'une feuille "récapitulatif" - Collection

Bonjour à tous !

Je retravaille sur le fichier que Banzai64 m'avait très gentiment aidé à créer (https://forum.excel-pratique.com/excel/inputbox-et-adressage-dans-une-feuille-differente-t27907.html). Ma collection de pièces s'agrandit et j'ai la chance d'avoir récupérer des pièces qui n'étaient pas encore recensées dans mon tableau. Le problème risquant de se poser à nouveau, j'aimerais savoir s'il est possible que la feuille "récapitulatif" du fichier joint, se mette à jour automatiquement lors de l'ajout d'une nouvelle entrée dans la feuille "Liste" ??

Merci beaucoup de votre aide et de vos idées,

Bonne soirée,

Bien amicalement

Bonsoir,

• clique droite sur l'onglet "Liste"
• Choisis "visualiser le code"
• Colle le code ci-dessous dans la fenêtre

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macro Dan
Dim lg As Integer, dlg As Integer
lg = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("A" & lg)) Is Nothing Then
With Sheets("Récapitulatif")
    dlg = .Range("B" & Rows.Count).End(xlUp).Row + 1
    .Range("B" & dlg) = Target
    .Range("B" & dlg - 1 & ":W" & dlg - 1).Copy
    .Range("B" & dlg & ":W" & dlg).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
End With
End If
End Sub

Ajoute une valeur en colonne A dans la feuille Liste

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Bonjour Dan,

Merci beaucoup, le code fonctionne à merveille !

Sujet résolu !

Bonne journée,

Bien amicalement