Propriété QueryTable.PreserveFormatting (Excel)

Cette propriété a la valeur True si une mise en forme commune aux cinq premières lignes de données est appliquée aux nouvelles lignes de données de la table de requête. Les cellules inutilisées ne sont pas mises en forme. La propriété a la valeur False si la dernière mise en forme automatique, appliquée à la table de requête, est appliquée aux nouvelles lignes de données. La valeur par défaut est True.

Syntaxe

expression. PreserveFormatting

expression Variable qui représente un objet QueryTable .

Remarques

Pour les tables de requête de base de données, le paramètre de mise en forme par défaut est la constantexlSimple.

Le nouveau style de mise en forme automatique est appliqué à la table de requête au moment de son actualisation. Lorsque la valeur False est affectée à la propriété PreserveFormatting, la valeur None est rétablie pour la mise en forme automatique. Par conséquent, toute mise en forme automatique définie avant PreserveFormatting est définie sur False et avant l’actualisation de la table de requête ne prend pas effet, et aucune mise en forme n’est appliquée à la table de requête obtenue.

Si vous importez des données à l’aide de l’interface utilisateur, les données d’une requête web ou d’une requête de texte sont importées en tant qu’objet QueryTable , tandis que toutes les autres données externes sont importées en tant qu’objet ListObject .

Si vous importez des données à l’aide du modèle objet, les données d’une requête web ou d’une requête de texte doivent être importées en tant que QueryTable, tandis que toutes les autres données externes peuvent être importées en tant que ListObject ou QueryTable.

Utilisez la propriété QueryTable du ListObject pour accéder à la propriété PreserveFormatting .

Exemple

Cet exemple montre comment conserver la mise en forme du premier rapport de tableau croisé dynamique de la feuille de calcul un.

Worksheets(1).PivotTables("Pivot1").PreserveFormatting = True

Cet exemple montre comment l'affectation de la valeur False à la propriété PreserveFormatting génère la définition du format xlRangeAutoFormatNone au lieu du format xlRangeAutoFormatColor1 spécifié pour la mise en forme automatique.

With Workbooks(1).Worksheets(1).QueryTables(1) 
 .Range.AutoFormat = xlRangeAutoFormatColor1 
 .PreserveFormatting = False 
 .Refresh 
End With

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.