Carte de France Excel, couleur des départements selon statistiques

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

Hervé S.

XLDnaute Nouveau
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

XLDnaute Nouveau
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.

XLDnaute Nouveau
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. :);)☺️.
 

EGL

XLDnaute Nouveau
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.

XLDnaute Nouveau
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 :
VB:
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

XLDnaute Nouveau
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 :
VB:
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...
 

Discussions similaires