Macro pour changer un PivotFileds dans un TCD

[rmeynier]

Bonjour,

Je cherche à créer une macro qui me permettrais de changer un PivotFields exemple dans le code suivant :

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Année fiscale").CurrentPage = "2007"

mais j'aimerais que le "2007" ne soit pas défini mais plutôt une variable que la marco irait chercher dans un case que je veux définir. Donc lorsque je vais écrire par exmple 2006 dans ma case et lancer la macro, il va mettre dans mon PivotFields 2006.

Merci.

 

[Catrice]

Re : Macro pour changer un PivotFileds dans un TCD

Bonsoir,

Normalement ceci doit fonctionner :

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Année fiscale").CurrentPage = Sheets("MaFeuille").Range("A1").Value

A1 de la feuille MaFeuille doit contenir l'année variable dans ton exemple 2006.

 

[rmeynier]

Re : Macro pour changer un PivotFileds dans un TCD

Merci beaucoup ça marche. Vous venez de me faire sauvez beaucoup de temps.

 

[Dan]

Re : Macro pour changer un PivotFileds dans un TCD

Bonjour,

Je te propose par sécurité de mettre une instruction supplémentaire.
Raison : si tu te trompes dans l'encodage de d'année dans la cellule A1 (exemple tu mets 206 au lieu de 2006), le TCD conservera cette valeur dans le champ. Ce qui peut être assez embêtant.
Je modiferais donc ta macro comme suit :

Sub champTCD()
Dim a as string, choix As Integer
a = "(Tous)"
choix = Sheets("MaFeuille").Range("A1").Value
On Error Resume Next
With Sheet("Mafeuille").PivotTables("Tableau croisé dynamique1").PivotFields("Année fiscale")
.CurrentPage = a
.CurrentPage = choix
End with
End sub

Avec "tous" qui représente ce tu vois lorsque tu choisis dans la liste déroulante du champ "année fiscale" toutes les années. Change donc le "tous" par "all" si tu vois cette donnée plutôt que le "tous" utilisé dans la macro.

Fais un essai sur un fichier à part pour voir le résultat.

A te lire

Dan