XL 2019 pivotitems erreur automatisation vba

tomasSaludas

XLDnaute Nouveau
bonjour j'essaye de créer une automatisation du filtre d'un grpahique générer par un tableau croisé dynamique sur excel; mon automatisation ce fait avec un code vba ou j'essaye de filtrer par toutes les dates de mon tableau a la date mois actuel -1

Private Sub grp2()
Dim p As PivotItem
Dim dateT As Variant
Dim dateY As Variant
Dim dateM As Variant
Dim dateN As Variant
Dim dateL As Variant
Dim dateMm As Variant
Dim dateNn As Variant
Dim dateLl As Variant

dateT = DateAdd("m", -1, Date) ' date reference a -1 mois
dateY = "**/" & Month(dateT) & "/****" ' date qui nous sert de comparaison pour aficher en true
dateM = DateAdd("m", -2, Date) ' date qui nous serta mois - 2
dateN = DateAdd("m", -3, Date) ' date qui nous serta mois
dateL = Date
dateMm = Month(dateM) & "/**/****"
dateNn = Month(dateN) & "/**/****"
dateLl = Month(dateL) & "/**/****"
ActiveSheet.ChartObjects("Graphique 2").Activate
With ActiveChart.PivotLayout.PivotTable.PivotFields("Date d'?mission")
For Each p In .PivotItems
If p.Name Like dateY Then p.Visible = True
Next p
For Each p In .PivotItems
If p.Name Like dateMm Or p.Name Like dateNn Or p.Name Like dateLl Then p.Visible = False
Next p
End With

End Sub
 

Discussions similaires

Haut Bas