Événement Worksheet.PivotTableBeforeAllocateChanges (Excel)

  • Article

Se produit avant qu’un tableau croisé dynamique ne soit modifié.

Syntaxe

expression. PivotTableBeforeAllocateChanges (TargetPivotTable, ValueChangeStart, ValueChangeEnd, Cancel)

expression Variable qui représente un objet Feuille de calcul.

Parameters

Nom Requis/Facultatif Type de données Description
TargetPivotTable Requis PivotTable Tableau croisé dynamique qui contient les modifications à appliquer.
ValueChangeStart Obligatoire Long Index de la première modification dans la collection PivotTableChangeList associée. L’index est spécifié par la propriété Order de l’objet ValueChange dans la collection PivotTableChangeList .
ValueChangeEnd Obligatoire Long Index de la dernière modification dans la collection PivotTableChangeList associée. L’index est spécifié par la propriété Order de l’objet ValueChange dans la collection PivotTableChangeList.
Cancel Obligatoire Booléen False lorsque l'événement se produit. Si la procédure événementielle affecte à cet argument la valeur True, les changements ne sont pas appliqués au tableau croisé dynamique et toutes les modifications sont perdues.

Valeur renvoyée

Nothing

Remarques

L’événement PivotTableBeforeAllocateChanges se produit immédiatement avant qu’Excel exécute une instruction UPDATE CUBE pour appliquer toutes les modifications à la source de données OLAP du tableau croisé dynamique et immédiatement après que l’utilisateur a choisi d’appliquer des modifications dans l’interface utilisateur.

Exemple

L’exemple de code suivant invite l’utilisateur avant l’application des mises à jour à la source de données OLAP du tableau croisé dynamique.

Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, _ 
 ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean) 
 Dim UserChoice As VbMsgBoxResult 
 
 UserChoice = MsgBox("Allow updates to be applied to: " + TargetPivotTable.Name + "?", vbYesNo) 
 If UserChoice = vbNo Then Cancel = True 
End Sub

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.