TCD en VBA : Selectionner un champ en fonction d'une partie d'un intitulé

[Lovetize]

Bonjour à tous,

Après moult recherches, je n'arrive malheureusement pas à trouver réponse à ma question!

Dans mon module j'ai les lignes suivantes :



With ActiveSheet.PivotTables("Mon TCD" & MyValue).PivotFields( _
"Q24 - Quelle appréciation globale portez-vous sur telle chose" _
)
.Orientation = xlColumnField

.Position = 1
.PivotItems("NSP").Visible = False
' .PivotItems(" ").Visible = True
.PivotItems("assez satisfait").Position = 1
.PivotItems("très satisfait").Position = 2
.PivotItems("peu satisfait").Position = 3
.PivotItems("pas du tout satisfait").Position = 4
'.PivotItems(" ").Position = 5
End With



Ce que je souhaiterai c'est qu'au lieu de devoir écrire l'intitulé exact de la question pour créer mon TCD, il me la selectionne en indicant uniquement "Q24".

D'une année sur l'autre il y a de legers changement dans le corps de la question ... J'aimerai qu'à mon départ (et au départ de la personne qui a fait le plus gros la macro! Encore merci à lui!), tout le monde puisse l'utiliser.

J'espère que vous pourrez m'aider!
D'avance merci!