Bonjour,
Ma demande est dans le titre^^. Je vais tout de même apporter quelques précisions ainsi que le code que j'ai essayé mais qui hélas ne fonctionne pas. J'ai une carte de France avec l'ensemble des départements, chaque département forme une freeform unique avec comme nom le numéro du département correspondant. A coté ça un tableau de bord avec comme filtre "dpt" (n° département) et 'mois ' ( qui ici à peu d'importance). Ce que je souhaite c'est que quand je clique sur la forme x le filtre de mon tableau de bord se modifie et prenne le nom de la forme. J'ai essayé ça
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub testFreeForm()
Dim S As MsoShapeType
If S = msoFreeform Then
 ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("dpt"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("dpt"). _
CurrentPage = freeform.Name
End If
End Sub
Qui se déclenche sur click du département,
D'autre part est-il possible de boucler avec par exemple un for each s.selected ....?

Si quelqu’un pouvais m'aider ou au moins me donner une piste
Cordialement,
Jean