Dans le coin inférieur gauche d'Excel, vous trouverez une barre d'état :
Excel utilise cette barre d'état pour vous communiquer des messages. Cependant, la propriété StatusBar peut également être ajustée à l'aide de VBA, vous permettant d'afficher vos propres messages.
Message de barre d'état personnalisé
Vous pouvez mettre à jour la barre d'état avec votre propre message personnalisé dans Excel pendant l'exécution d'une macro, en utilisant le Barre d'état biens.
1. Placez ce code dans une macro chaque fois que vous souhaitez mettre à jour l'utilisateur avec un message de barre d'état personnalisé :
| 1 | Application.StatusBar = "Je travaille maintenant !!!" |
2. Et à la fin de votre macro, placez ce code pour effacer la barre d'état et rendre le contrôle à Excel :
| 1 | Application.StatusBar = FAUX |
Désactiver la mise à jour de la barre d'état
Au lieu d'afficher un message pendant l'exécution de votre procédure, vous pouvez désactiver la barre d'état. Cela augmentera la vitesse de votre code VBA car Excel peut ignorer le traitement du message de la barre d'état à afficher.
Pour désactiver la mise à jour de la barre d'état pendant l'exécution de votre code, définissez le Afficher la barre d'état propriété à faux.
| 1 | Application.DisplayStatusBar = Faux |
A la fin de votre code, restaurez la mise à jour de la barre d'état :
| 1 | Application.DisplayStatusBar = True |
Important! Utilisez le Barre d'état pour définir les messages, mais utilisez la Afficher la barre d'état pour désactiver ou activer complètement la barre d'état.
Accélérer le code VBA
Pour une vitesse de traitement optimale, essayez d'utiliser ce code :
| 12345678910111213141516 | sous RunFast()Application.ScreenUpdating = FauxApplication.DisplayStatusBar = FauxApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = FalseApplication.Calculation = xlCalculationManual'Votre code iciApplication.ScreenUpdating = TrueApplication.DisplayStatusBar = TrueApplication.EnableEvents = TrueActiveSheet.DisplayPageBreaks = TrueApplication.Calculation = xlCalculationAutomatiquefin sous |
