Discussion :

[Arkham46]

Bonjour à tous,

Vous pouvez sur cette discussion commenter l'article suivant :
Dessiner une carte de france avec les fonctions de dessins de formes libres

Aperçu :


Pensez également à ajouter une note. ("Noter la discussion" en haut à droite)
Votre avis nous intéresse.

[Invité]

Salut

Excellent tuto qui ouvre des possibilités énormes de présentations géographiques pour des jeux, des statistiques, etc ...

[jjker]

Bonsoir
C'était juste pour signaler que j'avais utilisé une technique similaire dans les années 88 (de mémoire) sous Quattro Pro pour Dos, à l'aide d'un programme Pascal qui récupérait les contours départementaux dans une base binaire au format fermé que j'avais quand même réussi à décrypter, et les envoyait dans le langage macro de Quattro.
Ca marchait du tonnerre. Et comme Quattro connaissait déjà les graphiques à bulles (présents dans la prochaine version 3.2 de OOo tout de même !), j'avais pu illustrer les chiffres par des cercles proportionnels, et même finalement par des hémicycles proportionnels contenant des secteurs eux-mêmes proportionnels. Tout cela grâce au langage macro de Quattro (un magnifique produit de Borland très en avance sur Excel ou 123 à l'époque) pourtant complètement indépendant du Turbo Pascal, lui aussi de Borland.

Que d'émotions et de souvenirs ! C'était juste après l'épopée des derniers Sinclair, dont le QL qui avait été le premier à démocratiser le tableur sur des mini-cassettes.

Malheureusement bien entendu je ne retrouve plus les sources depuis longtemps et de toute façon qui a encore une machine capable de faire tourner Quattro Pro sous Dos ??

En tout cas, ce tuto est très bien fait et plein de promesses.
Merci à ses auteurs.

[arno31]

Bonjour,
J'ai suivi votre tuto que j'ai beaucoup aimé et j'ai fait quelques petites améliorations au niveau de l'affichage du département sélectionné (le département concerné est mis en transparence et le nom du département est affiché dans une forme prévue à cet effet). Donc je partage le résultat si ça intéresse quelqu'un.

[Pierre Fauconnier]

Salut!

Y a pas à dire... C'est bôôôô... et surtout utile.

Merci. Continue...!

[gksig]

Bonsoir,

Belles perspectives pour une utilisation annexe avec un SIG. J'ai voulu tester les formes libres (comme dans l'article) mais l'enregistreur de macro (sous Excel 2007) ne génère pas de code . Après dessin d'une forme libre, la macro enregistrée est vide.

D'autres actions (saisie dans une cellule, formatage, sélection) sont toutes présentes dans la macro, mais pas le dessin.

Que me manque t'il ?

Merci pour un petit coup de pouce explicatif

[Arkham46]

Bjr,

J'ai voulu tester les formes libres (comme dans l'article) mais l'enregistreur de macro (sous Excel 2007) ne génère pas de code . Après dessin d'une forme libre, la macro enregistrée est vide.

Effectivement je n'ai pas non plus d'enregistrement des dessins faits sous Excel 2007.
D'autant plus étrange que dans Word 2007 ça fonctionne.

[gksig]

Bonjour,

Effectivement sous Word 2007 l'enregistreur de macros transcrit bien les actions de dessin d'une forme.

J'ai copié/collé la macro dans VBE Excel 2007 en remplaçant bien entendu "ActiveDocument" par "ActiveSheet".

L'exécution de la macro recrée bien la forme dans la feuille active Excel.

Avez-vous des interlocuteurs chez Microsoft à qui soumettre ce problème ?

Mais on a quand même des solutions de repli en copiant les macros de VBE Word vers VBE Excel

Bonne journée

[Lamperti]

Bonjour à tous,

Nouveau en vba, nouveau sur le site, tout d'abord BRAVO à la qualité que j'ai pu y trouver, tant sur l'assistance que sur la qualité des réponses.

J'ai suivi le pdf génial de Arkham46 et j'y suis arrivé après quelques erreurs de débutant. Mes cartes fonctionnent à merveille.

