Déterminer un champ de tableau croisé dynamique par une référence

[EmmaZL]

Bonjour,

Voici mon problème. Je souhaite que la valeur d'un champ de tableau croisé dynamique soit déterminé par une référence à une autre cellule. Plus concrètement, dans l'exemple ci dessous, je souhaite pouvoir mettre, dans la cellule B7, la formule suivante : =$F$2



Saut que quand je fais ça, j'ai un joli message d'erreur :



Alors bon, je comprends bien que c'est pas possible, mais je voudrais vraiment faire ça et je voulais donc savoir s'il n'y aurait pas un moyen de contourner la chose ou si quelqu'un aurait une idée, même si c'est pour obtenir le même résultat de façon tout à fait différente (je suis open )

Merci d'avance !

Le fichier excel est en pièce jointe...

 

[EmmaZL]

Re : Déterminer un champ de tableau croisé dynamique par une référence

Me voilà de retour....

J'ai un message d'erreur :

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$C$5" Then Exit Sub
    Dim Sh As Worksheet, Pt As PivotTable
    For Each Sh In Worksheets
        For Each Pt In Sh.PivotTables
            With Pt.PivotFields("Cle_princ_adresse")
                .ClearAllFilters
                .CurrentPage = Target.Value
            End With
        Next Pt
    Next Sh
End Sub

En débogage c'est cette ligne qui est mise en surbrillance :

 .CurrentPage = Target.Value