Si valeur introuvable dans TCD

Bonjour à tous,

J'ai un fichier Excel dans lequel j'ai plusieurs macros qui modifient des TCD en fonction d'une valeur entrée dans une cellule.

Or parfois cette valeur n'exite pas dans la liste des choix disponible du TCD, j'aimerais donc que dans ce cas la macro selectionne l'ensemble des choix disponibles...

Je modifie mes TCD avec le code suivant::

Sub Pgrm()

Application.ScreenUpdating = False
Sheets("Pgrm").PivotTables("Tableau croisé dynamique2").PivotFields("XVZ"). _
        ClearAllFilters
Sheets("Pgrm").PivotTables("Tableau croisé dynamique2").PivotFields("XVZ"). _
        CurrentPage = IIf(Sheets("Infos").Range("B1").Value = "", "(All)", Sheets("Infos").Range("B1").Value)

End Sub

Merci d'avance

JJ

Bonjour,

Bonjour,

Essaie avec -->

Sub Pgrm()
Application.ScreenUpdating = False
With Sheets("Pgrm").PivotTables("Tableau croisé dynamique2").PivotFields("XVZ")
    .ClearAllFilters
    On Error Resume Next
    .CurrentPage = Sheets("Infos").Range("B1").Value
End With
End Sub

Si ok, lors de ta réponse clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Amicalement

C'est parfait!!!!!

Merci beaucoup!!