XL 2019 Distance entre 2 villes - simulateur indemnités kilométriques

[cocktail]

Salut les Experts,

je viens solliciter votre aide svp.

je cherche à créer un simulateur de frais kms calculant les distances entre villes. J'ai trouvé un code vba sur google.

En revanche, n'étant pas un pro du vba, je suis bloqué sur 2 points mentionnés en jaune sur le fichier : (en pj)

1- le calcul des kms ne ne fait pas (colonne F premiere feuille)
2- j'ai un message d'erreur lorsque je lance la macro (je pense que le pb vient de la seconde feuille et de ma copie de formules en jaune)

Encore un grand Merci pour votre support sur cette problématique.

Hâte de vous lire

merci encore

 

[sylvanu]

Bonjour Cocktail,
Quand il arrive à Data!7 il cherche la distance entre 0 et 0 donc ça lui pose un petit problème.
Donc on peut modifier comme suit :

        lg = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To lg
            If .Range("A" & i) <> 0 And .Range("B" & i) <> 0 Then   ' Ne traite pas si A=0 ou B=0
                Url = DIST & .Range("A" & i).Value & "&destination=" & .Range("B" & i).Value
                With CreateObject("WINHTTP.WinHTTPRequest.5.1")
                    .Open "GET", Url, False
                    .send
                    Txt = .responseText
                End With
                .Range("C" & i).Value = Split(Split(Txt, "id=""distanciaRuta"">")(1), "</strong>")(0)
            End If
        Next i
    End With

( je n'ai pas épluché le reste du code )

 

[cocktail]

ca ne marche toujours pas :-(

 

[sylvanu]

Bonjour,
C'est à dire ???

ca ne marche toujours pas

Ne veut rien dire.
Ma PJ ne marche pas ?

Regardez ci dessous, j'ai mis une MFC bleu pour être plus explicite :

 

[Hasco]

bonjour,

[incursion spontanée et brève]
Euh ? 1 848 km pour un Paris-Brest, plus qu'un aller-retour-aller
et beaucoup de crème à ingurgiter
Je savais que je venais de la fin de la terre mais pas qu'elle était si loin.
[/incursion spontanée et brève]
Cordialement

 

[sylvanu]

Salut Roblochon,
Quand on précise pas sous MAPS Brest c'est Brest-Biélorussie.
J'aurais du écrire Paris Brest France.
Mieux de Brest à Brest ça fait 2334km.
Sorry.

 

[cocktail]

Bonjour,
C'est à dire ???

Ne veut rien dire.
Ma PJ ne marche pas ?

Regardez ci dessous, j'ai mis une MFC bleu pour être plus explicite :

Regarde la pièce jointe 1100520

Bonjour,
C'est à dire ???

Ne veut rien dire.
Ma PJ ne marche pas ?

Regardez ci dessous, j'ai mis une MFC bleu pour être plus explicite :

Regarde la pièce jointe 1100520

Sylvanu,

Merci pour ton retour. Pour le point 2 c'est ok et un grand Merci !

mais pour le point 1 à savoir la calcul des totaux, ca ne marche toujours pas :-(

Un dernier coup de main stp

 

[sylvanu]

Ca va tout de suite mieux quand on précise.
Les distances en data sont des chaines de caractères, donc il faut extraire le nombre de km avec :

=SIERREUR(CNUM(GAUCHE(Data!C2;TROUVE(" km";Data!C2)));"")

 

[cocktail]

Quelle puissance de feu Sylvanu !!!



Un très grand Merci à toi et Bravo pour tes compétences !

 

[sylvanu]

Sauf qu'il y a un bug !!!
Si la distance est supérieure à 1000 km alors la notation MAPS est 1,234 km et la formule ne marche plus.
On le voit sur Lens Nice.
Donc il faut supprimer cette satanée virgule avec :

=SIERREUR(CNUM(SUBSTITUE(GAUCHE(Data!C2;TROUVE(" km";Data!C2));",";""));"")

 

[cocktail]

Chapeau Mr ! j'enregistre tout de suite le nouveau fichier

 

[cocktail]

hello les amis,

J'ai une erreur d'execution 9 sur mon fichier qui me mène à une procédure de débogage vba.

Pouvez vous m'aider à comprendre et corriger ce qui bug svp ? un grand merci

Voici le fichier

Amicalement

 

[sylvanu]

Bonjour,
Pour les cellules non utilisées dans DATA, je mettais 0 et vous "" d'où le plantage car je m'arrêtais sur 00.
Rectifié en PJ.

 

[cocktail]

Top ! un grand merci Silvanu ! Que serai-je sans toi ? ...

 

[cocktail]

Bonjour à tous,

Arf, je suis désolé mais en fait le fichier ne fonctionne pas :-(

délai imparti trop long en message d'erreur

On y est presque mais ce n'est pas encore ca :-(

Help please !