Classe ValueChange (Excel VBA)

La classe ValueChange représente une valeur qui a été modifiée dans un rapport de tableau croisé dynamique basé sur une source de données OLAP.

Les procédures principales de la classe ValueChange sont PivotTableChangeList.Add et Delete

Set

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

Dim vlc as ValueChange
Set vlc = ActiveCell.PivotTable.ChangeList(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ValueChange : PivotTable.ChangeList, PivotTableChangeList.Item et PivotTableChangeList.Add

For Each

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

Dim vlcChangeList As ValueChange
For Each vlcChangeList In ActiveCell.PivotTable.ChangeList
	
Next vlcChangeList

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Value with its procedures AllocationValue et Value

Méthodes

Les méthodes principales de la classe ValueChange sont

PivotTableChangeList.Add - Ajoute un objet ValueChange à la collection PivotTableChangeList spécifiée.

Dim strTuple As String: strTuple = 
Dim dblValue As Double: dblValue = 
Dim vlc As ValueChange
Set vlc = ActiveCell.PivotTable.ChangeList.Add(Tuple:=strTuple, Value:=dblValue)

Delete - Supprime l’objet ValueChange spécifié de la collection PivotTableChangeList .

ActiveCell.PivotTable.ChangeList(1).Delete

Propriétés

PivotTableChangeList.Count Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.ChangeList.Count

PivotTableChangeList.Item Cette méthode renvoie un seul objet ValueChange de la collection PivotTableChangeList spécifiée.

Dim vlcItem As ValueChange
Set vlcItem = ActiveCell.PivotTable.ChangeList(Index:=1)

PivotTableChangeList.Parent Renvoie l’objet parent PivotTable pour la collection PivotTableChangeList spécifiée. En lecture seule.

Dim pvtParent As PivotTable
Set pvtParent = ActiveCell.PivotTable.ChangeList.Parent

AllocationMethod Renvoie la méthode à utiliser pour allouer cette valeur lors de l’exécution d’analyses de scénarios. En lecture seule.

Dim xamAllocationMethod As XlAllocationMethod
xamAllocationMethod = ActiveCell.PivotTable.ChangeList(1).AllocationMethod

AllocationWeightExpression Renvoie l’expression de poids MDX à utiliser pour cette valeur lorsque vous effectuez une analyse de scénarios. En lecture seule.

Dim strAllocationWeightExpression As String
strAllocationWeightExpression = ActiveCell.PivotTable.ChangeList(1).AllocationWeightExpression

Order Renvoie une valeur qui indique l’ordre dans lequel cette modification a été effectuée par rapport aux autres modifications apportées à la collection PivotTableChangeList . En lecture seule.

Dim lngOrder As Long
lngOrder = ActiveCell.PivotTable.ChangeList(1).Order

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

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.ChangeList(1).Parent

PivotCell Renvoie un objet PivotCell qui représente la cellule (Tuple) qui a été modifiée. En lecture seule.

Dim pvtlcelPivotCell As PivotCell
Set pvtlcelPivotCell = ActiveCell.PivotTable.ChangeList(1).PivotCell

Tuple Renvoie le tuple MDX de la valeur qui a été modifiée dans la source de données OLAP. En lecture seule.

Dim strTuple As String
strTuple = ActiveCell.PivotTable.ChangeList(1).Tuple

VisibleInPivotTable Retourne une valeur indiquant si la cellule (tuple) est actuellement visible dans le rapport de tableau croisé dynamique. En lecture seule.

Dim booVisibleInPivotTable As Boolean
booVisibleInPivotTable = ActiveCell.PivotTable.ChangeList(1).VisibleInPivotTable