Événement Worksheet.PivotTableBeforeCommitChanges (Excel)
Se produit lorsque des changements sont validés sur la source de données OLAP pour un tableau croisé dynamique.
Syntaxe
expression. PivotTableBeforeCommitChanges (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 changements à valider. |
| ValueChangeStart | Obligatoire | Long | Index de la première modification dans l’objet PivotTableChangeList associé. 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 l’objet PivotTableChangeList associé. 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 validés sur la source de données OLAP du tableau croisé dynamique. |
Valeur renvoyée
Nothing
Remarques
L’événement PivotTableBeforeCommitChanges se produit immédiatement avant qu’Excel exécute une instruction COMMIT TRANSACTION sur la source de données OLAP du tableau croisé dynamique et immédiatement après que l’utilisateur a choisi d’enregistrer les modifications pour l’ensemble du tableau croisé dynamique.
Exemple
L’exemple de code suivant invite l’utilisateur avant que les modifications soient validées dans la source de données OLAP du tableau croisé dynamique.
Sub Worksheet_PivotTableBeforeCommitChanges(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 saved 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.