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
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
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