|
|
OFFICE : Dessiner une carte de france avec les fonctions de dessins
Date de publication : 15/10/09 , Date de mise à jour : 15/10/09
Par
Thierry GASPERMENT (arkham46.developpez.com/)
Apprenez à dessiner dans Office une carte de France à partir de données SVG.
Cet article s'applique à Excel, Word et Powerpoint.
21 commentaires
Cet article s'applique à Excel, Word et Powerpoint.
21 commentaires
I. Introduction
II. Dessiner des formes libres dans Office
III. Trouver les coordonnées des départements français
IV. Le format SVG
V. Lecture des données et création des formes
V-A. Import du SVG dans une feuille Excel
V-B. Import du SVG avec la librairie Microsoft XML
V-C. Fichiers exemples
VI. Colorier la carte
VII. Détecter le clic sur un département
VIII. Comment faire avec Microsoft Access ?
IX. Conclusion
X. Téléchargement
I. Introduction
Nous allons au cours de ce tutoriel dessiner une carte de France avec son découpage par département.
Chaque département pourra ensuite être colorié pour mettre des données en évidence.
Si vous n'êtes pas à l'aise avec VBA, vous pouvez tout de même copier-coller la carte des exemples pour l'utiliser dans vos documents.
II. Dessiner des formes libres dans Office
Vous avez sans doute déjà utilisé les outils de dessin pour créer des formes.
Pour afficher la barre d'outils de dessin : Affichage => Barres d'outils => Dessin.
Sélectionnez ensuite dans cette barre d'outils : Forme automatique => Lignes => Forme Libre.
À partir de Office 2007, choisissez dans l'onglet Insertion : Formes => Lignes => Forme Libre.
Activez l'enregistreur de Macro (dans Excel ou Word) ; si besoin consultez ce tutoriel pour savoir comment faire : Initiation au VBA Office
Vous pouvez alors tracer une forme quelconque, composée de segments et de courbes.
Voici le code VBA généré par l'enregistreur de Macro :
| Code de dessin d'une forme libre |
|
Ce code s'explique ainsi :
1 - BuildFreeform commence une nouvelle forme libre en donnant les coordonnées du point initial.
2 - AddNodes ajoute des segments ou des courbes.
3 - ConvertToShape finalise la forme, BuildFreeform renvoyant un constructeur de forme et non pas une forme visible.
On remarque que :
- un segment est créé en donnant le point de destination, le point source étant le point précédent.
- une courbe est créée à partir de 3 points : le premier point est le point de destination, les deux autres points sont des points de contrôle utilisés pour générer la courbe.
Suite à ces premiers essais, on se pose la question suivante :
- Ne pourrait-on pas créer des formes qui suivent le contour des départements pour générer une carte de France ?
La réponse est bien entendu positive, nous allons voir comment procéder.
III. Trouver les coordonnées des départements français
Afin de créer les formes qui représenteront les départements, il faut trouver les coordonnées des contours de ces départements.
Les contours précis des départements sont disponibles sur le site de l'IGN (base de données GEOFLA).
Malheureusement, les fichiers ne sont pas libres pour une utilisation commerciale.
Pour nos besoins, des contours simplifiés suffisent amplement.
Nous allons trouver ces contours dans des fichiers SVG.
Des fichiers sont disponibles sur le site Wikimedia :
Nous utiliserons ce fichier : Départements et régions de France
Il est indiqué sur la page que ce fichier est libre.
Les contours précis des départements sont disponibles sur le site de l'IGN (base de données GEOFLA).
Malheureusement, les fichiers ne sont pas libres pour une utilisation commerciale.
Pour nos besoins, des contours simplifiés suffisent amplement.
Nous allons trouver ces contours dans des fichiers SVG.
Des fichiers sont disponibles sur le site Wikimedia :
Nous utiliserons ce fichier : Départements et régions de France
Il est indiqué sur la page que ce fichier est libre.
IV. Le format SVG
En quoi une image au format SVG va-t-elle nous aider ?
Le format SVG est une représentation vectorielle d'une image : c'est-à-dire que l'image est décomposée en segment, courbe, ...
Ouvrez le fichier Départements et régions de France avec un éditeur de texte (Wordpad par exemple).
En début de fichier, la première ligne nous informe que nous lisons en fait un fichier XML :
Le format SVG est une représentation vectorielle d'une image : c'est-à-dire que l'image est décomposée en segment, courbe, ...
Ouvrez le fichier Départements et régions de France avec un éditeur de texte (Wordpad par exemple).
En début de fichier, la première ligne nous informe que nous lisons en fait un fichier XML :
| En-tête du fichier SVG |
|
Regardons un peu plus bas dans le fichier, nous trouvons plusieurs couches de données (layer), dont une qui va particulièrement nous intéresser : la couche Départements :
| Couche départements |
|
On découvre les coordonnées des contours des départements dans l'élément path, attribut d.
Consultez les spécifications du format SVG pour comprendre le contenu de cet attribut :
- M est un déplacement qui définit donc le premier point.
- L est un tracé de segment du point courant vers un autre point qui devient le point courant.
- C est un tracé de courbe à partir de 3 points.
- z ferme le tracé.
Il est alors possible de faire une analogie avec le code VBA généré précédemment à la construction d'une forme libre :
- M => BuildFreeform.
- L => AddNodes msoSegmentLine.
- C => AddNodes msoSegmentCurve.
- z => ConvertToShape.
V. Lecture des données et création des formes
Nous allons voir 2 méthodes pour importer les données de contour.
La première méthode utilise Excel, la deuxième méthode utilise la librairie Microsoft XML.
V-A. Import du SVG dans une feuille Excel
Ouvrez le fichier svg directement avec Excel.
Les données sont affichées "à plat" dans une feuille.
Repérez les données de la couche Départements.
Copiez-collez ensuite les données dans une feuille de votre classeur, que nous nommons Departements.
Ne gardez que les données utiles :
- les contours de la colonne d.
- les identifiants de la colonne id15.
- les noms des départements de la colonne ns4:label16.
Nous pouvons maintenant parcourir cette feuille et créer les formes correspondant à chaque département :
Ouvrez l'éditeur VBA (Alt + F11) puis insérez un nouveau module (Insertion => Module).
Si l'instruction n'y est pas déjà, ajoutez Option Explicit en début de module.
Ensuite nous écrivons une fonction CreateShapes qui va créer les formes des départements :
Cette fonction ne sera utilisée qu'une seule fois.
Elle pourra être supprimée une fois la carte de France générée.
Les données sont affichées "à plat" dans une feuille.
Repérez les données de la couche Départements.
Copiez-collez ensuite les données dans une feuille de votre classeur, que nous nommons Departements.
Ne gardez que les données utiles :
- les contours de la colonne d.
- les identifiants de la colonne id15.
- les noms des départements de la colonne ns4:label16.
Nous pouvons maintenant parcourir cette feuille et créer les formes correspondant à chaque département :
Ouvrez l'éditeur VBA (Alt + F11) puis insérez un nouveau module (Insertion => Module).
Si l'instruction n'y est pas déjà, ajoutez Option Explicit en début de module.
Ensuite nous écrivons une fonction CreateShapes qui va créer les formes des départements :
Cette fonction ne sera utilisée qu'une seule fois.
Elle pourra être supprimée une fois la carte de France générée.
|
Dans cette fonction, on commence par définir l'objet oSheet qui est notre feuille de travail.
Puis on parcourt les lignes qui contiennent les données de 1 à 96.
Comme c'est une fonction à usage unique, on se permet d'indiquer en dur les numéros de ligne.
Les données de contour prises dans la colonne 2 sont stockées dans la variable lCoord.
On remplace ensuite les virgules par des espaces.
On obtient ainsi une chaîne d'instructions (M, L, C, z) et de coordonnées séparées par des espaces.
Cette chaîne de caractères est alors découpée avec l'instruction Split pour être injectée dans un tableau lCoordArray.
Il est plus facile de parcourir un tableau qu'une chaîne de caractères.
Lors du parcours de ce tableau, on effectue une action différente en fonction de l'instruction rencontrée :
- M : c'est le début de la forme : on initialise le constructeur de forme avec la fonction BuildFreeform.
- L : c'est l'instruction de tracé de segment que nous traduisons par la fonction .AddNodes msoSegmentLine.
- C : c'est l'instruction de tracé de courbe que nous traduisons par la fonction .AddNodes msoSegmentCurve.
- z : c'est l'instruction de fin de forme que nous traduisons par la fonction ConvertToShape pour traduire le constructeur en forme.
Les coordonnées sont multipliées par 10 afin de contourner un petit problème lors de la construction du premier segment.
En effet si le deuxième point de la forme libre est trop proche du premier, la fonction ConvertToShape renvoit une erreur 1004.
En multipliant les valeurs par 10, on évite cette erreur : ensuite nous réduirons la taille de la carte pour l'afficher à sa taille initiale.
Remarque : j'ai observé cette erreur avec Excel 2002.
On donne comme nom de chaque forme créée l'identifiant de la région : FR-01, FR-02, ...
Puis on ajoute ce nom de forme au tableau lShapeRange.
Ce tableau nous est ensuite utile pour regrouper toutes les formes des départements en un groupe nommé CarteFrance.
Notez qu'on divise la taille du groupe par 20 (avec ScaleHeight et ScaleWidth) pour obtenir une carte de taille raisonnable.
La propriété LockAspectRatio permet de verrouiller le rapport hauteur/largeur du groupe afin de pouvoir redimensionner proprement la carte manuellement.
Exécutez la fonction CreateShapes (F5) : la carte de France est générée sur la feuille Departements.
V-B. Import du SVG avec la librairie Microsoft XML
Il est également possible de générer la carte directement à partir du fichier svg.
Nous allons le faire avec Word.
Créez un nouveau fichier Word.
Placez le fichier Départements et régions de France dans le même répertoire que ce fichier Word.
Ouvrez l'éditeur VBA (Alt + F11) puis insérez un nouveau module (Insertion => Module).
Si l'instruction n'y est pas déjà, ajoutez Option Explicit en début de module.
Dans le menu, sélectionnez : Outils => Références et cochez la librairie Microsoft XML, v3.0 (ou une autre version si nécessaire).
Cette librairie nous permet de charger et parcourir un fichier XML.
Ensuite nous écrivons une fonction CreateShapes qui va créer les formes des départements :
Cette fonction ne sera utilisée qu'une seule fois pour générer les formes.
Elle pourra être supprimée une fois la carte de France générée.
Nous allons le faire avec Word.
Créez un nouveau fichier Word.
Placez le fichier Départements et régions de France dans le même répertoire que ce fichier Word.
Ouvrez l'éditeur VBA (Alt + F11) puis insérez un nouveau module (Insertion => Module).
Si l'instruction n'y est pas déjà, ajoutez Option Explicit en début de module.
Dans le menu, sélectionnez : Outils => Références et cochez la librairie Microsoft XML, v3.0 (ou une autre version si nécessaire).
Cette librairie nous permet de charger et parcourir un fichier XML.
Ensuite nous écrivons une fonction CreateShapes qui va créer les formes des départements :
Cette fonction ne sera utilisée qu'une seule fois pour générer les formes.
Elle pourra être supprimée une fois la carte de France générée.
|
On parcourt les éléments du XML avec la collection ChildNodes.
La collection Attributes de chaque élément permet de parcourir les données de chaque élément (Identifiant, Coordonnées, ...).
Le code de génération des formes est identique au code précédent avec Excel, mis à part que l'erreur rencontrée avec Excel lors de points trop rapprochés n'apparaît pas dans Word (2002).
On retire donc le multiplicateur (* 10) qui n'est pas utile ici.
Exécutez la fonction CreateShapes (F5) : la carte de France est générée sur le document courant.
Notez que le code pour générer une carte dans Powerpoint est identique, mis à part l'objet oDoc qui doit être remplacé par un objet de type Slide.
Remarque : j'ai été confronté au même problème avec Powerpoint (2002) qu'avec Excel et j'ai dû multiplier les coordonnées par 10 pour ne plus avoir d'erreur.
Une fois la carte générée, la fonction CreateShapes n'est plus utile et peut être supprimée.
La référence à la librairie Microsoft XML peut également être retirée.
V-C. Fichiers exemples
Les fichiers suivants contiennent une application Office (Word, Excel ou Powerpoint) et le fichier svg des départements de France.
Chaque application contient une carte de France déjà générée et le code VBA utilisé.
Exemple Excel (HTTP)
Exemple Powerpoint (HTTP)
Exemple Word (HTTP)
Chaque application contient une carte de France déjà générée et le code VBA utilisé.
Exemple Excel (HTTP)
Exemple Powerpoint (HTTP)
Exemple Word (HTTP)
VI. Colorier la carte
Maintenant que notre carte est créée, nous souhaitons la colorier.
Nous allons dans un premier temps le faire dans Excel.
Créez un nouveau classeur Excel.
Renommez la première feuille CA et inscrivez-y par exemple des chiffres d'affaires :
Nous souhaitons maintenant colorier la carte en fonction de la progression du chiffre d'affaire entre 2008 et 2009 :
- en vert les départements dont le chiffre d'affaires a augmenté.
- en rouge les départements dont le chiffre d'affaires a diminué.
Copier la carte de France du classeur du chapitre précédent.
Collez-la dans la feuille CA du nouveau classeur, à droite des chiffres.
Ajoutez à côté de la carte une forme de votre choix, qui ressemble à un bouton.
Cliquez avec le bouton droit sur cette forme et choisissez Ajoutez un texte : saisissez un texte, par exemple Rafraîchir la carte.
Ce bouton va déclencher du code VBA : cliquez avec le bouton droit sur la forme et choisissez Affecter une Macro.
Nommez éventuellement la macro (ColorMap par exemple) et cliquez sur Nouveau.
Vous êtes redirigés dans l'éditeur VBA, dans la procédure vide nouvellement créée :
| Procédure de coloration de la carte |
|
Il suffit alors de parcourir les données de la feuille CA et de rechercher la forme représentant le département pour la colorier.
Voici la procédure complète :
| Procédure de coloration de la carte |
|
Exécutez cette procédure (F5) ou cliquez sur le bouton sur la feuille CA pour colorier la carte :
Pour colorier directement la carte lors d'une modification de chiffre d'affaire, il est possible d'utiliser l'événement Change de la feuille :
Dans le module de code de la feuille CA.
| Coloration de la carte sur changement dans la feuille CA |
|
Si on modifie un chiffre d'affaire, la carte est alors automatiquement mise à jour.
Télécharger le classeur Excel de ce chapitre :
Carte coloriée avec Excel (HTTP)
VII. Détecter le clic sur un département
Peut-être souhaitez vous maintenant pouvoir agir sur clic sur un département ?
Créez un nouveau classeur Excel et copiez-collez la carte de France de ce classeur.
Cliquez avec le bouton droit sur la carte et choisissez Affecter une Macro.
Nommez éventuellement la macro selon votre besoin et cliquez sur Nouveau.
Vous êtes redirigés dans l'éditeur VBA, dans la procédure vide nouvellement créée :
Créez un nouveau classeur Excel et copiez-collez la carte de France de ce classeur.
Cliquez avec le bouton droit sur la carte et choisissez Affecter une Macro.
Nommez éventuellement la macro selon votre besoin et cliquez sur Nouveau.
Vous êtes redirigés dans l'éditeur VBA, dans la procédure vide nouvellement créée :
| Procédure appelée lors du clic sur la carte |
|
Dans cette procédure, pour connaître le département qui a provoqué le clic, il suffit de lire la propriété Application.Caller.
| Procédure appelée lors du clic sur la carte |
|
Cliquez sur les départements pour tester la procédure.
Vous pouvez maintenant agir en fonction de la valeur renvoyée par Application.Caller.
Pour illustrer cette technique, voici un petit jeu sous Excel dont le but est de cliquer sur le département demandé :
Jeu des départements Excel (HTTP)
VIII. Comment faire avec Microsoft Access ?
Les dessins de formes libres ne sont pas disponibles dans Access.
Il est cependant possible de dessiner une carte :
- sur un état : Apprendre à Ecrire et Dessiner dans les états Access.
- ou sur un formulaire en utilisant gdi32 ou gdi+.
Vous pouvez aussi étudier ces bases de données : Affichage d'information sur carte géographique, avec gdi+.
IX. Conclusion
Nous voici donc armés d'une carte de France réutilisable à loisir.
Il suffit de la copier-coller dans un document Word, Excel, ou Powerpoint.
Cela ne vous a sans doute pas échappé, il est possible d'aller plus loin en utilisant d'autres couches de données des fichiers svg :
- Affichage zoomé de la région parisienne.
- Dessin de cercles pour les préfectures.
- Affichage des numéros des départements.
- ...
Si vous améliorez la carte de France, n'hésitez pas à poster un message dans le forum sur la discussion donnée dans le synopsis.
X. Téléchargement
=> Les fichiers suivants contiennent une application Office (Word, Excel ou Powerpoint) et le fichier svg des départements de France.
Chaque application contient une carte de France déjà générée et le code VBA utilisé.
Exemple Excel (HTTP)
Exemple Powerpoint (HTTP)
Exemple Word (HTTP)
=> Télécharger le classeur Excel de la carte coloriée en fonction de la progression du chiffre d'affaire :
Carte coloriée avec Excel (HTTP)
=> Télécharger le jeu des départements sous Excel :
Jeu des départements Excel (HTTP)
Chaque application contient une carte de France déjà générée et le code VBA utilisé.
Exemple Excel (HTTP)
Exemple Powerpoint (HTTP)
Exemple Word (HTTP)
=> Télécharger le classeur Excel de la carte coloriée en fonction de la progression du chiffre d'affaire :
Carte coloriée avec Excel (HTTP)
=> Télécharger le jeu des départements sous Excel :
Jeu des départements Excel (HTTP)
Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2009 Thierry GASPERMENT. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts. Droits de diffusion permanents accordés à Developpez LLC. Cette page est déposée.
Copyright © 2000-2012 - www.developpez.com