Bouton macro + maj automatique données TCD

Bonjour à tous,

Je souhaiterais mettre en place un bouton avec macro sur la "Feuille sommaire; ajout déchet".

La macro ajouterait automatiquement et toujours une Ligne en L3 sur la feuille "registre" permettant de compléter les colonnes de A à L. Ainsi la nouvelle ligne sera toujours en L3 (pour respecter un ordre chronologique) et au fur et à mesure les précédentes lignes remplies se mettront en dessous. Pas de restrictions car je ne suis pas amené à remplir obligatoirement toutes les cellules.

Je souhaite également qu'une fois la ligne remplie, le fichier excel actualise automatiquement les données (Car j'ai des TCD sur d'autres onglets).

Cdt

Excel 2010

Bonjour,,

Les données de la feuille 'Registre' sont enregistrées sous forme de tableau (Excel 2007+ ; voir gestionnaire de noms).

Option Explicit
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim pt As PivotTable

    Application.ScreenUpdating = False

    With Worksheets("Registre").ListObjects(1)
        .ListRows.Add (1)
    End With

    For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
            pt.PivotCache.Refresh
        Next pt
    Next ws

End Sub

Merci beaucoup !!

Problème résolu