Propriété PivotField.DatabaseSort (Excel)

Lorsque cette propriété a la valeur True, le repositionnement manuel des éléments dans un champ de tableau croisé dynamique est autorisé. Renvoie La valeur True si le champ n’a aucun élément positionné manuellement. Boolean (en lecture/écriture).

Syntaxe

expression. DatabaseSort

Expression Variable qui représente un objet PivotField .

Remarques

La propriété DatabaseSort renvoie la valeur False si la source de données n'est pas une source de données Online Analytical Processing (OLAP).

Cette propriété renvoie la valeur True si la source de données est de type OLAP et si ni un ordre personnalisé ni un tri automatique n'ont été appliqués au champ.

L’attribution de la valeur True à la propriété DatabaseSort pour un tableau croisé dynamique OLAP supprime tout tri automatique ou tri personnalisé appliqué au champ (en d’autres termes, le tableau croisé dynamique rétablit le comportement par défaut lorsque la connexion a été établie).

L'affectation de la valeur False à la propriété DatabaseSort affecte l'ordre actuel des éléments à l'ordre de tri, si aucun tri automatique n'a été appliqué.

La définition de la propriété DatabaseSort sur True ou False entraîne une mise à jour.

L'affectation de la valeur True à la propriété DatabaseSort pour une source autre que OLAP ou un champ de données OLAP provoque une erreur d'exécution.

Exemple

L'exemple suivant montre comment déterminer si la source de données est une source de données OLAP et comment avertir l'utilisateur. Cet exemple suppose qu’un tableau croisé dynamique OLAP existe dans la feuille de calcul active.

Sub UseDatabaseSort() 
 
 Dim pvtTable As PivotTable 
 Dim pvtField As PivotField 
 
 Set pvtTable = ActiveSheet.PivotTables(1) 
 Set pvtField = pvtTable.PivotFields("[Product].[Product Family]") 
 
 ' Determine source type for the PivotTable report. 
 If pvtField.DatabaseSort = True Then 
 MsgBox "The source is OLAP; you can manually reorder items." 
 Else 
 MsgBox "The data source might not be OLAP." 
 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.