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.
J'arrive à un résultat très légèrement meilleur en envisageant toute les possibilités.
Feuil1.PageSetup.PrintArea = Feuil1.[H1].Resize(3 + NbrÉtapes, 3).Address
Feuil1.PrintPreview
Ajoutez peut être ces deux instructions devant la End Sub :
VB:Feuil1.PageSetup.PrintArea = Feuil1.[H1].Resize(3 + NbrÉtapes, 3).Address Feuil1.PrintPreview
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
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.
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…