Je souhaite ajouter les numéros ou les noms des départements ... et c'est là que ça se complique. J'ai bien trouvé les coordonnées xy et les ID dans l'export SVG, mais j'ai beau essayer, je n'arrive pas "programmer " les textbox par dessus mes shapes des départements.

Une âme charitable aurait-elle quelques minutes à m'accorder du début (sub) à la fin (endsub) ?
Je suis sous Excel 2003

Merci par avance

[Arkham46]

bjr,

Je souhaite ajouter les numéros ou les noms des départements ... et c'est là que ça se complique. J'ai bien trouvé les coordonnées xy et les ID dans l'export SVG, mais j'ai beau essayer, je n'arrive pas "programmer " les textbox par dessus mes shapes des départements.

bjr,

un petit essais :
ftp://ftp-developpez.com/arkham46/ar...s/mapnumxl.zip
(mirroir http)

j'ai ajouté les coordonnées des numéros sur la feuille en colonne D et E
et j'ai ajouté la génération des textbox dans la fonction CreateShapes du module Module1

ce n'est pas parfait mais si c'est pour générer juste une fois la carte, on peut repositionner correctement les numéros à la main

[Lamperti]

bjr,

j'ai ajouté les coordonnées des numéros sur la feuille en colonne D et E
et j'ai ajouté la génération des textbox dans la fonction CreateShapes du module Module1

ce n'est pas parfait mais si c'est pour générer juste une fois la carte, on peut repositionner correctement les numéros à la main

Bonsoir Arkham46,

Merci beaucoup pour la rapidité et la qualité de la réponse. J'ai rapidement regardé le code et je pense que c'est ce qu'il me fallait pour avancer. Je vais mettre les noms des départements dans une feuille à part pour les "activer à la demande" à l'aide d'une case à cocher. Je pense que je vais encore y passer du temps vu mon très faible niveau, mais c'est par plaisir ... pour maintenir mes neurones en éveil

Encore merci
Bonne continuation

[Didier Gonard]

Super tuto..

Qui allie la connaissance à la créativité pour un résultat hors des sentiers communs et dont la portée et l'utilité sont auto-démontrées

Info :

L'enregistreur de macro pour les formes est de nouveau actif sous Excel 2010

cordialement,

Didier

[SkyCorp]

Bonsoir à tous,

Tout d'abord bravo pour ce tuto
qui est, à peu de choses près, exactement ce que je cherchais.

Mais je suis tombé dès la première macro sur des problèmes, sans même essayer de modifier le code. En lançant la macro, Excel se bloque, comme pris dans une boucle infinie. En mode pas à pas, il stoppe à la ligne 29

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case lCoordArray(lCptCoord)

en m'indiquant "Erreur d'exécution '9', l'indice n'appartient pas à la sélection". Pourtant, il me semble n'avoir loupé aucune étape. J'ai placé le fichier contenant la macro en pièce jointe.

Avez-vous un moyen de sortir de cette impasse ?

Pour info, je suis sous Excel 2003 et j'utilise mon ordi professionnel (je le précise au cas où il pourrait s'agir d'une config d'Excel particulière que ma société aurait mise en place). Je précise également que je n'y connais pas grand chose en VBA.

Merci d'avance.

[Arkham46]

bjr,

est-ce la même carte svg que celle que j'utilise dans le tuto?

[SkyCorp]

Oui, il s'agit de la même.

[Arkham46]

je viens de re-tester avec Excel 2003, ça marche bien

par contre les lignes de la feuille Departements sont-elles bien de 1 à 96?
il n'y a pas de ligne vide ou une ligne d'en-tête au début?

[SkyCorp]

Mea Coulpa, la ligne 1 était vide (je pensais pourtant avoir fait bien attention).

En revanche, d'autres problèmes étaient apparus ce week-end lorsque j'ai essayé d'adapter cette macro à un autre fichier svg (sans doute en raison de l'image vectorielle). Je présenterai mon problème sur un autre post dès mon retour chez moi ce soir (Lien vers le nouveau post).


Edit : Ajout du lien

[audalice]

