WTF
XLDnaute Impliqué
Bonjour à tous,
J'ai créé un TCD à partir de Power Pivot.
Mon TCD est sur l'onglet "TCD" de mon fichier et s'appelle "TCD_Data"
Je souhaiterais que le filtre qui est sur la catégorie "code_soc" s'actualise automatiquement en fonction de ma cellule "SOCIETE" (ou : 'Feuille de saisie'!C28).
J'ai trouvé sur le site extendoffice.com un code que j'ai essayé d'adapter de la façon suivante :
Mais cela ne fonctionne pas.
Est ce que vous sauriez m'aider ? Un fichier d'exemple en PJ
Merci à tous
J'ai créé un TCD à partir de Power Pivot.
Mon TCD est sur l'onglet "TCD" de mon fichier et s'appelle "TCD_Data"
Je souhaiterais que le filtre qui est sur la catégorie "code_soc" s'actualise automatiquement en fonction de ma cellule "SOCIETE" (ou : 'Feuille de saisie'!C28).
J'ai trouvé sur le site extendoffice.com un code que j'ai essayé d'adapter de la façon suivante :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("SOCIETE")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("TCD").PivotTables("TCD_Data")
Set xPFile = xPTable.PivotFields("code_soc")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
Mais cela ne fonctionne pas.
Est ce que vous sauriez m'aider ? Un fichier d'exemple en PJ
Merci à tous