XL 2010 Création d'une fiche calcul d'itinéraire avec multidestination + redirection map

[Jekk]

Bonjour,

Actuellement en alternance j'essaie de mettre au point un fichier ou un calcul d'itinéraire pourrais se faire facilement.
Je m'explique.

J'ai mis un distancier en place assez complexe et j'aimerais le rendre plus simple avec plusieurs arrêts dans des destinations différentes possible.

Une fois les destinations rentrés il faudrait qu'a calcul final cela nous redirige vers un plan map génerer grâce a celui-ci.

Je suis ouvert a toute proposition d'améliorations.
Mon fichier est en Pièce Jointe.

Cordialement

 

[CBernardT]

Bonjour,

Un essai de solution :
1- Dans la feuille "TOURNEE, mettre la ville départ en A3.
2- Mettre en dessous toutes les destinations à inclure dans la tournée.(Présente dans le DISTANCIER)
3- Commande "CALCUL TOURNEE" et la tournée au kilométrage minimum est définie à droite.

Cordialement

Bernard

 

[Jekk]

Bonjour,

Un essai de solution :
1- Dans la feuille "TOURNEE, mettre la ville départ en A3.
2- Mettre en dessous toutes les destinations à inclure dans la tournée.(Présente dans le DISTANCIER)
3- Commande "CALCUL TOURNEE" et la tournée au kilométrage minimum est définie à droite.

Cordialement

Bernard

Bonjour Bernard,

J'aime bien ton fichier , cependant je ne comprends pas a quoi sert la première colonne dans l'onglet Tournée.
Pourris-tu m'éclaircir sur ce point ? Ce fichier optimise automatiquement la tournée ?

Merci à toi.

Cordialement

 

[Dranreb]

Bonjour.
J'arrive à un résultat très légèrement meilleur en envisageant toute les possibilités.

Édition: Et, j'oubliais, la colonne A sert à indiquer la ville à la fois de départ et d'arrivée, et les villes étapes désirées. On peut y mettre une validation de donnée Autoriser liste, =Villes.

 

[Jekk]

Bonjour.
J'arrive à un résultat très légèrement meilleur en envisageant toute les possibilités.

Bonjour, Merci à toi.

J'aimerais ajouter un bouton pour imprimer une sélection sans les cellules vides.
Auriez vous une idée ?
Parce qu'avec l'enregistreur de macro cela me met une erreur direct.

Merci

 

[Dranreb]

Ajoutez peut être ces deux instructions devant la End Sub :

Feuil1.PageSetup.PrintArea = Feuil1.[H1].Resize(3 + NbrÉtapes, 3).Address
Feuil1.PrintPreview

 

[Jekk]

Ajoutez peut être ces deux instructions devant la End Sub :

Feuil1.PageSetup.PrintArea = Feuil1.[H1].Resize(3 + NbrÉtapes, 3).Address
Feuil1.PrintPreview

Voici ce que j'ai pour mon code :

Sub impression()
'
' impression Macro
'

'
    ActiveWindow.ScrollColumn = 2
    Range("C1:F17").Select
    Feuil1.PageSetup.PrintArea = Feuil1.[H1].Resize(3 + NbrÉtapes, 3).Address
Feuil1.PrintPreview

End Sub

En fait j'aimerais que l'impression prenne directement la tournée calculée en retirant les cases vides.
Sauf que cela me met une feuille blanche même après une sélection dans ma feuille

Cordialement

 

[Dranreb]

NbrÉtapes n'est pas connu dans votre macro.
Il faut mettre au moins le Feuil1.PageSetup.PrintArea = à la fin de ma macro, même si vous ne voulez pas du PrintPreview systématique.

 

[Jekk]

NbrÉtapes n'est pas connu dans votre macro.
Il faut mettre au moins le Feuil1.PageSetup.PrintArea = à la fin de ma macro, même si vous ne voulez pas du PrintPreview systématique.

Cela fonctionne cependant en PrintArea= ? je dois mettre quoi pour que cela corresponde a ma sélection ?

Cordialement

 

[Dranreb]

Mais qu'est ce que vous voulez sélectionner d'autre qu'exactement tous les tronçons du parcours ?

 

[Jekk]

En fait je veux que sa m'imprime ma feuille itinéraire en enlevant les cases vides.

Merci

 

[Dranreb]

Bon, j'ai tout mis sous forme de tableaux, comme ça la question ne se pose plus.

 

[Dranreb]

J'ai ajouté une barre de progression. Çe n'est pas du luxe pour 10 à 12 étapes !
Attention: on ne peut pas aller au delà de 12.
Il faudrait déjà subdiviser le voyage en plusieurs trajets: parvenu à une des étapes prévue pour le 1er, en appliquer un autre la prenant comme départ et arrivée…

 

[Jekk]

J'ai ajouté une barre de progression. Çe n'est pas du luxe pour 10 à 12 étapes !
Attention: on ne peut pas aller au delà de 12.
Il faudrait déjà subdiviser le voyage en plusieurs trajets: parvenu à une des étapes prévue pour le 1er, en appliquer un autre la prenant comme départ et arrivée…

Merci l'ami c'est plutôt joli mais on est obligé de remplir toutes les étapes de tournée, on ne peut mettre 2 voir trois étapes

Comment tu met une barre de progression sur un bouton ?

Est-il possible grâce au calcul de tournée de générer un plan google map ou mappy ?

Merci pour les informations

 

[Dranreb]

Je ne comprends rien à ce que vous dites. On peut mettre jusqu'à 12 étapes maxi, mais le calcul peut alors durer une heure ! (Et du coup si on pouvait en accepter une 13ième, il prendrait 13 heures !
Une 14ième: 182, puis 3 mois etc.)
En tout cas ne laissez jamais des lignes vides dans les tableaux.
Supprimez celles en trop, car si vous les effacez seulement elle seront considérée comme des données.
Et tapez du neuf dans la ligne juste en dessous du tableau: elle y sera automatiquement intégrée.
Je ne sais pas du tout, pour la dernière question.