XL 2016 [Résolu] Calcul d'itinéraire

Lone-wolf

XLDnaute Barbatruc

• 7 Mars 2017

• #2

Bonsoir Eddy

essaie celui-ci

 

Pièces jointes

• Itinéraires Json.xlsm

  21.7 KB · Affichages: 46

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Mars 2017

• #3

Bonsoir à tous,

Le fichier de eddy1975 dont j'ai remanié la partie du code pour la durée du trajet (calcul du nombre de jours puis de la durée restante en heure et minute).

J'ai mis une liste déroulante de villes pour le départ et l'arrivée (en H3 et H4 pour le test).

 

Pièces jointes

• eddy1975- Calcul d'itinéraire- v1.xlsm

  61.1 KB · Affichages: 44

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 7 Mars 2017

• #4

Bonsoir mapomme,
Merci pour ta proposition. Serait-il possible d'avoir la durée uniquement en heures stp ?
Et pour le deuxième soucis as-tu une piste ?
@+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Mars 2017

• #5

Re,

La version v1a qui met à blanc les cellules du tableau résultat si les villes de départ ou arrivée sont vides.

 

Pièces jointes

• eddy1975- Calcul d'itinéraire- v1a.xlsm

  61.5 KB · Affichages: 32

Dernière édition: 7 Mars 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 7 Mars 2017

• #6

Bonsoir mapomme

Sur le fichier que j'ai mis avec la macro que tu as modifié, ça ne donne plus rien.

Pour la 2ème question

Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty([H3]) Or IsEmpty([H4]) Then [B33].ClearContents
End Sub

 

Dernière édition: 7 Mars 2017

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Mars 2017

• #7

Re,

eddy1975 à dit:

Bonsoir mapomme,
Merci pour ta proposition. Serait-il possible d'avoir la durée uniquement en heures stp ?
Et pour le deuxième soucis as-tu une piste ?
@+

Cliquez pour agrandir...

Voir version v1b

edit: petite coreection de la précédente version.

 

Pièces jointes

• eddy1975- Calcul d'itinéraire- v1b.xlsm

  61.3 KB · Affichages: 36

Dernière édition: 7 Mars 2017

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Mars 2017

• #8

Bonsoir Lone-wolf,

Lone-wolf à dit:

Bonsoir mapomme
Sur le fichier que j'ai mis avec la macro que tu as modifié, ça ne donne plus rien.

Cliquez pour agrandir...

Ton fichier modifié...

 

Pièces jointes

• Lone-wolf- Itinéraires Json- v1.xlsm

  22.3 KB · Affichages: 42

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 7 Mars 2017

• #9

Re,
Juste un dernier petit détail et ce sera parfait. Un H au lieu des : en E3
Lorsque je modifie le format de cellule il se remet par défaut. Je pense qu'il faut modifier la macro.
Merci.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 7 Mars 2017

• #10

Re,

eddy1975 à dit:

Re,
Juste un dernier petit détail et ce sera parfait. Un H au lieu des : en E3
Lorsque je modifie le format de cellule il se remet par défaut. Je pense qu'il faut modifier la macro.
Merci.

Cliquez pour agrandir...

Voir le fichier v2

 

Pièces jointes

• eddy1975- Calcul d'itinéraire- v2.xlsm

  61.5 KB · Affichages: 52

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 7 Mars 2017

• #11

Ca fonctionne. Merci mapomme.
@+ Merci

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 7 Mars 2017

• #12

Re mapomme

Sans vouloir chercher la petite bête, je ne sais pas si eddy a raison (plus de 30 heures); le résultat donne 2829Km et 28:45??

EDIT: effectivement, il a raison(du moins je crois); parce-que d'après Mappy

 

Dernière édition: 7 Mars 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 8 Mars 2017

• #13

Re Pierre

Il y a un bug dans le fichier, j'ai mis paris genève et aucun résultat.

EDIT: I'm sorry . J'ai du faire une fausse manip. Tout est OK

EDIT2: Mais ce n'est pas normal que Paris-Pekin ne donne pas de résulat, Pekin est à moins de 2000000 de pas de chez moi LOL

 

Dernière édition: 8 Mars 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 8 Mars 2017

• #14

Re Pierre

Paris-Pékin = 8216,98 km à vol d’oiseaux. C'est bien ce que je disait, 2000000 de pas depuis chez moi. À l'allure dont je marche, je vais arriver à Pekin le jour de ma retraite.

EDIT: Paris - Genève 5h à vol d'oiseau.

 

Dernière édition: 8 Mars 2017

Vote positif 0 Vote négatif

D

D4_

XLDnaute Nouveau

• 10 Mars 2017

• #15

Bonjour,

Encore merci à Tatiak pour son fichier.
Cependant, il ne fonctionne plus après modification et ajout de quelques calculs, mise en page...

Je continuiait de l'utiliser pendant la personnalisation du fichier, pour vérifier mes calculs, etc..
Et maintenant, plus rien.

Il execute le code et tombe en erreur car il ne trouve pas la distance et la durée.
En revanche, l'adresse exacte des villes saisies est bien trouvée et s'affiche bien en a3 et b3.

Savez-vous pourquoi ?

Merci par avance; (fichier ci-joint pour test)

 

Pièces jointes

• Maps.xlsm

  35.2 KB · Affichages: 50

Vote positif 0 Vote négatif