Objet PivotCell (Excel)
Cet objet représente une cellule dans un rapport de tableau croisé dynamique.
Utilisez la propriété PivotCell de la collection Range pour renvoyer un objet PivotCell .
Une fois qu’un objet PivotCell est retourné, vous pouvez utiliser la propriété ColumnItems ou RowItems pour déterminer la collection PivotItems qui correspond aux éléments sur l’axe des colonnes ou des lignes qui représente le nombre sélectionné.
Une fois qu’un objet PivotCell est retourné, vous pouvez utiliser la propriété PivotCellType pour déterminer le type de cellule d’une plage particulière.
L'exemple suivant montre comment déterminer si la cellule A5 contenue dans le tableau croisé dynamique est un élément de données et comment avertir l'utilisateur. Cet exemple suppose qu’un tableau croisé dynamique existe dans la feuille de calcul active et que la cellule A5 est contenue dans le tableau croisé dynamique. Si la cellule A5 ne fait pas partie du tableau croisé dynamique, l'exemple renvoie une erreur d'exécution.
Sub CheckPivotCellType()
On Error GoTo Not_In_PivotTable
' Determine if cell A5 is a data item in the PivotTable.
If Application.Range("A5").PivotCell.PivotCellType = xlPivotCellValue Then
MsgBox "The PivotCell at A5 is a data item."
Else
MsgBox "The PivotCell at A5 is not a data item."
End If
Exit Sub
Not_In_PivotTable:
MsgBox "The chosen cell is not in a PivotTable."
End Sub
Cet exemple montre comment déterminer le champ de colonne dans lequel se trouve l'élément de donnée de la cellule B5. Il montre ensuite comment déterminer si le titre du champ de colonne correspond à « Inventory » et comment avertir l'utilisateur. L’exemple suppose qu’un tableau croisé dynamique existe dans la feuille de calcul active et que la colonne B de la feuille de calcul contient un champ de colonne du tableau croisé dynamique.
Sub CheckColumnItems()
' Determine if there is a match between the item and column field.
If Application.Range("B5").PivotCell.ColumnItems.Item(1) = "Inventory" Then
MsgBox "Item in B5 is a member of the 'Inventory' column field."
Else
MsgBox "Item in B5 is not a member of the 'Inventory' column field."
End If
End Sub
- Application
- CellChanged
- ColumnItems
- Creator
- CustomSubtotalFunction
- DataField
- DataSourceValue
- MDX
- Parent
- PivotCellType
- PivotColumnLine
- PivotField
- PivotItem
- PivotRowLine
- PivotTable
- Range
- RowItems
- ServerActions
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.