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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

da silva

XLDnaute Junior
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
2 K
Réponses
9
Affichages
580
Retour