XLérateur

Si vous devez copier une feuille d’un classeur vers une autre classeur, et que le classeur d’origine contient des champs nommés, tous les champs nommés suivront la feuille vers le classeur de destination. Ceci n’est pas souhaitable, puisque les champs nommés continueront à pointer vers le fichier d’origine.

Pour éviter de mêler les champs nommés du classeur d’origine avec ceux du classeur de destination :

1. Commencer par copier la feuille vers un nouveau classeur ;

2. Supprimer les champs nommés ;
Lors de la suppression des noms, sélectionnez tous les noms, même les noms de tableau, et cliquez sur le bouton Supprimer. Tous les noms seront supprimés, SAUF les noms des tableaux.
Si un tableau du classeur d’origine porte le même nom qu’un tableau du classeur de destination, Excel ajoutera un numéro au nom du tableau provenant du classeur d’origine.

3. Déplacer ensuite la feuille du nouveau classeur vers le classeur de destination.

Et voilà le travail 😉

Bye,

Céline Brien

-----------

Automatiser la répétition des étiquettes dans un tableau croisé dynamique

de Gaetan Mourmant | 22/04/2015 - 10:35 |22/04/2015 Divers

Écrire un commentaire

Bonjour à tous,

Dans un post précédent, j'avais montré comment répéter les étiquettes de lignes.

Cependant, si vous avez beaucoup de tableaux croisés dynamiques, ceci peut s'avérer assez fastidieux.
Un ancien élève m'a d'ailleurs remonté un bug à ce sujet - perte de la répétition des étiquettes lors de l'actualisation.

Voici donc un petit code qui modifie l'option pour tous les tableaux croisés dynamiques du classeur :

Sub Mise_a_jour_repeter_toutes_les_etiquettes() Dim pvt As PivotTable Dim Wks_feuile As Worksheet 'on parcourt toutes les feuilles For Each Wks_feuile In ThisWorkbook.Worksheets 'on parcourt tous les tableaux croisés dynamiques For Each pvt In Wks_feuile.PivotTables pvt.RepeatAllLabels _ xlRepeatLabels Next Next End Sub

En espérant que ceci puisse vous aider !

A bientôt.

Gaetan