Classe PivotCell (Excel VBA)

Cet objet représente une cellule dans un rapport de tableau croisé dynamique.

Set

Pour utiliser une variable de classe PivotCell, elle doit d'abord être instanciée, par exemple

Dim pvtlcel as PivotCell
Set pvtlcel = ActiveCell.PivotCell

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe PivotCell : PivotLineCells.Item, PivotValueCell.PivotCell, Range.PivotCell, ValueChange.PivotCell, PivotLine.PivotLineCells et PivotLine.PivotLineCellsFull

For Each

Voici un exemple de traitement des éléments PivotCell dans une collection

Dim pvtlcelPivotLineCell As PivotCell
For Each pvtlcelPivotLineCell In Application.PivotLineCells
	
Next pvtlcelPivotLineCell

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

Cell with its procedures CellChanged et PivotCellType
Column with its procedures ColumnItems et PivotColumnLine
Row with its procedures PivotRowLine et RowItems

Méthodes

Autre Méthodes

AllocateChange - Effectue une opération d’écriture différée sur la cellule spécifiée dans un rapport de tableau croisé dynamique reposant sur une source de données OLAP.

DiscardChange - Ignore les modifications apportées à la cellule spécifiée dans un rapport de tableau croisé dynamique.

Propriétés

CustomSubtotalFunction Renvoie la définition du champ personnalisé de la fonction de sous-total d’un objet PivotCell. En lecture seule XlConsolidationFunction.

Dim xcfCustomSubtotalFunction As XlConsolidationFunction
xcfCustomSubtotalFunction = ActiveCell.PivotCell.CustomSubtotalFunction

DataField Cette propriété renvoie un objet PivotField qui correspond au champ de données sélectionné.

Dim pvtfDataField As PivotField
Set pvtfDataField = ActiveCell.PivotCell.DataField

DataSourceValue Renvoie la dernière valeur récupérée à partir de la source de données pour les cellules modifiées dans un rapport de tableau croisé dynamique. En lecture seule.

Dim strDataSourceValue As String
strDataSourceValue = ActiveCell.PivotCell.DataSourceValue

MDX Renvoie un tuple qui fournit les coordonnées MDX complètes de la cellule de valeur spécifiée dans un tableau croisé dynamique avec une source de données OLAP. En lecture seule.

Dim strMDX As String
strMDX = ActiveCell.PivotCell.MDX

Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.PivotCell.Parent

PivotField Renvoie un objet PivotField qui représente le champ de tableau croisé dynamique contenant le coin supérieur gauche de la plage spécifiée.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotCell.PivotField

PivotItem Renvoie un objet PivotItem qui représente l’élément de tableau croisé dynamique contenant le coin supérieur gauche de la plage spécifiée.

Dim pvtiPivotItem As PivotItem
Set pvtiPivotItem = ActiveCell.PivotCell.PivotItem

PivotTable Renvoie un objet PivotTable qui représente le rapport de tableau croisé dynamique associé à l’objet PivotCell.

Dim pvtPivotTable As PivotTable
Set pvtPivotTable = ActiveCell.PivotCell.PivotTable

Range Renvoie un objet Range qui représente la plage à laquelle s’applique l’objet PivotCell spécifié.

Dim rngRange As Range
Set rngRange = ActiveCell.PivotCell.Range

ServerActions Représente une collection d' actions constituée d’actions définies par OLAP qui peuvent être exécutées. Les actions sont spécifiques aux tableaux croisés dynamiques existants au niveau de la feuille de calcul. En lecture seule.

Dim actsServerActions As Actions
Set actsServerActions = ActiveCell.PivotCell.ServerActions

PivotLineCells.Count Renvoie le nombre d’éléments dans la collection PivotLineCells, . En lecture seule.

Dim lngCount As Long
lngCount = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull.Count

PivotLineCells.Full Lorsque la valeur est true, toutes les PivotLineCells, de la ligne de tableau croisé dynamique (y compris celles masquées sous forme compacte) sont récupérées. Boolean (en lecture seule).

Dim booFull As Boolean
booFull = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull.Full

PivotLineCells.Item Renvoie un élément spécifique de la collection PivotLineCells, en fonction de sa position dans la collection. En lecture seule.

Dim pvtlcelItem As PivotCell
Set pvtlcelItem = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull(Index:=1)

PivotLineCells.Parent Cette propriété renvoie l’objet parent de l’objet PivotLineCells spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull.Parent