Discussion :

[Romain49]

Bonjour à tous,

Je viens vous demander de l'aide, après avoir essayer plusieurs méthodes je ne m'en sors pas à cause de mon faible niveau VBA et connaissances de macros limités.

Ci-joint mon doc excel avec le TCD en Feuil4

Je souhaites que le filtre de "Étiquettes de lignes" se mette à jour en fonction de la cellule H5 qui sera changé chaque semaine.

Je souhaite que mon filtre s'appliquant aux étiquettes soit inférieur ou égal à la cellule H5.

Merci d'avance pour votre aide,

Bonne soirée,

Cordialement.

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pi As PivotItem
If Target.Address <> "$H$5" Then Exit Sub
With Sheets("Feuil4").PivotTables(1).PivotFields("Week")
    .ClearAllFilters
    For Each Pi In .PivotItems
        If CInt(Pi.Name) >= CInt(Target.Value) Then Pi.Visible = False
    Next Pi
End With
End Sub

[Daniel.C]

Avec les explications, ça va mieux. Copie la macro dans le module de Feuil4. Elle s'exécutera automatiquement quand tu changeras la valeur de H5.

[Romain49]

Bonsoir,

Et bien merci beaucoup pour votre aide.

Cela fonctionne parfaitement encore merci!