Afficher un message d'attente en excel lors d'un long traitement (waitbox)
0/5 (6 avis)
Snippet vu 32 484 fois - Téléchargée 38 fois
Contenu du snippet
Lors de long traitements sous Excel ou Word il est interressant de pouvoir afficher un message à l'écran pendant cette execution. La première chose à faire est de créer un Userform que j'ai appelé WaitBox contenant uniquement un contrôle Label avec le texte d'attente, le reste du code est ci dessous :
Ce petit code fonctionne bien sous office 2000 mais il devrait bien fonctionner sous 97 ou XP (à tester).
Il pourrait être interressant d'y ajouter une "progress bar" mais je n'ai pas encore trouvé le moyen de le faire.
Merci de vos commentaires
Source / Exemple :
Private Sub Workbook_open() 'dans le module thisWorkbook , événement à l'ouverture du classeur Load WaitBox 'on charge le formulaire en mémoire end sub Sub VotreTraitement() 'la sub qui contient le gros traitement qui peut être dans un module Application.Cursor = XlWait 'affiche le sablier WaitBox.Show vbModeless 'affiche la waitbox mais continu le traitement WaitBox.Repaint 'raffraichit le contenu affiché sinon on a une boite blanche vide 'placer ici votre traitement... WaitBox.hide 'masque la waitbox Application.Cursor=XlDefault 'remet le curseur par défaut End sub Private Sub WorkBook_BeforeClose(Cancel as Boolean) 'dans module thisWorkbook Unload WaitBox 'decharge la waitbox de la mémoire End sub
Conclusion :
Ce petit code fonctionne bien sous office 2000 mais il devrait bien fonctionner sous 97 ou XP (à tester).
Il pourrait être interressant d'y ajouter une "progress bar" mais je n'ai pas encore trouvé le moyen de le faire.
Merci de vos commentaires
A voir également
- Message d attente
- Vba afficher un message d'attente pendant un traitement - Meilleures réponses
- Show message vba - Meilleures réponses
- ASP / ASP.NET : Afficher message d'attente (page en cours de chargement) pendant la construction de - Guide
- Message d'attente lors du chrgement d'une page à la google et en texte défilant - Codes sources - Javascript (Navigation)
- Javascript : [jquery] afficher un message d'attente pendant le chargement de la page - CodeS SourceS - Guide
- Message d'attente de réponse webservice. ✓ - Forum - ASP.NET
- Afficher un message d'attente pendat le chargement d'une page aspx ✓ - Forum - ASP.NET
15 mars 2012 à 11:29
Je viens d'essayer de tester ce petit bout de programme (je travail sur excel 2003) et j'ai un bug pour : load Waitbox... Quelqu'un sait pourquoi ?
Merci beaucoup par avance pour vos réponses !
- Messages postés
-
443
- Date d'inscription
- mardi 27 mars 2007
- Statut
- Membre
- Dernière intervention
- 1 mars 2011
22 avril 2008 à 14:43
C'est exactement ce que je cherchais et de plus c'est très agréable de trouver des codes qui sont commentés
En fait le problème vient de l'aide Microsoft qui ne détaille pas suffisament l'utilisation de .Repaint qui ne fonbctionne que si un Load a été exécuté avant le show
Merci à toi
JML
6 avril 2005 à 08:54
mais si t'arrive à trouver pourquoi ca merde sous XL 97 et surtout comment y remedier, je suis preneur ;)
@+
5 avril 2005 à 16:58
5 avril 2005 à 16:53
Ca marche pas avec Excel 97...
en revanche pour la progressbar je connais une astuce :
si ton traitement s'effectue sur x fichiers/cellules alors
a chaque ième fichiers/cellules traité(e)s, donnes la valeur "x/i" à la progressbar et le tour est joué.
Mais attention en faisant ca tu rajoute des calculs. si t'as 5 000 cellules à traiter tu vas générer 5 000 calculs et 5 000 modifications graphiques supplémentaires (ce qui va augmenter le temps de traitement...)
A ce moment là, vaut mieux rafraichir la progressbar tous les 100 traitements (par exemple)
@ la prochaine
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.