? Création de tableaux croisés dynamiques dans Excel à l'aide de Visual Basic pour Applications ( VBA) peut vous faire gagner du temps grâce à votre ne pas avoir à créer les tables manuellement . VBA est un langage de programmation informatique utilisé dans les applications Microsoft Office pour automatiser les tâches de routine telles que la création d'un tableau croisé dynamique . Ne passez pas votre temps à créer des tableaux croisés dynamiques manuellement si vous avez beaucoup de feuilles dans votre classeur , au lieu de créer une sous-procédure pour créer dynamiquement . Choses que vous devez
Microsoft Office Excel
Voir Plus Instructions
1
Lancement Microsoft Office Excel et tapez " Client" dans " A1 " " Item" à "B1 , "et" Qté " dans " C1 ". Type " Jon" dans " A2 ", " Jon" dans " A3 ", " Clara " dans " A4 ", " Clara " dans " A5 " et " Clara » dans « A6 » . Type de " soude " dans " B2 ", "bi " à " B3 ", " soude " dans " B4 ", " eau " dans " B5 " et "bi " à " A6 ". Tapez " 2" à "C2 ", "5" dans " C3 ", " 10" à "C4 ", " 12" à " C5 " et " 15" dans " C6 ".
2 < p> Cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer l'éditeur VB . Tapez le code suivant pour créer une nouvelle procédure sous VBA:
createPivotTable Private Sub ()
3
Créer les variables que vous allez utiliser pour créer le tableau croisé dynamique en ajoutant l' code suivant :
pt As PivotTable
wrkSht As Feuille
pvtSht As Feuille
PTCache As PivotCache
Dim Prange Comme Range
finalRow As long
finalCol As long
4
Définir les feuilles que vous allez utiliser :
Set wrkSht = feuilles ( "Sheet1" )
Set pvtSht = Worksheets ( " Feuil2 " )
5
Déterminer la ligne et le nombre de colonne avec des données :
finalRow = wrkSht.Cells ( Application.Rows.Count , 1). End ( xlUp ) . Row
finalCol = wrkSht.Cells (1, Application.Columns.Count ) . End ( xlToLeft ) . Colonne
6
définir la plage pour vos données : Photos
Set Prange = wrkSht.Cells (1, 1 ) Redimensionner ( finalRow , finalCol )
Set PTCache = ActiveWorkbook.PivotCaches.Add ( SourceType . : = xlDatabase , SourceData : = Prange )
7
Créez la table de pivot dans " Feuil2 : "
Set pt = PTCache.createPivotTable ( TableDestination : = pvtSht.Cells (1, 1) , _
TableName : = " SamplePivot " )
pt.ManualUpdate = True
8
Définir les données sources pour le tableau croisé dynamique :
pt.AddFields RowFields : . . = array (" Item" )
pt.PivotFields ( " Quantité " )
Orientation = xlDataField
Fonction = xlSum Photos
. Position = 1
End With
pt.ManualUpdate = False
9
finir votre sous en tapant "End Sub " dans le fin de votre procédure . Appuyez sur "F5" pour exécuter la procédure et créer le tableau croisé dynamique en utilisant VBA.
