Cette astuce permet aux utilisateurs de votre rapport de choisir entre plusieurs formats de tableau croisé dynamique à l’aide des boutons d’option, puis met à jour automatiquement le tableau croisé dynamique! (Très pratique lorsque les utilisateurs ont des préférences de format de rapport sans avoir à accéder à la barre d’outils du tableau croisé dynamique et en choisir une à chaque fois)

Première étape:

Placez un bouton d’option (ou plusieurs) n’importe où sur votre feuille de calcul de rapport de tableau croisé dynamique et nommez-les comme « Format de rapport 1 », « Format de rapport 2 », etc …​

Pour ce faire, allez dans « Affichage> Barres d’outils> Formulaires », choisissez « Bouton d’option »

à partir de la boîte à outils et faites-le glisser sur votre rapport.

Deuxième étape:

Créez la macro en allant dans « Outils> Macro> Macros », tapez un nom tel que « Format2 » puis « Créer »

Tapez ou coupez et collez le code VB suivant. (Remarque: assurez-vous que votre tableau croisé dynamique porte le nom par défaut « Tableau croisé dynamique1 » en cliquant avec le bouton droit n’importe où dans le tableau croisé dynamique, choisissez « Options du tableau » et regardez le champ « Nom ». Sinon, vous devrez remplacer le nom du tableau croisé dynamique dans le code ci-dessous avec celui que votre tableau croisé dynamique est nommé):

Sous-format2 ()

‘Format2 Macro ActiveSheet.PivotTables (« PivotTable1 »). PivotSelect «  », xlDataAndLabel, True ActiveSheet.PivotTables (« PivotTable1 »). Format xlReport6 ​​Cells.Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlottomment = xlGeneral .Vertlottomentement = xlGeneral. 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext Fin avec la sélection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndSFo. = Falsevel. ReadingOrder = xlContext End With Cells.Select Selection.Columns.Autofit Range (« A1 »). Select End Sub Vous pouvez créer des macros de format différent en utilisant ce même code et la seule ligne que vous devez modifier est le « Format xlReport6 ». Vous avez le choix entre environ 15 formats de rapport. Changez simplement le « xlReport (number) » de 1 à 15.

Le code ci-dessus ajuste automatiquement les colonnes et centre le texte une fois le rapport formaté.

Troisième étape:

Attribuez la macro au bouton d’option en cliquant avec le bouton droit sur le bouton d’option, choisissez «Assign Macro» et choisissez simplement la macro que vous venez de créer. Faites ceci pour chacun de vos boutons d’option C’est tout! Désormais, lorsqu’un utilisateur clique sur un bouton d’option, le tableau croisé dynamique se met automatiquement à jour au format en fonction de l’option de format utilisée dans la macro. Testez plusieurs styles de rapport pour voir lesquels correspondent à vos besoins, puis attribuez-les à vos macros et boutons d’option.

Vos utilisateurs seront reconnaissants et très impressionnés!

Bonne chance!

~ CJ