Lier etiquette de ligne d'un TCD à une liste déroulante

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

20exemple.xlsm (16.79 Ko)

Bonjour

Changer la structure d'un TCD ainsi ne me parait pas une bonne idée.

Fait plutôt 2 TCD et selon le choix tu affiche masque la plage ou la feuille de l'un ou l'autre.

Le soucis, c'est que la liste déroulante est longue et je voudrais créer des graphique en fonction de choix.

Je sais que cela est possible et que j'en suis pas lion avec le code..

merci