Selection valeur dans TCD

Bonjour

J'ai un tableau avec une liste de references

Dans une autre fuille, j'ai un TCD avec un champ "Reference code"

J'aimerais que ma macro:

• selectionne la ref sur laquelle je suis (selection.copy)
• puis selectionne automatiquement cette reference dans le TCD

J'ai commencé comme ça et ai essayé sans comprendre avec des copier coller de forums, mais je seche...

Sub testtcd()
'
' testtcd Macro
'

Dim SKU As String

    SKU = Selection.Copy

    Sheets("sales LE WW (2)").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Reference code").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=SKU

    Range("D16").Select
End Sub

Please Help !

Bonjour et bienvenue,

Merci de joindre un fichier pour une aide adaptée du forum.

Cdlt.

Merci,

Malheureusement pas possible, le fichier est lourd et les données confidentielles...

Bonjour à tous

Pourquoi ne pas utiliser tout bêtement un segment ?

Re,

C'est une solution, comme proposé sur un autre forum !...

Cdlt.

Oui j'y avais pensé, mais ça n’empêche pas de devoir dérouler une liste de 800refs pour sélectionner la bonne, donc ça ne change rien.

C'est vraiment sélectionner une ref, la paramétrer comme variable, et dire au tcd de sélectionner la valeur de cette variable dans le champ qui va bien...

MErci

Bonjour,

Une proposition à adapter.

Cdlt.

Sub FilterPivotField()
Dim ws As Worksheet, pt As PivotTable, ACell As Range

    Set ACell = ActiveCell
    Set ws = Worksheets("sales LE WW (2)")
    Set pt = ws.PivotTables("Tableau crois? dynamique4")

    With pt
        .PivotCache.Refresh
        .ManualUpdate = True
        With .PivotFields("Reference code")
            .ClearAllFilters
            .PivotFilters.Add Type:=xlCaptionEquals, Value1:=ACell.Value
        End With
        .ManualUpdate = False
    End With

    With ws
        .Activate
        .Cells(16, 4).Select
    End With

End Sub