Gérer l'affichage de TCD en VBA

Version imprimable

05/02/2019, 15h29
Orda80

Gérer l'affichage de TCD en VBA

Bonjour,

je suis en train d'automatiser des TCD en VBA, j'ai réussie jusqu'au maintenant toute les étapes, mais je suis bloquée pour l'affichage, normalement je fais ça manuellement "cliquer sur le tableaux" -> "Option Tableau croisé dynamique" -> "Affichage" -> couché "disposition classique du Tableau croisé dynamique"

je cherche comment appliquer l'option "disposition classique du Tableau croisé dynamique" sur VBA.

J’espère que quelqu'un à une réponse pour ce sujet.

Je vous remercie par avance

Orda
05/02/2019, 15h52
zenpbb

Bonjour,
Et si tu fais la manip en enregistrant une macro, le code généré ne te convient pas ?

Bonjour,

D'après l'enregistreur de macro:

Code:

1
2
3
4
    With ActiveSheet.PivotTables("Tableau croisé dynamique1")
        .InGridDropZones = True
        .RowAxisLayout xlTabularRow
End With