Dessiner une carte avec les fonctions de dessin

**sara07** · 19/02/2017, 10h51

Bonjour,
J'ai trouver dans ce forum un excellent tuto qui explique comment dessiner la carte de france dans excel à partir du fichier svg ;
Voici le lien vers ce tuto
Je voudrais faire la même chose que dans ce tuto à la seule différence, j'utilse un fichier svg d'un autre pays, j'ai récupérer les contours des communes de ce pays et j'ai copier le code de la fonction "CreateShapes" et j'ai fait les changements nécessaires tel que le nombre de ligne à parcourir et le nom du worksheet .

Mon problème est : quand je fais F5 excel plante , j'ai besoin de votre aide .
autre chose je veux que cette carte sera recréer à chaque fois que je clique sur le bouton "dessiner_carte ";

Merci d'avance.

**mercatog** · 19/02/2017, 13h11

Bonjour
Mets ton code et indique la ligne où tu as l' erreur et le message d' erreur

**sara07** · 19/02/2017, 13h33

Bonjour,
en faite lorsque je compile la fonction aucun message d'erreur ne s'affiche , et quand je fait F5 --> Excel plante (le pgm ne répond pas )
En revanche j'ai remarquer que mes coordonnées ne contiennent pas de L ni C!!!!

**mercatog** · 19/02/2017, 13h46

Et?

**sara07** · 19/02/2017, 13h52

et je ne sais pas quoi faire

**mercatog** · 19/02/2017, 14h25

Tu as certainement une boucle infine

Je ne sais ni ton code ni ton svg. D'où ma question "et?"

Essaies de faire un débogage pas à pas à l'aide de F8 successives et regarde

**sara07** · 19/02/2017, 14h43

Mon fichier svg est en pièce jointe :
pour le code c'est celui du tuto , merci

**mercatog** · 19/02/2017, 16h12

Les fichiers ne sont pas identiques dans leur constitution

Pour le tuto, le svg est de la forme

M X1,X2 L X3,X4 L X5,X6....C Xa,Xb,Xc,Xd,Xe Z

Pour le tiens autrement

**clementmarcotte** · 19/02/2017, 17h37

Bonjour,

SVP, corrige ton lien, tu as un http:// de trop

**sara07** · 20/02/2017, 08h38

Bonjour,
que faut il faire alors ???

**Marc-L** · 20/02/2017, 14h09

Bonjour !

En reprenant juste l'aide déjà apportée :

Envoyé par mercatog

Mets ton code et indique la ligne où tu as l' erreur et le message d' erreur

Conformément aux règles de ce forum, poster le code - balisé - et indiquer clairement le message
et la ligne déclenchant l'erreur, ce n'est donc vraiment pas compliqué !
Car beaucoup n'ouvrent pas les pièces jointes, surtout celles contenant du code !

Envoyé par mercatog

Essaies de faire un débogage pas à pas à l'aide de F8 successives et regarde

Là c'est le B-A-BA du développeur VBA, suivre la progression de son code via la touche F8 …
Voir aussi le tutoriel à disposition sur ce forum quant au débogage en VBA.

Envoyé par mercatog

Les fichiers ne sont pas identiques dans leur constitution

Donc soit reformater un fichier pour qu'il corresponde à l'autre
soit réaliser enfin une analyse pour modifier ultérieurement le code …

Envoyé par clementmarcotte

corrige ton lien, tu as un http:// de trop

Lien erroné donc tu dois le corriger !

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**sara07** · 20/02/2017, 15h48

Citation Envoyé par mercatog Voir le message
Mets ton code et indique la ligne où tu as l' erreur et le message d' erreur

1. Aucun message d'erreur ne s'affiche , par contre EXCEL ne répond pas --> Donc il s'agit bien d'une boucle à l’infini .
2. J'ai constaté que mon fichier svg n'est pas correcte dans le sens où mes contours des communes ne contiennent pas les signes : L , C
L pour ligne et C pou courbe .
Donc le problème ne vient pas de la procédure "CreateShape"du tuto --Dessiner la carte de france ... --mais plutôt de mon svg qui n'est pas dans les normes .
Je veux juste savoir s'il ya un outil qui permet d'avoir un fichier svg qui comporte les indications : M,C,L,Z

Donc soit reformater un fichier pour qu'il corresponde à l'autre
soit réaliser enfin une analyse pour modifier ultérieurement le code …

Qu'est ce que vous voulez dire par reformater le fichier !!!!!!?
Et de quelle analyse parlez vous ?

