API maps et déploiement sur une colonne

Version imprimable

23/05/2017, 12h26
Rjörm

API maps et déploiement sur une colonne

Bonjour
Novice en vba et vu que c'est assez urgent, je souhaiterai votre aide car je patauge depuis un moment déjà ...
J'ai une colonne avec des codes postaux (sur chaque ligne un code postal différent)
J'ai un champ textbox3 qui selon la saisie (code postal), renvoi une donnée dans Listbox3 (code postal)
Je souhaite faire coïncider le code postal du Listbox3 (.value ?) avec celui de la colonne et par ligne, de faire ressortir grâce à l'api de google, la distance et la durée (donc sur 2 colonnes)

je n'arrive pas à utiliser le déploiement de formule selon la listbox et sur chaque ligne :?
merci à qui pourra m'aider
23/05/2017, 12h35
Marc-L

Bonjour,

comme ce n'est pas la vocation de ce forum, juste lire ses règles, alors effectuer en urgence
une recherche sur la Toile et dans les discussions comme dans les tutoriels de ce forum …

___________________________________________________________________________________________________________
Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
23/05/2017, 12h49
Rjörm

des tutos, j'en ai suivi une tonne, je ne dois pas être tomber sur les bons
je mettrai mes exemples dans l'après-midi, car je ne part pas de zéro et j'ai déjà bien bossé dessus ;)

ma boucle :

Code:

1
2
3
4
5
Private Sub CommandButton1_Click()
    For ligne = 16 To 4444
        Cells(ligne, 29) = GetDistance(Cells(ligne, 16), TextBox3.Value)
    Next
End Sub

exécute une formule qui va rechercher le code postal de ligne en colonne 16 et qui va le comparer à la valeur de Textbox3
qui est extrêmement longue quand je clique sur le bouton ...

Le Gesdistance :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function GetDistance(start As String, dest As String)
    Dim firstVal As String, secondVal As String, lastVal As String
    firstVal = "http://maps.googleapis.com/maps/api/distancematrix/json?origins="
    secondVal = "&destinations="
    lastVal = "&mode=car&language=fr&sensor=false"
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = firstVal & Replace(start, " ", "+") & secondVal & Replace(dest, " ", "+") & lastVal
    objHTTP.Open "GET", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send ("")
    If InStr(objHTTP.responseText, """distance"" : {") = 0 Then GoTo ErrorHandl
    Set regex = CreateObject("VBScript.RegExp"): regex.Pattern = """value"".*?([0-9]+)": regex.Global = False
    Set matches = regex.Execute(objHTTP.responseText)
    tmpVal = Replace(matches(0).SubMatches(0), ".", Application.International(xlListSeparator))
    GetDistance = CDbl(tmpVal)
    Exit Function
ErrorHandl:
    GetDistance = -1
End Function

source : http://analystcave.com/excel-calcula...een-addresses/
tout les résultat ne sont cependant pas corrects, certains oui ..., étrange

qui plus est, je suis arrivé à mon quota d'utilisation des API de Google, la blague :aie:

23/05/2017, 18h41
Marc-L

Oui Google limite le nombre d'utilisations répétées de ses outils et comme en plus il regarde par dessus l'épaule
mieux vaut éviter même pour une simple recherche, les premiers résultats n'étant pas forcément les plus appropriés !

Ce serait intéressant de savoir ce qui est long ? Si c'est la requête, à part tester depuis un autre site …

Pour 4000 lignes d'un coup, ce n'est pas étonnant et donc tout à fait normal, surtout en VBA !
Dans ce cas créer alors la requête en VBScript si aptitude afin de pouvoir paralléliser un certain nombre de requêtes
- c'est comme le fut du canon ! En fait lié à la RAM disponible de l'ordinateur, avec 2 Go libres de 400 à 500 -
le VBA n'étant qu'un donneur d'ordre, voir l'exemple dans le sous-forum Contribuez du forum Excel …
23/05/2017, 20h25
patricktoulon

re

et histoire de te simplifier la vie et d'eviter certaines méprise au niveau du regex recupere la requete en XML

Code:

firstVal = "http://maps.googleapis.com/maps/api/distancematrix/xml?origins="
24/05/2017, 15h21
Rjörm

merci pour les réponses, je m'occupe du reste ;)
effectivement la lenteur provient du nombre de ligne je pense