selection automatique dans un TCD

fredannab

XLDnaute Nouveau
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...

Code:
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!
 

Discussions similaires