Classe Action (Excel VBA)

La classe Action représente une action à exécuter dans un tableau croisé dynamique ou dans une feuille de données.

Set

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

Dim act as Action
Set act = ActiveCell.PivotTable.PivotValueCell.ServerActions(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Action : Actions.Item, PivotCell.ServerActions, PivotValueCell.ServerActions et Range.ServerActions

For Each

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

Dim actServerAction As Action
For Each actServerAction In ActiveCell.PivotTable.PivotValueCell.ServerActions
	
Next actServerAction

Caption

Renvoie la légende attribuée à l’objet Action. Type de données String en lecture seule.

Dim strCaption As String
strCaption = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Caption

Content

Renvoie le contenu associé à l'objet Action. Type de données String en lecture seule.

Dim strContent As String
strContent = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Content

Coordinate

Renvoie la propriété Coordinate de l’objet Action. En lecture seule.

Dim strCoordinate As String
strCoordinate = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Coordinate

Execute

Exécute l'action spécifiée.

ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Execute

Name

Renvoie le nom de l'objet. En lecture seule chaîne.

Dim strName As String
strName = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Name

Parent

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

Type

Cette propriété renvoie le type d'action. En lecture seule XlActionType.

Valeurs possibles sont xlActionTypeDrillthrough - Extraction, xlActionTypeReport - Rapport, xlActionTypeRowset - DSO, xlActionTypeUrl - Adresse URL.
Dim xatType As XlActionType
xatType = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Type

Actions.Count

Renvoie le nombre d'objets dans la collection. En lecture seule longue.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.PivotValueCell.ServerActions.Count

Actions.Item

Renvoie un objet actions qui représente une collection d'actions dans un classeur. En lecture seule.

Syntaxe : expression.Item (Index)

Index: Valeur d'index de l'action.

Dim actItem As Action
Set actItem = ActiveCell.PivotTable.PivotValueCell.ServerActions(Index:=1)

Actions.Parent

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