Afficher un message d'attente en excel lors d'un long traitement (waitbox)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 29 070 fois - Téléchargée 36 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
- Waitbox - Meilleures réponses
- Javascript : [jquery] afficher un message d'attente pendant le chargement de la page - CodeS SourceS - Guide
- Afficher un message d'attente pendat le chargement d'une page aspx ✓ - Forum - ASP.NET
- ASP / ASP.NET : Afficher message d'attente (page en cours de chargement) pendant la construction de - Guide
- VBA Excel - Afficher un message d'information ✓ - Forum - Visual Basic 6
- Afficher userform a l'ouverture d'excel ✓ - Forum - Visual Basic
Commentaires
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
2C'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
mais si t'arrive à trouver pourquoi ca merde sous XL 97 et surtout comment y remedier, je suis preneur ;)
@+
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.