Microsoft 365 Carte de france Dynamique

[pascaleg80]

Bonjour, je souhaite créer une carte de France avec des codes couleurs par département en fonction d'un pourcentage d'atteinte. Quelqu'un peut il m'aider s'il vous plait?
Si je dois résumer, si un département à un %tage d'atteinte d'objectif inf à 80% = Rouge/ entre 80 et 90% (non inclus) = orange et au dela vert/ Si pas de %tage de renseigné, laisser le dép sans couleur.
Ci-joint un fichier pour comprendre ma demande.

Merci par avance et bonne semaine à toutes et tous

 

[pascaleg80]

re
non moi je lancerais un peu plus loin 😉 😛 😛 😛 😛 😛

par contre je viens de m'apercevoir d'un truc qui m’inquiète un peu
je viens de m'apercevoir qu'en lecture!!!!! avec les formes dessinées on a pas accès au texte dans le shape j'ai une belle erreur 1004
étonnant non?
Regarde la pièce jointe 1074467

Bonjour, effectivement, j'ai testé votre fichier et une erreur ne m'a pas permis d'aller plus loin

 

[pascaleg80]

Job,
Je crois que ce qu'elle veut c'est une carte. Et que les couleurs s'appliquent graphiquement aux départements de la carte.
D'ailleurs...

...il NE FAUT PAS être désolée, si il y en a qui commencent à peu près systématiquement par des stigmatisations, les gens ici sont là pour trouver des solutions dans la mesure du possible sans culpabiliser qui que ce soit de ne pas savoir.

Merci pour cette réponse qui me rassure. Je vous promets qu'avant de publier quelque chose, j'essaie de le faire moi même mais la je sèche complètement ;-)

 

[patricktoulon]

re
a ben ça alors sur 2007 pas d'erreur 😵 😳!!!????
pascaleg80 c'est quoi l'erreur (la description)

 

[Dudu2]

Je pense que Sylvanu va faire le code, s'il ne le fait pas (please advise), je te le ferai.

 

[sylvanu]

Re bonjour le fil,
Une première version en PJ.
La mise en couleur demandée est en cours ....
Deux écarts par rapport à la demande :
1- Les dpts 2A et 2B sont fusionnés en 20. 😱
2- Ne traite pas les DOMTOM.

 

[patricktoulon]

re

 

[sylvanu]

Re bonjour le fil,
La mise en couleur est faite.
J'ai laissé l'ancien coloriage, mais dans Pascaleg_Coul. les couleurs que vous désiriez.

 

[sylvanu]

@patrick,
MinCol et MaxCol sont définis par MinColShape et MaxColShape qui eux mêmes sont définis avec NoLine qui est une variable globale initialisée dans Worksheet_BeforeRightClick par la cellule active.

NoLine = ActiveCell.Row

Donc si on lance ex abrupto ColorShapeDpt, NoLigne n'est pas initialisée.

 

[patricktoulon]

re
oui sylvanu j'avais plus ou moins compris le problème c'est que ça n'est pas "0" mais bien le string "min" et "max" les valeurs
??????
je regarderais plus tard je suis sur un autre truc là

 

[sylvanu]

En "fonctionnement normal" lorsque vous arrivez ici, NoLigne étant initialisé, les valeurs sont correctes.

 

[pascaleg80]

Re bonjour le fil,
La mise en couleur est faite.
J'ai laissé l'ancien coloriage, mais dans Pascaleg_Coul. les couleurs que vous désiriez.

Merci beaucoup. Pouvez-vous me dire comment faire si je souhaite modifier l'échelle de couleur?

 

[sylvanu]

La votre ou la mienne ?
La votre : Module ColorShapeDptPascaleg, et l'image en DB AT4:AU12
La mienne : En jouant sur les minmax des lignes DB 103 et 104.

 

[Dudu2]

J'ai fait un petit essai from scracth.
Le problème de ces cartes c'est d'une part que la juxtaposition des Shapes des départements est parfois approximative, mais surtout que ça ne me semble pas complet (ex. il y a un trou près de Paris dans celle que j'ai utilisée qu'on détecte en colorisant tout en rouge).
J'essaierai d'en trouver une complète quelque part pour modifier le fichier joint.

 

[job75]

Puisqu'il faut une carte voyez celle-ci qui se colore quand on active la feuille "Carte" :

Private Sub Worksheet_Activate()
Dim s As Shape, c As Range
Application.ScreenUpdating = False
'---RAZ---
For Each s In Shapes
    s.Fill.ForeColor.RGB = 16777215
Next
'---Couleur---
On Error Resume Next
For Each c In Feuil1.PivotTables(1).TableRange1.Columns(1).Cells
    Set s = Nothing
    Set s = Shapes("FR-" & IIf(IsNumeric(c), Format(c, "00"), c))
    s.Fill.ForeColor.RGB = c(1, 5).DisplayFormat.Interior.Color
Next
End Sub

Edit : toutes les Shapes sont groupées, pour voir leurs noms (FR-xx) dégroupez-les.

 

[patricktoulon]

re
en effet Dudu a raison la parti 75 94 93 (paris et alentour) est tellement petite que c'est difficile de la pointer avec la souris c'est pour cela qu'il y a cette même partie agrandi a haut a droite de la carte dans mon modèle
j'ai remis la corse non fusionnée sinon Dudu2 de sa fenêtre y va me pointer avec un kalachnikov 😉 😉
a adapter a vos besoins
en l’état le click sur un département le met en rouge et en F3 on a les données

ps:
si vous la voulez avec les départements cliquables dans un userform y a qu'a demander