Cocher pivotItem dans plusieurs pivotTables

[JAN]

J'arrive a cocher 4 dates dans mon TCD mais je voudrais le faire pour les 4 TCD de ma feuille.
Comment puis-je faire?
Voici mon code un peu confu...

Dim monPivIt As Object, Mavariable As Date, Mavariable2 As Date, Mavariable3 As Date, Mavariable4 As Date
Mavariable = Range("H1").Value
Mavariable2 = Range("H2").Value
Mavariable3 = Range("H3").Value
Mavariable4 = Range("H4").Value

With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date")
For Each monPivIt In .PivotItems
monPivIt.Visible = True
On Error Resume Next
Next
On Error Resume Next
For Each monPivIt In .PivotItems
If monPivIt.Name <> Mavariable And monPivIt.Name <> Mavariable2 And monPivIt.Name <> Mavariable3 And monPivIt.Name <> Mavariable4 Then
On Error Resume Next
monPivIt.Visible = False
Else
On Error Resume Next
End If
Next
End With

Merci😕

 

[Pierrot93]

Re : Cocher pivotItem dans plusieurs pivotTables

Bonjour,

rajoute une boucle dans le code :

Dim i As Byte
For i = 1 To 4
With ActiveSheet.PivotTables(i).PivotFields("Date")

bon après midi
@+