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

Dranreb à dit:

Je ne comprends rien à ce que vous dites.
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.

Cliquez pour agrandir...

Dranreb à dit:

C'est un module utilitaire nommé MBarreProg qui contient les procédures Tâche et OùÇaEnEst qui seules son invoquées pour cela dans le code applicatif. La progression qui s'ouvre est une feuille VBA nommée UFmBarProg.

Cliquez pour agrandir...

Dranreb à dit:

Non je ne sais pas faire. En général les barres de progressions conçues par d'autres ne sont pas adaptées à une utilisation facile.
Pourquoi ne pas utiliser mes fournitures MBarreProg et UFmBarProg ? Il suffit d'appeler Tâche avant la boucle et OùÇaEnEst à la fin de chaque passage dans celle ci, comme je l'ai fait dans la Sub CircuitMini

Cliquez pour agrandir...

Dranreb à dit:

Qu'est-ce que vous ne comprenez pas exactement ?
Mais du reste il n'est pas nécessaire de comprendre comment ça marche pour l'utiliser.
Avez vous vu les ligne de codes Tâche "Optimisation circuit", NbPerm, "itin." et Call OùÇaEnEst: Next NumP dans la Sub CircuitMini ? Il y a quelques commentaires dans le module MBarreProg

Cliquez pour agrandir...

Dranreb à dit:

Comme ça dans le module objet WshTournée (TOURNÉE) :

VB:

Private Sub CBnCalculTournée_Click()
   MTournéeDranreb.CircuitMini
   End Sub

Cliquez pour agrandir...

Dranreb à dit:

Oui, fait dans mon dernier classeur joint. Il est équipé des modules de service nécessaires et des instructions pour les utiliser dans la partie applicative de la programmation.

Cliquez pour agrandir...

Dranreb à dit:

Pour utiliser ma barre de progression dans un autre projet VBA vous devez glisser vers celui ci le module MBarreProg et l'UserForm UFmBarProg, mettre une instruction Tâche Texte, NbrPrévus, Unité devant les boucles dont l'avancement est à surveiller et un Call OùÇaEnEst devant leurs Next.
Ce que vous ne comprenez peut être pas c'est ceci: L'UFmBarProg a sa propriété ShowModal à False, de sorte que l'exécution n'est pas suspendue par sa méthode Show, elle même invoquée par sa méthode spéciale Afficher, elle même invoquée par la procédure Tâche du module MBarreProg, elle même invoquée avant une boucle par une procédure d'application. Elle rend aussitôt la main à la procédure appelante tout en laissant l'UFmBarProg vivre sa vie indépendante à l'état affiché dans son coin. La procédure OùÇaEnEst quant à elle comptabilise les passages dans la boucle (c'est à dire les invocations d'elle même) et, si au moins 1/4 de seconde s'est écoulé depuis la dernière fois où elle l'a fait, demande à la méthode Actualiser de l'UFmBarProg (celui ci étant toujours encore affiché en non modal) une révision de son aspect en fonction du nombre de passages effectués, du nombre total de passages prévus et du temps écoulé.
Le principe vous parait-il plus clair avec ces explications ?

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
Ça n'a pas l'air d'être le bon fichier: il ne comporte pas de module MBarreProg ni d'UserForm UFmBarProg, ni d'essai d'utilisation des procédures Tâche et OùÇaEnEst.

Cliquez pour agrandir...