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.