Bonjour,

J'ai un tableau croisé dynamique sur une feuille "TCD" qui doit donner des résultats en fonction d'une variable (UserForm1.TextBox3.Value) obtenue dans un formulaire

Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
    Sheets("TCD").Select
    Range("B6").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Code produit" _
        ).CurrentPage = UserForm1.TextBox3.Value
 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
 
 
    Sheets("donnees").Select
Il fonctionne bien si la variable existe par contre si la variable du formulaire n'existe pas dans le
PivotFields("Code produit
, il ne me dit
Erreur d'exécution 1004 Impossible de définir la propriété default de la classe PivotItem
ce qui est normal car la valeur demandée n'existe pas.
Ma question est la suivante :
Est ce que l'on peut éviter ce message qui impose un débogage ou une fin ?
Il faudrait juste un message disant que la valeur n'existe pas.

Est ce que quelqu'un peut m'aider ?

Merci

P.S. : je vous mets le fichier en pièce jointe
L'exemple à faire est Rocou comme plante dans un premier temps puis Argile verte ensuite.