Filtre tcd critère inexistant VBA

Bonjour à tous,

j'ai une macro qui s'active à l'aide d'un bouton, cette macro effectue des filtres sur plusieurs feuilles du classeur selon la valeur saisie dans un TextBox.

Le problème est qu'il est possible que la valeur du TextBox n'existe pas dans les choix du filtre et donc cela me crée une erreur.

Une partie de mon code pour le moment :

Sheets("Transfert DSI").Activate
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Divisions"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Divisions"). _
        CurrentPage = TextBox1.Value

J'aimerai que la macro fasse comme suit :

Si TextBox1.Value existe dans les critères du champs Divisions alors

Effectuer le filtre

Sinon

Continuer la macro

Fin Si.

En espérant avoir été assez clair.

En attente de vous lire.

Cordialement.

Bonjour

Sans voir tout le code, utilise l'instruction On error resume next

With Sheets("Transfert DSI")
    .PivotTables("Tableau croisé dynamique1").PivotFields("Divisions").ClearAllFilters
    On error resume next
    .PivotTables("Tableau croisé dynamique1").PivotFields("Divisions").CurrentPage = TextBox1.Value

...
End with

Cordialement

Bonjour Dan,

Ca fonctionne nickel merci ! J'ai rajouté un

If (Err.Number = 0) Then

Afin de conditionner la suite de ma macro mais tu m'as bien aidé sur ce coup !

Merci encore !