Invite dans macro pour Tableau croisé

[laraviole]

Bonsoir le forum,
Je me rapproche une nouvelle fois de vous pour trouver une solution
J'ai des fichiers qui tourne avec une macro et j'aimerai savoir s'il est possible d'actualiser un tableau croisé avec une invite qui me permettrait par exemple de choisir ma semaine .
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Semaine"). _
CurrentPage = "37"
Je vous joins un petit exemple
Bonne soirée à tous

 

[JCGL]

Re : Invite dans macro pour Tableau croisé

Bonjour à tous,

Peux-tu essayer avec :

Sub Semaine_TCD()
Dim Semaine As Byte

Semaine = InputBox("Choix de la semaine", "Choisir de la semaine")
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Semaine"). _
        CurrentPage = Semaine
End Sub

A+ à tous

 

[laraviole]

Re : Invite dans macro pour Tableau croisé

Rebonsoir,
Cela fonctionne pil poil par contre si j'entre (Tous) ça bug
Merci pour ton aide JCGL
Cdlt
Laraviole

 

[JCGL]

Re : Invite dans macro pour Tableau croisé

Bonjour à tous,

Remplace le :

Dim Semaine As Byte

par

Dim Semaine

Semaine était déclaré comme allant de 0 à 256 (Byte) , il devient Variant (le Variant est implicite quand rien n'est mentionné) donc toutes les valeurs possibles

A+ à tous

 

[laraviole]

Re : Invite dans macro pour Tableau croisé

Super, merci pour ton aide
Bonne soirée à tous
Cdlt
Laraviole