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

Hamadou · 2 Juin 2024

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 · 2 Juin 2024

Bonjour,
Essaie :

VB:

.CurrentPageName = Target.Value

Daniel

Hamadou · 2 Juin 2024

danielco à dit:
Bonjour,
Essaie :

VB:

.CurrentPageName = Target.Value

Daniel

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

danielco · 2 Juin 2024

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

VB:

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 · 2 Juin 2024

danielco à dit:

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

VB:

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

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

Hamadou

XLDnaute Nouveau

danielco

XLDnaute Accro

Hamadou

XLDnaute Nouveau

Pièces jointes

danielco

XLDnaute Accro

Hamadou

XLDnaute Nouveau

Discussions similaires