Les sujets:

Les partenaires publicitaires:

Réponses populaires

Questions connexes

Les partenaires publicitaires:

Comment supprimer un tableau croisé dynamique en VBA

Un tableau croisé dynamique est utilisée pour synthétiser les données et est couramment utilisé dans les programmes de tableurs tels que Microsoft Excel. Visual Basic pour Applications est un langage de programmation informatique développé par Microsoft et utilisé pour automatiser les tâches de routine dans les applications Microsoft Office. Vous pouvez avoir besoin d'écrire du code VBA pour supprimer des tables de pivot si vous avez un classeur avec beaucoup de feuilles de calcul et vous devez les supprimer manuellement. En quelques étapes, vous pouvez écrire du code VBA pour supprimer une table de pivot.

Instructions

  1. Démarrez Microsoft Office Excel et le type "Colonnes" dans "A1", "Données" dans "B1", "Champ" dans "A2", "12" dans "B2", "Champ2" dans "A3"Et "13" dans "B3".

    Cliquez "A1", Appuyez sur "Ctrl" et "UN," clique le "Insérer" menu et sélectionnez "Tableau croisé dynamique." Cliquez "D'ACCORD."

  2. Cochez les cases à côté de "Colonnes" et "Data."

    Sélectionnez le "Développeur" onglet, puis cliquez sur "Visual Basic." Clique le "Insérer" menu et sélectionnez "Module."

  3. Copiez et collez le code ci-dessous dans votre nouveau module pour supprimer la table de pivot que vous venez de créer.



    Private Sub deletePivotTable ()

    Dim PTBL Comme tableau croisé dynamique
    Dim wrkSheet comme feuille de travail



    Pour chaque wrkSheet Dans ActiveWorkbook.Worksheets
    Pour chaque PTBL Dans wrkSheet.PivotTables
    Gamme("A3: B6") .Select
    Selection.Delete Shift: = xlToLeft
    Gamme("A1") .Select
    Exit Sub
    Suivant PTBL
    Suivant wrkSheet

    End Sub

Questions connexes

» » » » Comment supprimer un tableau croisé dynamique en VBA