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