Discussion :

[loulinho]

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.



J’ai fait la formule suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Jean-Philippe André]

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

[loulinho]

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

[Jean-Philippe André]

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[loulinho]

Bonjour Jean phillipe,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[loulinho]

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