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

cocktail · 28 Mars 2021

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 · 28 Mars 2021

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 :

VB:

        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 · 30 Mars 2021

ca ne marche toujours pas :-(

sylvanu · 30 Mars 2021

Bonjour,
C'est à dire ???

cocktail à dit:
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 · 30 Mars 2021

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 · 30 Mars 2021

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 · 30 Mars 2021

sylvanu à dit:
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 · 30 Mars 2021

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 :

VB:

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

cocktail · 30 Mars 2021

Quelle puissance de feu Sylvanu !!!

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

sylvanu · 30 Mars 2021

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 :

VB:

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

cocktail · 30 Mars 2021

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

cocktail · 19 Avril 2021

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 · 19 Avril 2021

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 · 19 Avril 2021

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

cocktail · 24 Avril 2021

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 !

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

cocktail

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

cocktail

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

cocktail

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

cocktail

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

cocktail

XLDnaute Occasionnel

cocktail

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

cocktail

XLDnaute Occasionnel

cocktail

XLDnaute Occasionnel

Pièces jointes

Discussions similaires