Bonjour,

Dans l'exemple ci-joint le but est de figer lors de sa sélection, la présentation du  champ Club à 20 éléments.
La taille de la fenêtre, présentant les éléments,  peut-être fixée manuellement. Seulement elle ne se maintient pas après sauvegarde.

Une solution est à l'ouverture de lancer une macro à l'ouverture du classeur (gestion de plusieurs feuilles) qui vienne faire la mise en forme.

soit une macro
Private Sub Workbook_Open()
'
'Position le champs Club dans la zone Page du TCD
   Sheets("Feuil2").PivotTables("Tableau croisé dynamique1").PageFields("Club").Orientation = xlPageField

'Une ligne pour indiquer le nombre d'éléments visible lorsque l'on veux sélectionner un élément

Sheets("Feuil2").PivotTables("Tableau croisé dynamique1").PageFields("Club").Items=20 ' of course it's no goodf!
End Sub

L'enregistreur de macro ne donne pas le code de manipulation de la liste.


Merci d'avance pour votre aide