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

  • Initiateur de la discussion Initiateur de la discussion cocktail
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cocktail

XLDnaute Occasionnel
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
 

Pièces jointes

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 )
 

Pièces jointes

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 :

20210330_142702.gif
 
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
 
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 🙂
 
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));",";""));"")
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour