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à.
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.
Non, la ligne n'est pas supprimée: elle est simplement dé-cochée de celles qui doivent faire partie du parcours.
Voila la dernière version.
WshTournée.[TabÉtapes[?]].Value = "û"
Sub RàZTournée()
WshTournée.[TabTournée].Delete xlShiftUp
WshTournée.[TabÉtapes[?]].Value = "û"
End Sub
Private Sub CBnRàZTournée_Click()
Me.[TabTournée].Delete xlShiftUp
Me.[TabÉtapes[?]].Value = "û"
End Sub
Ou bien comme ça dans un module standard :
Ou bien comme ça dans le module de la feuille :VB:Sub RàZTournée() WshTournée.[TabTournée].Delete xlShiftUp WshTournée.[TabÉtapes[?]].Value = "û" End Sub
VB:Private Sub CBnRàZTournée_Click() Me.[TabTournée].Delete xlShiftUp Me.[TabÉtapes[?]].Value = "û" End Sub
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 je vois a peu près il me reste a trouvé tout ça.À 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.