Forums XLPages

Tous les messages (Dominou34)

Re: Tracé de points par PolyLine
#1
Débutant XLPages

Inscription: 28/06/2010

Messages: 2

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2003
Posté le : 01-07-2010 22h04
Bonsoir,
ce que tu dis est tout à fait juste, il est vrai qu'une certaine personne s'est autorisée à publier ta démo sans ton consentement sur un autre site en se cachant bien d'en être un usurpateur. Je te comprends.

Pourtant une personne ne vaut pas "tous".

J'ai bien compris que ton forum a pour but d'aider, de découvrir et de progresser. C'est dans cet état d'esprit que je me présente à toi. La routine qui me pose problème n'est pas une lubie passagère mais belle et bien une galère et j'en fait des versions XXX de ce classeur. Je suis passé par d'autre site avant de te déranger et j'ai beau chercher il n'y a que toi ainsi que ceux de ce site qui se sont penchés sur ce problème (ou qui vont) qui puissent m'aider.
En espérant que cela puisse te faire réviser ta position, je me permets de laisser ce message "ouvert", et encore merci pour ta passion.
Hors Ligne
Rapport   Haut 

Tracé de points par PolyLine
#2
Débutant XLPages

Inscription: 28/06/2010

Messages: 2

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2003
Posté le : 01-07-2010 18h00

Bonjour à tous et à toute,

je vous sollicite car j'ai besoin d'un conseil sur le traçage de points sur l'API MAP.

J'ai trouvé via http://msdn.microsoft.com/en-us/library/bb545007.aspx

une solution qui consiste à joindre les deux ou trois points... par Polyline. Parfait, pour mon usage.

J'ai repris pas-à-pas le tuto de cartographie, j'ai trituré les codes sources laissés par Alice et Didier et malgré mon acharnement le code que je laisse ici ne marche pas... Quelqu'un pourrait-il me dire ce qui ne va pas s'il vous plaît ?

Private Sub LocaliserRecherche_Click()
Dim Ligne As Long

Ligne = 2

Sheets("Recherche").Select
Do Until Cells(Ligne, 1).Value = ""
    If Cells(Ligne, 1).Value > 0 Then
           
            
            CodePolyline = "var latLong = new VELatLong(" & Cells(Ligne, 9).Value & ");" _
                & "var polyline = new VEShape(VEShapeType.Polyline, latLong);" _
                & "polyline.HideIcon();" _
                & "polyline.SetLineColor(new VEColor(0,255,0,1));" _
                & "polyline.SetFillColor(new VEColor(0,0,0,0));" _
                & "polyline.SetLineWidth(5);" _
                & "map.AddShape(polyline);"
            EnvoiScript CodePolyline
            
    End If
Ligne = Ligne + 1
Loop
Sheets("map").Select
End Sub 

Merci d'avance


Hors Ligne
Rapport   Haut