Changer le filtre d'un Tableau croisé dynamique en fonction du nom de la freeform selectionné

**Jean351** · 01/04/2016, 12h06

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

Invité · 02/04/2016, 07h24

Bonjour,

Un exemple dans ce fichier Pièce jointe 205661

Cordialement.

**cerede2000** · 02/04/2016, 09h07

@Eric KERGRESSE c'est toi qui t'est amusé à réaliser la carte ????
Ou ya une astuce pour convertir rapidement une image

?

Invité · 02/04/2016, 10h17

Envoyé par cerede2000

@Eric KERGRESSE c'est toi qui t'est amusé à réaliser la carte ????
Ou ya une astuce pour convertir rapidement une image

?

Bonjour Cerede2000,

Non, j'avais répondu à un post du forum. J'ai réutilisé cette carte pour d'autres applications. Il doit y avoir d'autres messages avec cette carte.

Par ailleurs, j'avais répondu à ce poste recuperation-dimensions-shapes/ de GORDON72.

J'ai réutilisé son idée pour créer un outil pour formater des shapes.

Le vidage d'écran ci-dessous montre le fonctionnement de cet outil :

Pièce jointe 205669

A partir de Google Maps, tu récupères la limite de ta commune en tapant simplement son nom. Tu en fais une capture d'écran et un fichier que tu charges dans l'objet Image de l'outil. Tu mets en mode définition, le tableau des points se remplit au fur et à mesure de tes clics sur la carte. Dans l'exemple, le contour représente 166 points (à l'arrache donc pas trop précis). Le bouton crée la forme que tu vois à droite. Pour plus de précision, il faut agrandir l'image et prendre son temps. Il faut moins de 2 minutes pour réaliser cette forme.

Cordialement.