Créer une "carte choroplèthe" sur Excel 2019Résolu/Fermé

Question

Bonsoir,

J'aimerais créer, sur Excel 2019, une "carte choroplèthe" (carte avec plusieurs couleurs ou niveaux de couleurs qui définissent une valeur comme ceci par exemple : https://fr.wikipedia.org/wiki/Carte_choropl%C3%A8the#/media/Fichier:2004US_election_map.svg) en utilisant des codes postaux comme valeurs.

Est-ce que quelqu'un à un exemple simple d'utilisation ou une explication plus simple que ce qu'on trouve sur le net afin de réaliser ce genre de carte ?

Merci d'avance !

Raymond PENTIER · Answer

Bonjour.

Non, il n'y a pas d'explication simple, car le logiciel n'est pas simple à exploiter.
https://www.bing.com/search?q=carte+choroplethe+excel&form=EDGEAR&qs=SC&cvid=e06b0d0ebe8b482f8829c6cb17bbb30c&cc=FR&setlang=fr-FR&elv=AQj93OAhDTi%2AHzTv1paQdniLSBGjqiBeqhef%21tehvUikVt8Jv1m%21HseWQouQbWokjdN8BuvXrjx1Ir8ELcEp8Vle3L3A9jD%2AeEt5witlK8zz

via55 · Answer

Bonjour

Il faut d'abord te procurer une carte vectorielle de la région ou pays concerné où chaque territoire est un shape (forme) indépendant (format svg en général)
Ensuite par macro tu peux faire colorer chaque forme selon un tableau de donnée et une légende
Exemple avec la carte des régions françaises :
https://cjoint.com/c/JDDwXd38GfI

Cdlmnt
Via

via55 · Answer

Re,

Dans mon fichier dans l'éditeur VBA tu as le code
1) Les noms des shapes doivent être identiques à ceux dans la liste de la feuille de données (delais2)
2) La macro boucle sur les lignes de cette feuille de données et lit le nom de la région et la valeur attribuée
Sub colorer2()
Dim nom As String
For n = 3 To 15
nom = Sheets("delais2").Range("A" & n).Value ' nom de la region
delai = Sheets("delais2").Range("B" & n).Value ' délai pour la région
'En fonction du délai récupère le couleur de la légende
If delai = 24 Then col = ActiveSheet.Range("b2").Interior.Color Else If delai = 48 Then col = ActiveSheet.Range("b4").Interior.Color Else If delai = 72 Then col = ActiveSheet.Range("b6").Interior.Color Else col = ActiveSheet.Range("b8").Interior.Color
ActiveSheet.Shapes(nom).Fill.ForeColor.RGB = col ' colorie le shape
Next
End Sub

Si tu n'arrives pas adapter poste ton fichier sur cjoint.com, copie le lien créé et reviens le colelr ici, je regarderai

Cdlmnt
Via

via55 · Answer

Re

Ton fichier avec la macro
https://www.cjoint.com/c/JDEreN7mX6I

Tu peux changer les couleurs dans la légende et relancer la macro avec le bouton
ALT+F11 pour voir le code

Cdlmnt
Via

Créer une "carte choroplèthe" sur Excel 2019

4 réponses

Discussions similaires

Newsletters