Article très utile.
J'ajoute ma pierre à l'édifice en joignant un fichier réalisé à partir d'une carte monde au format SVG qui pourra je l'espère servir à d'autres.
Quelques petites restrictions cependant :
- certains petits pays ou territoires ne sont pas recensés sur la carte initiale et donc non présents dans les formes libres,
- certains pays sont ont été générés en plusieurs formes donc j'ai ajouté un indice après le nom des pays en question (par exemple la France génère deux formes libres : une pour la métropole et une autre pour la Corse appelées France1 et France 2; Autre exemple, le Canada génère à lui seul plus de 20 formes).
Bonnes cartographies

[Arkham46]

Merci audalice (et SkyCorp même si ta contribution date un peu ) d'enrichir ce tutoriel avec vos oeuvres.

[Shou49]

Bonjour,

Je souhaite adapter la méthode proposée dans le tutorial pour dessiner les cartes à partir de coordonnées de points uniquement.
Par exemple celle ci :

http://commons.wikimedia.org/wiki/Fi...h_Communes.svg

qui est définie par le code ci-dessous (un bout seulement) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<?xml version="1.0" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" 
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<svg width="1000" height="1132" viewBox="6.636038688 43.48006801 1.08008864 0.880988820000006"  preserveAspectRatio="none"
     xmlns="http://www.w3.org/2000/svg" version="1.1">
 
<style type="text/css" >
<![CDATA[
 
.communes { 
	fill           : #b9b9b9;
	fill-opacity   : 1;
	stroke         : white;
	stroke-opacity : 1;
	stroke-width   : 0.002;
}
 
]]>
</style>
 
<g transform="translate(0,44.36105683) scale(1,-1) translate(0,-43.48006801)">
 
<g class="communes">
 
<polygon id="06001 AIGLUN" points="6.959730874,43.83461863 6.931469881,43.83055995 6.912353878,43.83167131 6.917224786,43.85042666 6.907647691,43.86512356 6.90772519,43.86534604 6.920941341,43.86538524 6.936325028,43.87987843 6.94716225,43.87446794 6.952118009,43.86526897 6.960845316,43.86594348 6.951995685,43.85073056 6.959730874,43.83461863" />
<polygon id="06002 AMIRAT" points="6.791846922,43.87621184 6.781622233,43.88355825 6.801382125,43.91035137 6.832286437,43.91846082 6.835946727,43.915431 6.839386327,43.90949855 6.834813761,43.89394585 6.827300509,43.89022728 6.829692043,43.8839085 6.822108548,43.88097597 6.791846922,43.87621184" />
<polygon id="06003 ANDON" points="6.840408089,43.73087451 6.823995302,43.7371823 6.806967476,43.74849099 6.78442984,43.74782653 6.788022692,43.76454826 6.782448052,43.76991322 6.783219321,43.78006662 6.770032603,43.78336176 6.770597322,43.80587388 6.79402542,43.80855612 6.802311206,43.81211425 6.859033968,43.81987744 6.85936021,43.78307972 6.856102416,43.77441992 6.85776391,43.76458587 6.867986575,43.74994327 6.871942943,43.73421647 6.863334763,43.73609004 6.840408089,43.73087451" />
<polygon id="06004 ANTIBES" points="7.130086784,43.61779689 7.125891212,43.59569273 7.131328825,43.59063857 7.122942315,43.58674986 7.12902424,43.58273451 7.127076727,43.57186168 7.139943605,43.56968667 7.14239603,43.5514834 7.121594981,43.54386084 7.117586378,43.56463608 7.103008772,43.57129687 7.086497348,43.56982076 7.086586544,43.57315993 7.066117332,43.59031712 7.067593709,43.60658716 7.070199326,43.61220163 7.083283084,43.6083948 7.103497773,43.61675967 7.112829945,43.61684809 7.118001378,43.62254464 7.130086784,43.61779689" />
<polygon id="06005 ASCROS" points="7.049819699,43.90998391 7.045055741,43.91012456 7.036052639,43.89809458 7.020083597,43.90509101 7.005830584,43.90551605 6.993028032,43.9013807 6.990231934,43.91806311 6.972670495,43.9225784 6.978107284,43.92688587 6.980287089,43.93542993 7.009326094,43.93662918 7.045644138,43.92580044 7.059148033,43.9221361 7.049819699,43.90998391" />
<polygon id="06006 ASPREMONT" points="7.242460352,43.75129879 7.237656138,43.76380477 7.222428381,43.77110112 7.240046349,43.79167496 7.243991868,43.80141624 7.25355203,43.80063777 7.252738664,43.78670116 7.262404746,43.76702891 7.255457642,43.76240736 7.256417558,43.75559304 7.24863496,43.75158058 7.242460352,43.75129879" />
<polygon id="06007 AURIBEAU-SUR-SIAGNE" points="6.911990728,43.59833235 6.894469897,43.61102483 6.90249185,43.62341212 6.915475723,43.6239538 6.929108999,43.61659666 6.929398676,43.61340604 6.916719563,43.59878344 6.911990728,43.59833235" />

