Carte de France Excel, couleur des départements selon statistiques 2021-09-24

[Hervé S.]

Hervé. a soumis une nouvelle ressource:

Carte de France, couleur des départements selon statistiques - Mettre en couleur les départements français en fonctions de chiffres, statistiques,...

Mettez en couleurs les départements français en fonction de vos chiffes, statistiques, résultats. Si vous n’avez pas Power Map. Ajoutez vos propres colonnes de données pour mettre en forme la carte avec les couleurs des départements que vous avez choisies. Toutes les explications sont à l’intérieur du fichier.

En savoir plus sur cette ressource...

 

[Tony066]

Salut Hervé,

Merci pour ce fichier très bien fait et instructif. Je ne suis pas spécialiste du VBA mais je trouve le code léger (Donc efficace) et assez clair pour un amateur comme moi.

 

[Hervé S.]

Merci pour tes compliments. Je ne suis pas spécialistes du VBA non plus. Je suis spécialiste de fouiller sur le net pour trouver des solutions. .

 

[Hervé S.]

N'hésite pas à mettre des étoiles...

 

[Tony066]

Je n'avais pas vu où mettre les étoiles. Alors voilà c'est fait

 

[Hervé S.]

Merci pour ton super message.

 

[EGL]

Bonjour,
J'utilise la colonne 2 (commercial) pour coloriser les régions de ventes. Super
Est il possible d'ajouter un texte sur chaque département, exemple : la densité de population ?
En résumé : 1 colonne pour la couleur et 1 colonne pour un texte ?
Merci d'avance

 

[Hervé S.]

C'est peut-être possible. J'ai fais un petite test : j'ai enregistré une macro. J'ai sélectionné le département 29. J'ai saisie le texte 29. Ca donne.
Donc, en théorie, dans le vba, il faut créer une boucle qui prend en variable1(dpt) un départements, puis en variable2 la valeur dans votre colonne texte.
Ensuite, la macro va sur la carte sélectionne le département, et entre le texte. Ca devrait donner :

ActiveSheet.Shapes(dpt).Select             ' sélectionne le département
Selection.Shape(dpt).TextFrame2.TextRange.Characters.Text = variable2  '   place le texte dans le département

Est-ce clair ?
Avant cela, sélectionner TOUTE la carte, déterminer les alignements (surement centré), la taille de police.
Attention, pour les petits départements le texte ne sera pas lisible.

 

[EGL]

C'est peut-être possible. J'ai fais un petite test : j'ai enregistré une macro. J'ai sélectionné le département 29. J'ai saisie le texte 29. Ca donne.
Donc, en théorie, dans le vba, il faut créer une boucle qui prend en variable1(dpt) un départements, puis en variable2 la valeur dans votre colonne texte.
Ensuite, la macro va sur la carte sélectionne le département, et entre le texte. Ca devrait donner :

ActiveSheet.Shapes(dpt).Select             ' sélectionne le département
Selection.Shape(dpt).TextFrame2.TextRange.Characters.Text = variable2  '   place le texte dans le département

Est-ce clair ?
Avant cela, sélectionner TOUTE la carte, déterminer les alignements (surement centré), la taille de police.
Attention, pour les petits départements le texte ne sera pas lisible.

Merci pour la réponse rapide, mais mon niveau en VBA est un peu trop faible pour réussir...