XL 2019 TCD ajout automatique des nouveaux champs (VBA)

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DelphineDF

XLDnaute Nouveau
Bonjour,

Malgré différents forum, je n'arrive pas à résoudre mon problème.

Je voudrais que après actualisation d'un TCD, les nouvelles colonnes (nouveaux champs) soient automatiquement cochés et donc positionnés en lignes.

La seule solution serait une VBA ?

J'ai essayé avec PivotItems(Pivots).Visible = True

Mais cela ne me coche pas les nouveaux champs pour les positionner en ligne.

J'ai essayé ce code VBA mais cela ne marche pas, je n'arrive pas à faire en sorte que soit cocher automatiquement tout les nouveaux champs.

Sub test22()
Dim Nbre_Champs As Byte, Champs As Byte
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Nbre_Champs = ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields.Count
For Champs = 1 To Nbre_Champs
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(Champs).Orientation = xlRowField = True
End With
Next Champs
End Sub

Merci pour votre aide, je n'ai plus l'habitude d'utiliser la VBA donc pas facile de trouver. Peut-être est-ce impossible ???

Merci pour vous lumières

Ci-joint fichier
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
716
Réponses
2
Affichages
816
Réponses
11
Affichages
1 K
  • Question Question
Microsoft 365 actualisation TCD
Réponses
7
Affichages
2 K
Retour