Titre du sujet : Re: Taille d'un champ de Page d'un TCD par JackyAmiens le 07/04/2010 16:42:14
Bonjour,
N'ayant pas de solution apparente, j'ai utilisé un subterfuge.
Le tableau croisé dynamique est piloté à travers une liste redimensionnable ici de 20 éléments.
Le code est
Public Sub SelectTcd()
zoneSelect = Range("SelEquipes")
Sheets("Feuil2").PivotTables("Tableau croisé dynamique1").PivotFields("Club").CurrentPage = zoneSelect
Sheets("Feuil2").PivotTables("Tableau croisé dynamique1").PivotFields("Club").CurrentPage = zoneSelect
End Sub
Sub MaJEquipes()
'
'
' Macro enregistrée le 31/03/2010 par JackyAmiens
'Détermination de la liste des clubs présent sur la feuille equipes
Sheets("Equipes").Columns("A:A").ClearContents
Sheets("Equipes").Range("A1") = "Equipes"
With Worksheets("Feuil2").PivotTables("Tableau croisé dynamique1")
x = .PivotFields("Club").PivotItems.Count
For i = 1 To x
Sheets("Equipes").Cells(i + 1, 1).Value = .PivotFields("Club").PivotItems.Item(i)
Next i
End With
Sheets("Equipes").Range("A2:A" & x + 1 & "").Select
ActiveWorkbook.Names.Add Name:="L_Equip", RefersToR1C1:= _
"=Equipes!R2C1:R" & x + 1 & "C1"
End Sub
Le fichier d'exemple est joint (ce n'est pas le projet réel)
|