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

 

[Dranreb]

Quelle question ! Au moins aussi bien que toi !
Je n'ai pas envie de retoucher un classeur qui, de tout évidence traite du même problème sans reprendre un seul élément de mes propositions. Je ne ferai évoluer que le classeur que j'ai joint au poste #13. Il y a déjà une évolution dans ma version: Toutes les étapes sont listées dans le tableau TabÉtapes, mais on peut en ajouter une comme devant appartenir au parcours en la sélectionnant ou par un double clic si elle est déjà sélectionnée, ou l'en retirer par un clic droit. Une mise en forme conditionnelle et un caractère coche en police Wingdings indique si elle est prévue au parcours. J'envisage maintenant de me passer de la feuille DISTANCIER et de ne me baser que sur les distance indiquées en DISTANCES. Mais si rien de tout ça ne t'intéresse, on en reste là .

 

[Jekk]

Quelle question ! Au moins aussi bien que toi !
Je n'ai pas envie de retoucher un classeur qui, de tout évidence traite du même problème sans reprendre un seul élément de mes propositions. Je ne ferai évoluer que le classeur que j'ai joint au poste #13. Il y a déjà une évolution dans ma version: Toutes les étapes sont listées dans le tableau TabÉtapes, mais on peut en ajouter une comme devant appartenir au parcours en la sélectionnant ou par un double clic si elle est déjà sélectionnée, ou l'en retirer par un clic droit. Une mise en forme conditionnelle et un caractère coche en police Wingdings indique si elle est prévue au parcours. J'envisage maintenant de me passer de la feuille DISTANCIER et de ne me baser que sur les distance indiquées en DISTANCES. Mais si rien de tout ça ne t'intéresse, on en reste là .

J'aime bien ton fichier mais cependant il faut supprimer les lignes pour calculer des parcours plus petit, si aucune limite n'aurait été mise je l'aurais volontiers utilisé.

 

[Dranreb]

As tu lu ce que j'ai écrit ? Dans ma version actuelle je ne supprime plus les lignes d'étapes non désirées: je fais un clic droit dessus.

 

[Jekk]

As tu lu ce que j'ai écrit ? Dans ma version actuelle je ne supprime plus les lignes d'étapes non désirées: je fais un clic droit dessus.

Tu fais un clic droit pour supprimer une ligne c'est bien ça ? En fait je veux un truc simplifier ou on est pas obliger de mettre un nombre d'étapes précises

 

[Dranreb]

Non, la ligne n'est pas supprimée: elle est simplement dé-cochée de celles qui doivent faire partie du parcours.

 

[Jekk]

Non, la ligne n'est pas supprimée: elle est simplement dé-cochée de celles qui doivent faire partie du parcours.

Je n'ai pas eu le bon fichier alors , pourrais tu me le transmettre ?

 

[Dranreb]

Voila la dernière version.

 

[Jekk]

Voila la dernière version.

Effectivement il n'y a rien a voir avec ceux que j'avais celui-ci est niquel.
J'essai de développer un bouton pour remettre a zéro la recherche cependant cela laisse les villes cochés en vert.
Comment je pourrais faire pour changer ceci ?

 

[Dranreb]

Bof. En sélectionnant tout puis un clic droit ça dé-coche tout.
Cependant cette instruction le fait aussi :

WshTournée.[TabÉtapes[?]].Value = "û"

 

[Dranreb]

Ou bien comme ça dans un module standard :

Sub RàZTournée()
WshTournée.[TabTournée].Delete xlShiftUp
WshTournée.[TabÉtapes[?]].Value = "û"
End Sub

Ou bien comme ça dans le module de la feuille :

Private Sub CBnRàZTournée_Click()
   Me.[TabTournée].Delete xlShiftUp
   Me.[TabÉtapes[?]].Value = "û"
   End Sub

 

[Jekk]

Ou bien comme ça dans un module standard :

Sub RàZTournée()
WshTournée.[TabTournée].Delete xlShiftUp
WshTournée.[TabÉtapes[?]].Value = "û"
End Sub

Ou bien comme ça dans le module de la feuille :

Private Sub CBnRàZTournée_Click()
   Me.[TabTournée].Delete xlShiftUp
   Me.[TabÉtapes[?]].Value = "û"
   End Sub

Merci beaucoup c'est vraiment bien comme formule.
Par contre une fois trop d'étapes ajoutés , pourquoi un message d'erreur de gros calculs ?
Plus qu'a trouvé pour générer un plan google map ou mappy a l'aide de la tournée maintenant ^^

Merci à vous

 

[Dranreb]

Je vous avais déjà prévenu depuis longtemps qu'on ne pouvait pas examiner toutes les permutations possibles de plus de 12 étapes.
Ça en fait déjà 479001600, ça prend environ une heure et ça en exigerait donc 13 pour 13 étapes.

 

[Jekk]

Je vous avais déjà prévenu depuis longtemps qu'on ne pouvait pas examiner toutes les permutations possibles de plus de 12 étapes.
Ça en fait déjà 479001600, ça prend environ une heure et ça en exigerait donc 13 pour 13 étapes.

Oui exact aucun intérêt de perdre une heure sur un calcul vous n'avez pas tord.
Petite question dans votre fonction du calcul ou se trouve la fonction d'impression ?

 

[Dranreb]

À la fin de la Sub CircuitMini.
Si vous ne voulez plus qu'elle soit proposée systématiquement vous pouvez supprimer l'instruction MBarreProg.MasquerUFmBarProg, et déplacer la WshTournée.PrintPreview vers une procédure dédiée. Mais il vaut mieux garder la mise en place de WshTournée.PageSetup.PrintArea dans la procédure.

 

[Jekk]

À la fin de la Sub CircuitMini.
Si vous ne voulez plus qu'elle soit proposée systématiquement vous pouvez supprimer l'instruction MBarreProg.MasquerUFmBarProg, et déplacer la WshTournée.PrintPreview vers une procédure dédiée. Mais il vaut mieux garder la mise en place de WshTournée.PageSetup.PrintArea dans la procédure.

Oui je vois a peu près il me reste a trouvé tout ça.
J'aime bien l'idée mais je préfère le mettre sur un bouton a part
Comme sur le fichier joint, toujours votre base mais modifier.

Merci énormément pour votre aide j'apprécie et je commence a comprendre un peu les macros