Citation Envoyé par clementmarcotte Voir le message
corrige ton lien, tu as un http:// de trop

J'ai corriger le lien
Merci d'avance

**mercatog** · 20/02/2017, 22h05

Ta carte est un svg2, qui est différent du svg1 utilisé dans le tuto.

Lien explicatif du svg2

Ou bien ce lien

Essaies d'ouvrir la carte svg à l'aide de Notepad++ ou même excel tu auras la structure des donnés du fichier.
Les commandes utilisés m, c, l, h, v et z en minuscule indiquent des positions relatives
Les commandes M, C, L, H, V en majuscule indiquent des positions absolues

Après avoir simplifié la carte à l'aide d'Inkscape (suppression du contour global de la carte et de quelques irrégularités), je l'ai ouvert avec excel dans Feuil1
Je n'ai gardé que les 2 colonnes d et id6

La fonction formatage permet de traduire les donnés relatives en coordonnées absolues en fonction de la commande comme décrit dans le lien ci-dessus

On boucle alors sur les 12 lignes du tableaux (les communes de la Wilaya d'Annaba je suppose) et on inscrit en colonnes P:S de Feuil2 les donnés Commune, Commande, Coordonnée X, Coordonnée Y.

PS. La commande c permet à l'aide de points qui la suivent de tracer une courbe de Bézier (difficile à tracer à l'aide des shapes d'Excel, du moins je n'ai pas trop cherché)

Je me suis contenté de tracer des segments à l'aide des coordonnés absolues. La carte est légèrement approximative

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Option Explicit
 
Function Formatage(ByVal Svg As String)
Dim i As Integer, k As Integer
Dim Xi As Single, Yi As Single
Dim Autre As Boolean
Dim Tb, Tmp, R()
 
Tb = Split(Svg)
Do
    DoEvents
    Select Case Tb(i)
        Case "m"
            i = i + 1
            Tmp = Split(Tb(i), ",")
            Xi = Tmp(0)
            Yi = Tmp(1)
        Case "c", "l", "s"
            i = i + 1
            Tmp = Split(Tb(i), ",")
            Xi = Xi + Tmp(0)
            Yi = Yi + Tmp(1)
        Case "v"
            i = i + 1
            Yi = Yi + Tb(i)
        Case "V"
            i = i + 1
            Yi = Tb(i)
        Case "h"
            i = i + 1
            Xi = Xi + Tb(i)
        Case "H"
            i = i + 1
            Xi = Tb(i)
        Case Else
            Autre = True
            Tmp = Split(Tb(i), ",")
            Xi = Xi + Tmp(0)
            Yi = Yi + Tmp(1)
    End Select
    i = i + 1
    k = k + 1
    ReDim Preserve R(1 To 3, 1 To k)
    R(1, k) = IIf(Autre, "", Tb(i - 2))
    R(2, k) = Xi
    R(3, k) = Yi
    Autre = False
Loop While i < UBound(Tb)
Formatage = Application.Transpose(R)
End Function
 
Sub Test()
Dim i As Integer, j As Integer, k As Integer
Dim L As FreeformBuilder
Dim Commune() As String
Dim N As Long
Dim Res
 
With Feuil2
    .UsedRange.Clear
    For j = 2 To 13
        Res = Formatage(Feuil1.Range("A" & j))
 
        N = .Cells(.Rows.Count, 16).End(xlUp).Row + 1
        .Cells(N, 16).Resize(UBound(Res, 1)) = Feuil1.Range("B" & j)
        .Cells(N, 17).Resize(UBound(Res, 1), 3) = Res
 
        For i = 1 To UBound(Res, 1)
            If Res(i, 1) = "m" Then
                Set L = .Shapes.BuildFreeform(msoEditingCorner, Res(i, 2), Res(i, 3))
            Else
                L.AddNodes msoSegmentLine, msoEditingAuto, Res(i, 2), Res(i, 3)
            End If
        Next i
        With L.ConvertToShape
            .Name = Feuil1.Range("B" & j)
            k = k + 1
            ReDim Preserve Commune(1 To k)
            Commune(k) = .Name
        End With
    Next j
    .Shapes.Range(Commune).Group.Name = "CarteAnnaba"
End With
End Sub

PS2
Je te propose de créer ton propre fichier svg de ta Wilaya en utilisant Inskape et en évitant d'utiliser les courbes de Bézier ( tu n'aura que des morceaux de segments)

