selection automatique dans un TCD

[fredannab]

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!

 

[merinos-BernardEtang]

quelque chose comme cela?