Discussion :

[yaciin]

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.

[Marc-L]

Bonjour,

sans référence au nombre d'opérations, oublier la barre de progression !

Qui plus est une barre de progression dans un UserForm ralentit énormément un processus …
J'ai en tête une procédure avec la barre de 48 secondes et sans, elle n'en prend pas plus de 18 !

Le mieux est de juste afficher un message fixe "Veuillez patienter …" via un UserForm non modal,
consulter l'aide de la méthode Show ou paramétrer directement dans le VBE sa propriété ShowModal …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[yaciin]

Bonjour Marc,
je m'en doutais pour une barre sans référence des opérations effectuées. en attendant autres propositions, je vais faire comme t'as dis pour le moment : utiliser un Userform pour demander de patienter et puis Hide ce userform une fois la boucle est fini.

Merci

[yaciin]

Rebonjour,

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
'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

[Marc-L]

Normalement la ligne n°19 n'est pas nécessaire …

[yaciin]

Sans ou avec la ligne 19 ça marche pas, en-fête il attend que je ferme le userform manuellement (bouton x) pour qu'il puisse continuer l'exécution des lignes qui viennent aprés "Unload sap"

[Marc-L]

Et l'autre solution alors ?

[…] ou paramétrer directement dans le VBE sa propriété ShowModal …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[yaciin]

comme il montre le code que j'ai publié en dernier, j'ai adopté une autre solution que la barre de progression, un userform tt simplement. pour le probléme de fermeture de ce dernier c'est une question d'exécution des processus extérieurs, du coup j'ai ajouté DoEvents dans mes boucles et ça marche.
Merci à vous tous j'attaquerais le genre de vos solutions ultérieurement quand j'aurais un niveau plus élevé en VBA