XL 2013 éviter erreur 1004 .PivotItems.ItemVisible = True("").

[da silva]

Bonjour,
Je vien plus pour un interrogation si il i avais un if erreur qui existait pour éviter un bug de non existant
Dim Pt As PivotTable
Dim Pf As PivotField
Dim Pi As PivotItem

Application.ScreenUpdating = False
With Sheets("- 1")
Set Pt = .PivotTables("Tableau croisé dynamique1")
End With

i = 0
Set Pf = Pt.PivotFields("Code Magasin")
Pt.ManualUpdate = False
Pf.EnableMultiplePageItems = True
For Each Pi In Pf.PivotItems
i = i + 1
If Pf.PivotItems.Count > i Then Pi.Visible = False
Next
Worksheets("-1").PivotTables("Tableau croisé dynamique1").PivotFields("Code Magasin").PivotItems.Item("").Visible = True
Worksheets("-1").PivotTables("Tableau croisé dynamique1").PivotFields("Code Magasin").PivotItems.Item("").Visible = True
Worksheets("-1").PivotTables("Tableau croisé dynamique1").PivotFields("Code Magasin").PivotItems.Item("").Visible = True
Worksheets("-1").PivotTables("Tableau croisé dynamique1").PivotFields("Code Magasin").PivotItems.ItemVisible = True("").

j'ai des item l5 l6 mais défois il ne sont pas dans mes données donc je voudrais évite l'erreur avec un for reach mais je fini toujour par erreur 1004
merci d'avance car je recherche je trouve des solution mais rien

 

[da silva]

On Error Resume Next
Worksheets("-0 1").PivotTables("Tableau croisé dynamique1").PivotFields("Code Magasin").PivotItems.Item("").Visible = True

On Error GoTo 0

Résolue! =)