XL 2019 TCD ajout automatique des nouveaux champs (VBA)

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

  • test MarieJo1.xlsm
    24.6 KB · Affichages: 7
Solution
La solution a été trouvé

solut.jpg

Discussions similaires

Réponses
2
Affichages
546
Réponses
11
Affichages
570

Statistiques des forums

Discussions
299 706
Messages
1 978 625
Membres
206 312
dernier inscrit
dameli70