Afficher un message dans la barre d’état peut être très intéressant pour indiquer les phases en cours lors de l’exécution d’une longue procédure ou encore afficher le nom de l’application ainsi que son numéro de version.

C’est la propriété StatusBar de l’objet Application qui permet d’afficher ce message.
Cette propriété renvoie ou définit le texte de la barre d’état.

Exemple : Nous avons deux constantes publiques (appName et appVersion) qui contiennent respectivement le nom de l’application et son numéro de version que nous aimerions afficher dans la barre d’état.

Sub ShowMessage()
 Application.StatusBar = appName & " (Version " & appVersion & ")"
End Sub

Ce qui donne

Pour effacer ce message

Application.StatusBar = ""

Ce billet ne serait pas complet si nous n’évoquions pas la propriété DisplayStatusBar.
Cette propriété de l’objet Application permet de masquer ou d’afficher la barre d’état.

La valeur de cette propriété est booléenne (True pour afficher la barre d’état et False pour la masquer)

Exemple

Application.DisplayStatusBar = True