Tu peux aussi utiliser l'outil Simplifier du menu Chemin d'Inskape pour avoir une carte simples ( sans trop de détails des bords)

[Edit]

Courbes de Bézier possible sur Excel Shapes.AddCurve

**sara07** · 21/02/2017, 10h21

Bonjour,

Essaies d'ouvrir la carte svg à l'aide de Notepad++ ou même excel tu auras la structure des donnés du fichier.
Les commandes utilisés m, c, l, h, v et z en minuscule indiquent des positions relatives
Les commandes M, C, L, H, V en majuscule indiquent des positions absolues

J'ai ouvert mon fichier svg avec notepad++ et avec excel et je ne vois pas ces commandes : m, c, l, h, v et z. M, C, L, H, V ?????????????????
Si vous avez réussi à le faire pouvez vous m’envoyai le fichier ????
Autre chose , hier j'ai ouvert mon fichier svg dans inkscape (mon outil préféré )et j'ai sélectionné toutes mes communes et j'ai fait : Contour vers chemin après je suis allé dans extension : Modifier le chemin --> Aplatir les courbes de béziers ; et j'ai remarqué que dans l'attribut "d" il y'a les commandes( M,L)mais Z n'existe plus et les coordonnées xy du début ne correspondent pas à ceux de la fin (pour fermeture du polygone )
Votre idée de refaire le svg me semble bien dans le sens où je vais éviter toutes ces manips ,

**mercatog** · 21/02/2017, 10h30

Je ne ferai pas ton travail à ta place

Je t'ai envoyé 2 liens t'expliquant les commandes m M c C h H v V s S z Z....

à toi de faire ton boulot

**sara07** · 21/02/2017, 10h41

rebonjour, non je voulais pas dire ça du tout , au contraire je veux résoudre moi meme ce problème bien sur avec votre aide que je trouve très précieuse .
Une question : est ce que vous voulez dire que je met ces commandes manuellement?????
je m'excuse car je suis novice dans ce domaine , j'ai besoin vraiment de votre aide

**mercatog** · 21/02/2017, 11h44

Ce que j'avais fait

J'ai ouvert le fichier svg dans Excel

Tu as un tableau de données

Tu ne gardes que les colonnes dont les intitulés sont d et id6 (d se sont les coordonnées des contours des communes et de la Wilaya et id le nom de chaque commune dans le svg)

Personnellement, j'ai ouvert ton svg initial dans inkScape, j'ai supprimé le contour global de la Wilaya et quelques irrégularités et je n'ai gardé que les contours des communes

Dans ta feuille Excel chaque coordonnée est de la forme m x1,y1 x2,y2 x3,y3...h xp l xm,xn xs, xt....z

Dans le lien et pour un svg2 x1,y1 (Disons point P0) sont les coordonnées de départ et comme on a m (minuscule) le point suivant P1 est en coordonnées relatives par rapport à P0 ...etc

l: indique un segment en coordonnées relatives par rapport au point précédent
h: indique un déplacement horizontal par rapport au point précédent
c: indique une courbe de Bézier par rapport au point précédent avec 2 points de de contrôle et le point final (toujours en coordonnées relatives par rapport au point précédent)
...

Si les lettres ci-dessus (les commandes dans le langage svg) sont en majuscule, les coordonnées sont absolues
Les lien expliques tout ça:

