Astuces Excel
  1. Astuces Excel
  3. VBA PivotTable Filter lorsqu'il existe
Intereting Posts
Coller dans des cellules verrouillées Excel comparer les différences de lignes entre deux classurs PivotTable, groupage et "% Différence par rapport aux valeurs manquantes" Excel vba using table from hidden sheet in vba datavalidation Références d'Excel, comment afficher deux données de colonne dans plusieurs feuilles sans duplication en un seul aperçu La sélection de la gamme pour afficher la list déroulante n'a pas fonctionné Fonction SheetFunction IFERROR génère l'erreur 1004 Supprimer la ligne doublement échangée à l'aide d'Excel Erreur OLE d'Internet Explorer dans Excel VBA Liste des valeurs répétées dans excel Supprimer Vazie Série VBA Formule de remplissage automatique nécessaire Bouclez la list des files et ouvrez-les Comment puis-je accéder à la barre de progression dans la barre d'état d'une application Office Comment insert du text dans une certaine cellule dans Excel en fonction des conditions?

VBA PivotTable Filter lorsqu'il existe

Bonjour, je travaille sur VBA dans Excel pour que mon filter fonctionne dans la table pivot. J'ai mis un champ dans la section de filter et je ne veux que marquer "Facture de count" et "Match manuel". Voici mon code: 

With wsPvtTbl.PivotTables("PivotTable1").PivotFields("Type") .PivotItems("Approve").Visible = False .PivotItems("Error").Visible = False .PivotItems("Interface Validation").Visible = False .PivotItems("Invoice Validation").Visible = False .PivotItems("Account Invoice").Visible = True .PivotItems("Manual Match").Visible = False End With

Le problème se pose car, parfois, datatables source ne contiennent pas d'élément "Erreur", il y aura un bug lors de ".PivotItems (" Erreur "). Visible = False"

Y a-t-il un moyen de le réparer? Merci beaucoup.

Cela fonctionnera-t-il? 

 .... On Error Resume Next .PivotItems("Error").Visible = False On Error Goto 0 .... .... .... On Error Resume Next .PivotItems("Error").Visible = False On Error Goto 0 ....

On Error Resume Next tolérera la non-existence des éléments pivots "Error". Donc, il est caché s'il existe . Ensuite, On Error Goto 0 rétablira une gestion d'erreur normale afin que d'autres erreurs dans le code ne soient pas ignorées.

Alternativement, vous pouvez mettre ces deux instructions au début et à la fin de l'extrait de code, de sorte que tout élément pivot non existant ne brise pas le code.