Fonction vba boucle macro

Bonjour

J’aimerais updater le TCD ci-dessous dans mon onglet de façon à ce qu’il sélectionne la semaine suivante automatiquement. C'est un TCD fixe qui ne change pas mis à part le champ filtré par semaine et qui avance d'une semaine à chaque éxécution de macro.

Pièce jointe 388730

J’ai fait la formule suivante

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Weekly()   Dim i As Integer   With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields( _ "Week").PivotItems.Value i = PivotItems +1 End With   End Sub

---

Ma formule ne marche pas je pense que ma variable n’est pas bien définie. Pourriez-vous m’éclairer sur le sujet svp ?

Bonjour,

as-tu essayé de passer par l'enregistreur de macro pour voir le code qui est généré ?

Il sera alors très facile de l'adapter pour qu'il corresponde à ce que tu veux :)

Bonjour Jean Philippe,

Merci pour ton retour.
Malheureusement avec l'enregistreur de macro cela enregistre l'action et non l'automatisation de la boucle que je cherche à faire.
Du coup ça me définit l'action de clic sur les flitres et suppression des autres filtres, alors que je cherche à juste déplacer le filtre sur la semaine suivante et ce de manière continue dès éxécution de la macro.
Je ne suis pas sur d'être bien clair.

Si vous avez d'autres questions ou suggestions pour que je puisse y voir plus clair ce serait vraiment sympa. Je débute seulement sur VBA et ne maitrise pas encore l'outil.

Merci

Oui,

c'est normal que cela fasse cela, mais c'est justement de ce code dont j'ai besoin pour te proposer une solution :)

Aussi si tu peux me coller le code généré, on pourra partir de là.

Salut.

Le code suivant, qui utilise pt comme objet PivotTable valide, devrait fonctionner. Attention, je donne le code général. Au delà de la dernière semaine renseignée dans le filtre, le tcd se comporte bizarrement. On pourrait vérifier la présence de la semaine dans la table source pour éviter les effets de bord indésirables.

Code:

---

1 2 3

With pt.PivotFields("semaine") .CurrentPage = .CurrentPage + 1 End With

---

Bonjour Jean phillipe,

voici le code généré avec l'enregistreur automatique.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Macro1() ' ' Macro1 Macro '   ' ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Week"). _ CurrentPage = "(All)" With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Week") .PivotItems("23").Visible = False .PivotItems("24").Visible = True End With End Sub

---

Bonjour Pierre,

Merci pour l'option. Le code ne semble pas fonctionner ça m'affiche une erreur d'éxécution 424. Faut il définir une variable pt ?

Oui, comme je l'ai dit, pt doit pointer vers un objet "PivotTable" valide.

Dans ton cas, tu pourrais remplacer pt par ActiveSheet.PivotTables("Tableau croisé dynamique8").

Code:

---

1 2 3

With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("semaine") .CurrentPage = .CurrentPage + 1 End With

---

Tu aurais intérêt à renommer tes tableaux. Tu pourrais aussi travailler avec une affectation sur pt

Code:

---

1 2 3 4

Dim pt As PivotTable   Set pt =ActiveSheet.PivotTables("Tableau croisé dynamique8") With pt...

---

Bonjour à tous, la macro est en toujours en cours de création, mais j'ai bien avancé sur plusieurs élements grâce à vous.

Merci à tous :)