Excel - Power Query - Power Pivot - VBA

Share

Explore

Excel - Power Query - Power Pivot - VBA

Excel - Power Query - Power Pivot - VBA

VB Excel

Fonctionnalités d'Excel

Données > Validation

Crée une liste de valeur de validation de type Liste de valeur :

With Selection.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:="A;B;C"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

.ShowInput = True

.ShowError = True

End With

Protéger la feuille

Protège la feuille active :

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= True

Empêche la sélection des cellules verrouillées :

ActiveSheet.EnableSelection = xlUnlockedCells

Déprotège la feuille active :

ActiveSheet.Unprotect

Protéger le classeur

Protège le classeur :

ActiveWorkbook.Protect Structure:=True, Windows:=False

Déprotège le classeur actif :

ActiveWorkbook.Unprotect

Trier une plage

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A2:A4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Feuil1").Sort

.SetRange Range("A1:A4")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Filtrer une plage

Filtrer une plage en n’affichant que les lignes dont la valeur est « Zone 1 »

ActiveSheet.Range("$A$1:$A$4").AutoFilter Field:=1, Criteria1:="Zone 1"

Tableau Croisé Dynamique

Création

Dim objPivotTable As PivotTable

Dim objPivotCache As PivotCache

Dim rngPlage as Range

On crée une variable Range dans laquelle on place la référence à la plage à mettre en TCD :

'Remplacer Selection par la référence à la plage à mettre en TCD

Set rngRange = Selection

On commence par créer un cache :

'Remplacer Feuil1!A1:B5 par la plage source du TCD

Set objPivotCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("Feuil1!A1:B5"), Version:=xlPivotTableVersion14)

Puis on crée le TCD :

'Remplacer Feuil2 par la feuille de destination (laissez A3)

'Remplacer TCD par un nom de TCd que vous inventez

Set objPivotTable = objPivotCache.CreatePivotTable(TableDestination:=Range("Feuil2!A3"), TableName:="TCD", DefaultVersion:=xlPivotTableVersion14)

Manipulations

Ajouter un champ en ligne

With objPivotTable.PivotFields("Produit")

.Orientation = xlRowField

.Position = 1

End With

Ajouter un champ en colonne

With objPivotTable.PivotFields("Pays")

.Orientation = xlColumnField

.Position = 1

End With

Ajouter un champ de données

With objPivotTable

.AddDataField objPivotTable.PivotFields("Qte"), Caption:="Total Qte", Function:=xlSum

End With

Afficher les valeurs en % de la colonne

With objPivotTable.PivotFields("Pourcentage")

.Calculation = xlPercentOfColumn .NumberFormat = "0,00%"

End With

Ajouter un champ de page (filtre)

With objPivotTable.PivotFields("Année")

.Orientation = xlPageField

.Position = 1

End With

Filtrer le TCD sur une valeur. On affiche ici la valeur 2013 du champ Année :

objPivotTable.PivotFields("Année").ClearAllFilters

objPivotTable.PivotFields("Année").CurrentPage = "2013"

Masquer une valeur d’un champ de ligne ou de colonne. On veut masquer la valeur "Produit 1" du champ Produit

With objPivotTable.PivotFields("Produit")

.PivotItems("Produit 1").Visible = False

End With

Share

Want to print your doc?
This is not the way.

Try clicking the ⋯ next to your doc name or using a keyboard shortcut (

CtrlP

) instead.