Comment lister tous les tableaux croisés dynamiques d'un classeur ?

Supposons que vous ayez un grand classeur contenant plusieurs tableaux croisés dynamiques, et maintenant, vous souhaitez lister tous les tableaux croisés dynamiques de ce classeur. Est-ce possible ? Bien sûr, le code VBA suivant dans cet article va vous aider. Pour plus de détails, veuillez lire l'article ci-dessous.

Lister tous les tableaux croisés dynamiques d'un classeur avec du code VBA

Lister tous les tableaux croisés dynamiques d'un classeur avec du code VBA

Le code VBA suivant peut vous aider à lister tous les noms des tableaux croisés dynamiques ainsi que leurs attributs, tels que la plage de données source, le nom de la feuille de calcul, la date de rafraîchissement, etc.

1. Ouvrez votre classeur dans lequel vous souhaitez lister tous les tableaux croisés dynamiques.

2. Maintenez les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Lister tous les tableaux croisés dynamiques d'un classeur

Sub ListPivotsInfor()
'Update 20141112
    Dim St As Worksheet
    Dim NewSt As Worksheet
    Dim pt As PivotTable
    Dim I, K As Long
    Application.ScreenUpdating = False
    Set NewSt = Worksheets.Add
    I = 1: K = 2
    With NewSt
        .Cells(I, 1) = "Name"
        .Cells(I, 2) = "Source"
        .Cells(I, 3) = "Refreshed by"
        .Cells(I, 4) = "Refreshed"
        .Cells(I, 5) = "Sheet"
        .Cells(I, 6) = "Location"
        For Each St In ActiveWorkbook.Worksheets
            For Each pt In St.PivotTables
                I = I + 1
                .Cells(I, 1).Value = pt.Name
                .Cells(I, 2).Value = pt.SourceData
                .Cells(I, 3).Value = pt.RefreshName
                .Cells(I, 4).Value = pt.RefreshDate
                .Cells(I, 5).Value = St.Name
                .Cells(I, 6).Value = pt.TableRange1.Address
            Next
        Next
        .Activate
    End With
    Application.ScreenUpdating = True
End Sub

4. Appuyez ensuite sur la touche F5 pour exécuter ce code. Tous les noms des tableaux croisés dynamiques, la plage de données source, le nom de la feuille de calcul et d'autres attributs sont listés dans une nouvelle feuille de calcul placée devant votre feuille active comme le montre la capture d'écran suivante :

Articles connexes :

Comment vérifier si un tableau croisé dynamique existe dans un classeur ?

Comment ajouter plusieurs champs dans un tableau croisé dynamique ?