Propriété PivotTable.VisualTotals (Excel)
Cette propriété a la valeur True (par défaut) pour permettre aux tableaux croisés dynamiques OLAP (Online Analytical Processing) d'être recalculés après qu'un élément ait été masqué. Boolean (en lecture/écriture).
Syntaxe
expression. VisualTotals
Expression Variable qui représente un objet PivotTable .
Remarques
Dans le cas des tableaux croisés dynamiques non-OLAP, si vous masquez un élément, le total est recalculé pour ne refléter que les éléments qui restent visibles dans le tableau. En ce qui concerne les tableaux croisés dynamiques OLAP, le total est calculé sur le serveur et n'est donc pas affecté par le fait que des éléments soient masqués dans le tableau. Toutefois, si la propriété VisualTotals est définie sur False pour un tableau croisé dynamique OLAP, les résultats du tableau croisé dynamique OLAP correspondent à ceux du tableau croisé dynamique non OLAP.
La propriété VisualTotals pour des tableaux croisés dynamiques OLAP et dont la valeur est True (par défaut) fonctionne de la même manière que celle décrite pour les tableaux croisés dynamiques non-OLAP.
La propriété VisualTotals renvoie la valeur True pour tous les nouveaux tableaux croisés dynamiques. Toutefois, si vous ouvrez un classeur dans la version actuelle de Microsoft Excel et que le tableau croisé dynamique a été créé dans une version précédente d’Excel, la propriété VisualTotals renvoie False.
Remarque
Tous les tableaux croisés dynamiques créés précédemment ont la propriété VisualTotals définie sur False par défaut, sauf si l’utilisateur la modifie, mais pour tous les tableaux croisés dynamiques nouvellement créés, la propriété VisualTotals a la valeur True.
Exemple
Cet exemple montre comment déterminer si la possibilité de retotal une fois qu’un élément a été masqué est disponible pour les tableaux croisés dynamiques OLAP et en informe l’utilisateur. L'exemple suppose qu'il existe un tableau croisé dynamique dans la feuille de calcul active.
Sub CheckVisualTotals()
Dim pvtTable As PivotTable
Set pvtTable = ActiveSheet.PivotTables(1)
' Determine if visual totals is enabled for OLAP PivotTables.
If pvtTable.VisualTotals = True Then
MsgBox "Ability enabled to re-total after an item " & _
"has been hidden from view."
Else
MsgBox "Unable to re-total items not hidden from view."
End If
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.