Barre de progression pendant boucle While
yaciin
Messages postés
26
Statut
Membre
-
yaciin Messages postés 26 Statut Membre -
yaciin Messages postés 26 Statut Membre -
Bonjour le Forum,
J'utilise une boucle while pour empecher l'exécution de certains lignes dans ma macro avant la création de quelques fichiers. Je souhaite afficher une barre de progression ou bien un petit cercle animé ou n'importe quel animation, avec un message "veuillez patienter", le temps de l'exécution de creation des fichiers. (le temps que le programme est bloqué dans la boucle while)
Mon souci c'est que je connais pas le temps que la boucle while vas prendre, du coup je peux pas adopter les solutions classiques des barres de progression (rectangle dans un rectangle etc) car je connais pas le taux d'évolution des opérations (qui vont créer les fichiers necessaires pour la poursuite de la macro) pendant la boucle while.
Merci d'avance.
J'utilise une boucle while pour empecher l'exécution de certains lignes dans ma macro avant la création de quelques fichiers. Je souhaite afficher une barre de progression ou bien un petit cercle animé ou n'importe quel animation, avec un message "veuillez patienter", le temps de l'exécution de creation des fichiers. (le temps que le programme est bloqué dans la boucle while)
Mon souci c'est que je connais pas le temps que la boucle while vas prendre, du coup je peux pas adopter les solutions classiques des barres de progression (rectangle dans un rectangle etc) car je connais pas le taux d'évolution des opérations (qui vont créer les fichiers necessaires pour la poursuite de la macro) pendant la boucle while.
Merci d'avance.
2 réponses
-
Bonjour,
Tu devrais trouve la réponse chez Jacques Boisgontier :
http://boisgontierjacques.free.fr/pages_site/formulaireProgression.htm
-
non aucun des 3 scénario correspond à mon probléme :/
Merci comém.
j'ai procédé différemment, j'ai essayé d'utiliser un userform le temps d'attente, mais j'ai pas pu fermer cet userform à la fin du temps d'attente malgré plusieurs essais
voilà mon code :
'affichage du userform
sap.Show vbModeless
fichier_1 = "table_inventaire.txt"
fichier_2 = "table_mard.txt"
chemin = ThisWorkbook.Path & "\"
'premier temps d'attente
Set fso1 = CreateObject("scripting.filesystemobject")
While fso1.FileExists(chemin & fichier_1) = False
Wend
'deuxieme temp d'attente
Set fso2 = CreateObject("scripting.filesystemobject")
While fso2.FileExists(chemin & fichier_2) = False
Wend
'fermeture que j'ai essayé
sap.Hide
Unload sap
Help plz, c'est simple je devine mais ça me bloque :/
Merci