On voit bien que chaque commune est définie par une succession de points.

J'ai repris les coordonnées dans ma feuille de calcul comme ceci :



J'ai donc touché au code initial mais j'ai une erreur sur ConvertToShape... (erreur définie par l'application ou par l'objet). Cela plante à la ligne 61 du code ci dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Option Explicit
 
'---------------------------------------------------------------------------------------------------------
' Importation du fichier SVG des départements et création des formes libres
'---------------------------------------------------------------------------------------------------------
Function CreateShapes()
Dim oSheet As Excel.Worksheet ' Feuille de travail
Dim lLine As Long ' Compteur de lignes
Dim lCoord As String ' Coordonnées du département
Dim lCptCoord As Long ' Compteur pour parcourir les coordonnées
Dim lCoordArray As Variant ' Coordonnées du département en tableau
Dim lNbShape As Long ' Nombre de formes créées
Dim lShapeRange() ' Tableaux des noms de formes créées pour fonction Group
Dim loFreeformBuilder As Excel.FreeformBuilder 'Constructeur de forme libre
 
' Feuille de données
Set oSheet = Sheets("Test")
' Parcourt la feuille des données
For lLine = 1 To 3
 
    ' Coordonnées
    lCoord = oSheet.Cells(lLine, 1)
    ' Mise en forme des coordonnées
    lCoord = Replace(lCoord, ",", " ")
    ' Crée un tableau à partir de la chaîne de caractères
    lCoordArray = Split(lCoord, " ")
    ' Initialise le compteur
    lCptCoord = LBound(lCoordArray)
 
    'Crée un constructeur de "forme libre" pour le département courant sur la feuille oSheet
    Set loFreeformBuilder = oSheet.Shapes.BuildFreeform(msoEditingCorner, Val(lCoordArray(lCptCoord)) * 10, Val(lCoordArray(lCptCoord + 1)) * 10)
 
    'Parcourir le vecteur coordonnées et ajouter les points
    While (lCptCoord < UBound(lCoordArray) - 2)
      lCptCoord = lCptCoord + 2
      loFreeformBuilder.AddNodes msoSegmentLine, msoEditingAuto, Val(lCoordArray(lCptCoord)) * 10, Val(lCoordArray(lCptCoord + 1)) * 10
    Wend
 
 
    ' Convertit le Constructeur en Forme
    With loFreeformBuilder.ConvertToShape 'ERREUR A L'EXECUTION A CETTE LIGNE
 
        ' Identifiant du département
        .Name = oSheet.Cells(lLine, 2)
        ' Incrémente le nombre de formes créées
        lNbShape = lNbShape + 1
        ' Redimensionne le tableau de formes créées
        ReDim Preserve lShapeRange(1 To lNbShape)
        ' Ajoute le nom de la forme au tableau pour groupement
        lShapeRange(lNbShape) = .Name
 
    End With
 
    ' Libère l'objet constructeur
    Set loFreeformBuilder = Nothing
 
 
Next
 
' Groupe les départements dans une forme
With oSheet.Shapes.Range(lShapeRange).Group
    .Name = "Carte"
    .ScaleHeight 0.05, msoFalse
    .ScaleWidth 0.05, msoFalse
    .LockAspectRatio = msoTrue
End With
End Function

Quelqu'un saurait pourquoi ?

Merci d'avance!