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

Résolu/Fermé

STVNA Messages postés 31 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 30 avril 2020 - 29 avril 2020 à 23:36
STVNA Messages postés 31 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 30 avril 2020 - 30 avril 2020 à 19:10

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 !

A voir également:

Carte choroplèthe excel
Liste déroulante excel - Guide
Mail sos carte - Forum Vos droits sur internet
Formule excel - Guide
Carte bancaire machine à laver ✓ - Forum Matériel & Système
Si et excel - Guide

4 réponses

Réponse 1 / 4

Raymond PENTIER Messages postés 58387 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 16 avril 2024 17 087
29 avril 2020 à 23:41

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

Réponse 2 / 4

via55 Messages postés 14398 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 10 avril 2024 2 701
30 avril 2020 à 00:49

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

STVNA Messages postés 31 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 30 avril 2020
30 avril 2020 à 16:34

Merci beaucoup pour votre réponse ! Je viens de télécharger une carte vectorielle, mais je ne comprends pas bien le code dans VBA pour l'activer sur ma carte. Pouvez-vous m'envoyer le code et m'expliquer ce qu'il faut mettre dans chaque partie si ma feuille 1 = ma base de données (provinces et codes postaux) et si ma feuille 2 = ma carte ?

STVNA Messages postés 31 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 30 avril 2020 > STVNA Messages postés 31 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 30 avril 2020
30 avril 2020 à 16:39

J'ai une liste de différents codes postaux qui correspondent à des provinces (de Belgique). Plusieurs codes postaux correspondent à la même province. Mon but est que les provinces soient colorées en fonction du plus grand nombre de codes postaux dans la même province. Donc, s'il y a 4 fois un code postal pour la province du Hainaut et 2 fois un code postal pour la province de Liège, la province du Hainaut sera colorée avec une couleur plus foncé.

Réponse 3 / 4

via55 Messages postés 14398 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 10 avril 2024 2 701
30 avril 2020 à 16:49

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

STVNA Messages postés 31 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 30 avril 2020
30 avril 2020 à 18:09

Rebonjour,

Merci pour la réponse ! Mais oui je veux bien que vous essayez. Voici le lien : https://www.cjoint.com/c/JDEqhO4D53k.

La carte est en feuille 1 et la base de données en 2.

Merci d'avance !

Réponse 4 / 4

via55 Messages postés 14398 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 10 avril 2024 2 701
Modifié le 30 avril 2020 à 19:05

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

STVNA Messages postés 31 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 30 avril 2020
30 avril 2020 à 19:10

Un grand merci à vous, c'est super !

Discussions similaires

Carte de france modifiable

carte de france dans excel

Comment colorer une carte de France

Comment tracer un rayon de xx km autour de chez moi ?

Le code postal d Dakar

Code postal à Dakar

Discussions similaires

Newsletters