Partager via

Objet PivotCell (Excel)

  • Article

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

Remarques

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é.

Exemple

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

Méthodes

Propriétés

Voir aussi

Assistance et commentaires

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.