Discussion :

[idesvald]

Bonjour,

Je souhaite présenter les résultats d'une étude de façon plus visuel. Considérons qu'il s'agit de montrer des résultats de vente par arrondissement sur paris.


plutôt que de montrer un simple tableau, je souhaite faire apparaitre les résultats sur une carte de paris


J'aimerais que la couleur des formes (chaque arrondissement est une forme) soit la même que celle de la cellule (les couleurs des cellules sont issues d'une mise en forme conditionnelle)

L'un de vous sait m'aider ?


Merci !

[78chris]

Bonjour

Sous réserve

• d'ajouter l'arrondissement manquant 75015,
• [de redéfinir les étiquettes en conséquence à partir de cet arrondissement]
• de renommer chaque forme avec le "nom" de l'arrondissement 75001, 75020...
• d'adapter le nom du groupe dans le code (le nom du groupe change si on dissocie-regroupe). Je l'ai appelé Paris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub MFC_Formes()
    With [Feuil1]
        For Each Forme In .Shapes("Paris").GroupItems
            Set Ardt = .Range("A4:A23").Find(Forme.Name)
            Forme.DrawingObject.Interior.Color = Ardt.Offset(0, 1).DisplayFormat.Interior.Color
        Next
    End With
End Sub

[joe.levrai]

Bonjour,
super le DisplayFormat ! Je ne connaissais pas, habitué de lire (y compris sur ce forum) que récupérer une couleur appliquée par MEF devait se baser sur la reconstitution de la formule logique qui l'appliquait

X10

[78chris]

Bonjour

...super le DisplayFormat ! Je ne connaissais pas, habitué de lire (y compris sur ce forum) que récupérer une couleur appliquée par MEF devait se baser sur la reconstitution de la formule logique qui l'appliquait

Idem pour moi, je l'ai découvert en cherchant comment trouver les teintes intermédiaires en cas de nuances de couleurs.
Me semble l'avoir aperçu sur un post mais sans tilter !

Cette fois c'est retenu

[idesvald]

Merci, c'est parfait ca marche par contre si je joue avec mes segment je suis obligé de ré-exécuter la requete à chaque fois pour que la couleur s'adapte.

Avez-vous une technique pour que la couleur s'adapte d'elle-même à chaque changement sur les segment ?

Je montre le pb dans cette vidéo : https://www.screencast.com/t/SfosImdNE


Merci !!

[78chris]

Bonjour

On le dit et on le répéte : quitte à joindre un fichier, celui-ci doit être réprésentatif !

Tu n'a pas parlé de TCD et ton exemple n'en contient pas...

Il faut paramétrer le champ pour afficher les éléments sans données afin de conserver tous les arrondissements quel que soit le filtre

Créer une procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Call MFC_Formes
End Sub

dans le module de la feuille contenant le TCD