Tableau croise macro

[nic81]

Bonjour

je fais plusieurs TBC tous les mois pour mon travail. J'ai trouvé une macro qui permet de modifier les données des colonnes mais les lignes disparaissent.
Est ce qu'il y aurait une possibilité de conserver les lignes.
Petit exemple dans le fichier joint

Je vous remercie de votre aide

Bonne journée

 

[Pierrot93]

Re : Tableau croise macro

Re,

regarde les 2 codes ci-dessous si ils peuvent t'aider :

le premier boucle sur tous les champs visibles du TCD,si il est trouvé, il est masqué.

Dim pf As PivotField
For Each pf In Sheets("base").PivotTables(1).VisibleFields
    If pf.Name = "AC" Then pf.Orientation = xlHidden
Next pf

le 2ème code teste si un champ est en colonne, si c'est le cas positionne un autre champ en cvolonne.

With Sheets("base").PivotTables(1)
    If .PivotFields("AC").Orientation = xlColumnField Then _
        .PivotFields(Range("B1").Value).Orientation = xlColumnField
End With

bien sur dans ces codes tu peux remplacer le nom des champs :

 .PivotFields("AC").

par :

 .PivotFields(Range("B1").Value).

si la cellule en question contient bien le nom du champ à utiliser...

@+

 

[tbft]

Re : Tableau croise macro

Merci TBFP

Bien reçu les macros,

je regarde tout ça dès que j'ai un peu de temps

merci encore et bonne journée

Si tu as un soucis avec n'hésite pas.

Par contre moi c'est TBFT

 

[nic81]

Re : Tableau croise macro

Pierrot


merci pour tes codes, mais je n'ai pas su les utiliser.

j'ai contourné le problème de cette façon

Sub macroaspfmi()

Sheets("couv pfmi").Select

With Sheets("couv pfmi").PivotTables(1)
.PivotFields(Range("d7").Value).Orientation = xlHidden
End With

Sheets("couv pfmi").PivotTables(1).PivotFields("cible pfmi").Orientation = xlRowField

Sheets("couv pfmi").PivotTables(1).PivotFields("année SCOLAIRE PFMI").Orientation = xlColumnField

With Sheets("couv pfmi").PivotTables(1)
.PivotFields(Range("e6").Value).Orientation = xlColumnField
.PivotFields(Range("e6").Value).Orientation = xlHidden
End With

Range("D7").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"cible pfmi")
.Orientation = xlPageField
.Position = 1
End With
End Sub


Merci pour tout

Bon WE

 

[Pierrot93]

Re : Tableau croise macro

Re Nicolle,

Petite remarque dans ton code, comme dit à 9h46, la ligne en bleu ne devrait pas être utile :

With Sheets("couv pfmi").PivotTables(1)
[B][COLOR="Blue"].PivotFields(Range("e6").Value).Orientation = xlColumnField[/COLOR][/B]
.PivotFields(Range("e6").Value).Orientation = xlHidden
End With

 

[nic81]

Re : Tableau croise macro

ok merci je m'en occupe lundi

bon We