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

chris

XLDnaute Barbatruc

• 27 Février 2018

• #2

Bonjour

Code:

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

Mais pourquoi pas un segment ?

 

Vote positif 0 Vote négatif

merinos

XLDnaute Accro

• 27 Février 2018

• #3

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

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

VB:

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

 

Pièces jointes

• changer filter PWPVT 2.xlsm

  167.9 KB · Affichages: 36

Vote positif 0 Vote négatif

merinos

XLDnaute Accro

• 27 Février 2018

• #4

chris à dit:

Mais pourquoi pas un segment ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 27 Février 2018

• #5

RE

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

 

Vote positif 0 Vote négatif

merinos

XLDnaute Accro

• 27 Février 2018

• #6

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.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 27 Février 2018

• #7

RE

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

 

Vote positif 0 Vote négatif

merinos

XLDnaute Accro

• 27 Février 2018

• #8

O

chris à dit:

RE

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

Cliquez pour agrandir...

ok, je verrai demain au boulot...

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 27 Février 2018

• #9

re

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

 

Vote positif 0 Vote négatif

merinos

XLDnaute Accro

• 27 Février 2018

• #10

effectivement c'est un bug...

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 28 Février 2018

• #11

Re

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

 

Vote positif 0 Vote négatif

merinos

XLDnaute Accro

• 28 Février 2018

• #12

Chris,

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

Mérinos

 

Vote positif 0 Vote négatif