Bonjour

J'essaye de lier la ligne de mon TCD à une déroulante. En gros, je souhaite que lorsque je sélectionne une valeur de ma liste en H4.

la ligne de mon TCD se mette à jour avec la valeur sélectionnée.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = Range("H4").Address Then
 
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("H4")
        .Orientation = xlRowField
        .Position = 1
 
 
ActiveWorkbook.RefreshAll
 
End If
End Sub
exemple.xlsm

Merci de votre aide