Gestion erreur dans filtre Tbl Dynamique

[corvelc]

Bonjour à tous,

J'ai déjà bien appris avec ce forum, mais aujourd'hui j'essaye d'apprendre comment traiter les erreurs dans mes macros, et aprés recherche dans le forum je n'arrive pas à bien gérer l'erreur suivante:

BESOIN : A partir d'un menu d'acceuil, l'utilisateur fait un choix dans une liste déroulante servant à l'ensemble de mon application, si ce choix n'exite pas dans le PivotFields du tableau dynamique concerné , je plante en "1004".
comment faire pour gerer cette erreur afin d'avertir l'utilisateur que la valeur choisie n'existe pas.
Un peu d'aide serait bien venue
Merci d'avance

Ma MACRO :


' ******************************************
' * Macro pour filtres vers tableaux 01 , 02 et 03 *
' ******************************************

Sub Mod4_Filtres_tbl(ByVal TBL As String)
' TBL variable passée par autre macro = nom du tableau car même macro utilisable pour 3 tableaux differents
Dim NomDept, NomSect, NomEquipe, Codeproj As String
' Valeurs pas défaut si pas de choix
NomDept = "(Tous)"
NomSect = "(Tous)"
NomEquipe = "(Tous)"

' Menu acceuil pour le choix des 3 zones
Sheets("ACCES TABLEAUX").Select
Range("B1").Select
NomDept = Range("B11").Value
NomSect = Range("B14").Value
NomEquipe = Range("B17").Value

Sheets(TBL).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields
("Département").CurrentPage = _ NomDept
' Traitement si valeur choisie pas presente dans le PivotField du Tbl Dynam
On Error GoTo errorDept

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields
("Secteurs").CurrentPage = _ NomSect

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields
("Equipes").CurrentPage = _ NomEquipe

Range("B1").Select

errorDept:
MsgBox "Zone " & NomDept & " n'existe pas, refaire votre selection"

End Sub

 

[Creepy]

Re : Gestion erreur dans filtre Tbl Dynamique

Bonjour,

Essaie de gérer avec err.clear et err.number

@+

Creepy