Lier étiquette de ligne a une liste déroulante

Signaler
-
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.

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


Merci de votre aide