XL 2016 Impossible de définir la propriété currentpage de la classe pivotfied

[Hamadou]

Bonsoir à tous ! Je suis bloqué sur bout de code depuis quelques jours, j'ai tout essayé mais ça ne donne pas,je vous prie de m'aider.
voilà qui s'affiche "Impossible de définir la propriété currentpage de la classe pivotfied"
d'où le suivant

If Target.Address = "$B$4" Then

Application.EnableEvents = False

With Feuil9.PivotTables("Table_tcd").PivotFields("[Tableau3].[REF].[REF]")

.ClearAllFilters
.CurrentPage = Target.Value

End With

Application.EnableEvents = True

End If

 

[danielco]

Bonjour,
Essaie :

.CurrentPageName = Target.Value

Daniel

 

[Hamadou]

Bonjour,
Essaie :

.CurrentPageName = Target.Value

Daniel

Ça n'a pas marché encore, vous pouvez jeter un coup d'œil là dessus

 

[danielco]

Tu n'as pas de champ "A003", par exemple. Si tu veux filtrer, essaie :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$4" Then

   Application.EnableEvents = False
 
      With Feuil9.PivotTables("Table_tcd").PivotFields("[Tableau3].[REF].[REF]")
  
         .ClearAllFilters
'         .CurrentPageName = Target.Value
        .VisibleItemsList = Array("[Tableau3].[REF].&[" & Target.Value & "]")
      End With

   Application.EnableEvents = True
 
End If

End Sub

Daniel

 

[Hamadou]

Tu n'as pas de champ "A003", par exemple. Si tu veux filtrer, essaie :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$4" Then

   Application.EnableEvents = False
 
      With Feuil9.PivotTables("Table_tcd").PivotFields("[Tableau3].[REF].[REF]")
 
         .ClearAllFilters
'         .CurrentPageName = Target.Value
        .VisibleItemsList = Array("[Tableau3].[REF].&[" & Target.Value & "]")
      End With

   Application.EnableEvents = True
 
End If

End Sub

Daniel

Ça a marché, vraiment je vous remercie Daniel . Je n'ai pas compris pourquoi les autres codes fonction avec CurrentPage