Erreur lors du paramétrage de VBA pivotfields.currentpage

J'essaie de créer une macro qui ajustera automatiquement les filters pour plusieurs arrays dynamics en fonction de l'input des users, mais si l'user met quelque chose qui n'est pas avaialble, le code produit une erreur lors de l'application du filter.

Est-il possible de vérifier quels filters sont disponibles pour sélectionner?

Exemple: une table pivot possède trois filters disponibles (Année, Mois, Type [Plainte, Praise, les deux]), mais si pendant un mois il n'y avait pas de plaintes, il y a une erreur.

Code:

• SI la valeur de la cellule en double a été trouvée dans la colonne, puis la valeur de return
• Comment supprimer des lignes dans Excel où les inclusions ne sont pas remplies?
• VBA – Excel: mentionnez une plage égale à une donnée avec less d'une ligne
• VLookup () avec Excel VBA – Le nombre de valeurs à searchr est variable
• Essayer de sauvegarder Excel – Exception de HRESULT: 0x800A03EC

With PTable .PivotFields("Year").CurrentPage = Y .PivotFields("Month").CurrentPage = M .PivotFields("Type").CurrentPage = T 'Error line if T isn't valid End With 

• Création de VB array qui est public, dans le module de class
• Méthode 'Noms' de l'object ''Application' échoué
• Problèmes de déclaration IF
• Dans VBA, je veux faire une déclaration Si pour quand plus d'une cellule dans une gamme contient une valeur
• Gammes de traitement VBA Excel avec pour chaque

 With PTable .PivotFields("Year").CurrentPage = Y .PivotFields("Month").CurrentPage = M On Error Resume Next .PivotFields("Type").CurrentPage = T 'Error line if T isn't valid If Err.Number <> 0 Then Msgbox "Filter Didn't get applied" End If On Error GoTo 0 End With