XL 2016 RESOLU/ PowerPivot VBA CurrentPage (modifier filtres via VBA)

[merinos-BernardEtang]

Bonjour,

Je souhaite modifier un filtre en VBA sur un PIVOT...

Avec les anciens PIVOT pas de probleme on enregistre une macro puis on la modifie...
Avec POWERPIVOT même la macro enregistrée ( sans modification!) ne fonctionne pas.

Comme un petit exemple vaut tous les discours. Je joint un exemple.
La macro doit sélectionner l'officine.


Merci;

Merinos

 

[chris]

Bonjour

    ActiveSheet.PivotTables("PivotTable1").PivotFields("[Offines].[officine].[officine]").CurrentPageName = "[Offines].[officine].&[" & MaSelect & "]"

Mais pourquoi pas un segment ?

 

[merinos-BernardEtang]

Merci de la réponse...
Cela fonctionne effectivement...

A condition d'ajouter un "on error resume next"

Sub Selection()
Dim MaSelect As String

On Error Resume Next

MaSelect = Range("OfficineSelector").Value
ActiveSheet.PivotTables("PivotTable1").PivotFields("[Offines].[officine].[officine]").CurrentPageName = "[Offines].[officine].&[" & MaSelect & "]"

End Sub

J'aime pas les codes pas "propres"... On a une erreur sur cette ligne là ... mais elle fonctionne. 😱😱
Il n'y a pas un code "propre"?

Merinos

 

[merinos-BernardEtang]

Mais pourquoi pas un segment ?

Bien d'accord avec toi... mais cela fait partie des desiderata du demandeur: juste une cellule pour changer la sélection.

Bref je garde un peu ouvert pour voir si quelqu'un connait un moyen plus propre.

Merinos

 

[chris]

RE

Dans quels cas se produit l'erreur ? Quand la valeur n'existe pas ou ... ?

 

[merinos-BernardEtang]

Cela donne une erreur 1004 dans tous les cas... Mais avec "on error résume next" on passe à travers... Et du coup le PVT est adapté .

Sans cela je n'obtiens que le message d'erreur. Voir la version 2 de mon exemple.

 

[chris]

RE

Cela fonctionne chez moi
J'ai 2016 version 1709 build 8528.2139
Et toi ?

 

[merinos-BernardEtang]

O

RE

Cela fonctionne chez moi
J'ai 2016 version 1709 build 8528.2139
Et toi ?

ok, je verrai demain au boulot...

Si plus d'erreur avec une version plus récente, c'est rassurant .

 

[chris]

re

J'ai réactivé les mises à jour pour voir : c'est ptet la nouvelle qui bugue, MS nous prenant comme beta testeurs...

 

[merinos-BernardEtang]

effectivement c'est un bug...

Cela marche a la maison avec excel 2013 15.0.5007.1000 32bit.

 

[chris]

Re

J'ai mis à jour. Version du 26/02. Cela fonctionne...

 

[merinos-BernardEtang]

Chris,

Après upgrade ce matin, cela passe : Probleme résolu
Merci pour tes testes.

Mérinos