C'est pour cela que j'avais réalisé une fonction Formatage (Qui est incomplète et que je compléterai dès que j'ai un peu de temps). Le résultat de cette fonction donne un tableau des coordonnées ABSOLUES de chaque point. Dès lors le traçage est facile.

Étudie le code de la fonction Formatage

PS. Le rendu final de mon code précédent est approximatif car j'avais considéré les points c comme des segments (pour me simplifier la vie).

Voilà

**sara07** · 21/02/2017, 14h40

Je vous remercie beaucoup pour tous ces efforts , malheureusement c'est trop compliqué pour moi

je veux une solution plus simple et facile à mettre en oeuvre car je suis débutante .

Autre chose , hier j'ai ouvert mon fichier svg dans inkscape (mon outil préféré )et j'ai sélectionné toutes mes communes et j'ai fait : Contour vers chemin après je suis allé dans extension : Modifier le chemin --> Aplatir les courbes de béziers ; et j'ai remarqué que dans l'attribut "d" il y'a les commandes( M,L)mais Z n'existe plus et les coordonnées xy du début ne correspondent pas à ceux de la fin (pour fermeture du polygone )

Je pense que les coordonnées sont absolues car il y'a les commandes en majiscule .
Encore merci pour votre implication , bonne journnée

**mercatog** · 21/02/2017, 17h03

Ne perds pas de confiance

Essaies de créer ton propre fichier svg sur Inkskape en n'utilisant que des segments (surtout pas de courbes). Dès lors tu n'auras pas les commandes c, C, s et S (Courbes de Bézier que je vais traiter dès que j'aurai un peu de temps): Ouvre ton svg dans Notepad++ tu auras une ficher sans les satanées c, C, s et S

Tu ouvre ton svg directement dans Excel, après validation des messages parlant d'un xml, tu auras sur ta feuille excel un tableau de plusieurs colonnes.
Contente toi de 2 colonnes utiles et vire toutes les autres
La colonne dont le titre est d et la colonne suivante id6

Mets le code suivant dans un module standard de ton fichier et lance la procédure Test et dis ce que tu obtiens

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
Option Explicit
 
Sub Test()
Dim i As Integer, j As Integer, k As Integer
Dim L As FreeformBuilder
Dim Commune() As String
Dim Shp As Shape
Dim N As Long
Dim Res
 
With Feuil1
'    .Range("P:S").ClearContents
'    For Each Shp In .Shapes
'        Shp.Delete
'    Next Shp
 
    For j = 2 To 16
        Res = Formatage(Feuil1.Range("A" & j))
 
        N = .Cells(.Rows.Count, 16).End(xlUp).Row + 1
        .Cells(N, 16).Resize(UBound(Res, 1)) = Feuil1.Range("B" & j)
        .Cells(N, 17).Resize(UBound(Res, 1), 3) = Res
 
        For i = 1 To UBound(Res, 1)
            If Res(i, 1) = "m" Then
                Set L = .Shapes.BuildFreeform(msoEditingCorner, Res(i, 2), Res(i, 3))
            Else
                L.AddNodes msoSegmentLine, msoEditingAuto, Res(i, 2), Res(i, 3)
            End If
        Next i
        With L.ConvertToShape
            .Name = Feuil1.Range("B" & j)
            k = k + 1
            ReDim Preserve Commune(1 To k)
            Commune(k) = .Name
        End With
    Next j
    With .Shapes.Range(Commune).Group
        .Name = "CarteMaroc"
        .ScaleHeight 0.2, msoFalse
        .ScaleWidth 0.2, msoFalse
        .LockAspectRatio = msoTrue
    End With
End With
End Sub
 
Private Function Formatage(ByVal Svg As String)
Dim i As Integer, k As Integer
Dim Xi As Single, Yi As Single
Dim Autre As Boolean
Dim Tb, Tmp, R()
 
Tb = Split(Svg)
Do
    DoEvents
    Select Case Tb(i)
        Case "m"
            i = i + 1
            Tmp = Split(Tb(i), ",")
            Xi = Tmp(0)
            Yi = Tmp(1)
        Case "c", "l", "s"
            i = i + 1
            Tmp = Split(Tb(i), ",")
            Xi = Xi + Tmp(0)
            Yi = Yi + Tmp(1)
        Case "v"
            i = i + 1
            Yi = Yi + Tb(i)
        Case "V"
            i = i + 1
            Yi = Tb(i)
        Case "h"
            i = i + 1
            Xi = Xi + Tb(i)
        Case "H"
            i = i + 1
            Xi = Tb(i)
        Case "z", "Z"
        Exit Do
        Case Else
            Autre = True
            Tmp = Split(Tb(i), ",")
            Xi = Xi + Tmp(0)
            Yi = Yi + Tmp(1)
    End Select
    i = i + 1
    k = k + 1
    ReDim Preserve R(1 To 3, 1 To k)
    R(1, k) = IIf(Autre, "", Tb(i - 2))
    R(2, k) = Xi
    R(3, k) = Yi
    Autre = False
Loop While i <= UBound(Tb)
Formatage = Application.Transpose(R)
End Function

PS. La fonction Formatage est un brouillon incomplet

**sara07** · 27/02/2017, 14h47

Bonjour mercatog,
J'ai refais mon fichier svg et la carte ne se dessine toujours pas dans excel --> Message d'erreur : Mémoire insuffisante
Mon fichier a la même forme que celui du Tuto "Dessiner une carte de france avec les fonctions de dessins"
Uniquement des segments (les commandes : "M x1,y1 L x2,y2 L x3,y3 L ...........................z")
Je bloque vraiment
Merci d'avance

Dessiner une carte avec les fonctions de dessin [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager