Comment afficher/masquer la barre d’état en utilisant VBA ?

Dans VBA, il existe une propriété « Barre d’état » qui peut vous aider à afficher une valeur dans la barre d’état et il existe également « DisplayStatusBar » pour masquer et afficher l’état de la fenêtre Excel. Lors de l’utilisation de ces propriétés, vous devez réinitialiser la barre d’état, à la fin, sinon le dernier message ou paramètre y restera.

Dans le didacticiel, nous verrons quelques exemples que nous pouvons utiliser lorsque nous travaillons dans Excel.

Afficher une valeur dans la barre d’état

Comme je l’ai dit, vous pouvez utiliser la propriété StatusBar pour afficher une valeur dans la barre d’état. Dans le code ci-dessous, vous avez utilisé la valeur « Bonjour » à ajouter à la barre d’état.

1. Utilisez le mot-clé « Application » pour faire référence à l’application Excel.
2. Tapez un point pour obtenir la liste des propriétés et des méthodes.
3. Sélectionnez la propriété « StatusBar ».
4. À la fin, utilisez le signe égal pour spécifier la valeur que vous souhaitez afficher dans la barre d’état.

Sub vba_status_bar()
Application.StatusBar = "Hello"
End Sub

Masquer la barre d’état à l’aide de VBA

Supposons maintenant que si vous souhaitez masquer la barre d’état, vous pouvez utiliser DisplayStatusBar et spécifier cette propriété sur « False » ( considérez le code suivant ).

1. Utilisez le mot-clé « Application » pour faire référence à l’application Excel.
2. Tapez un point pour obtenir la liste des propriétés et des méthodes.
3. Sélectionnez la propriété « DisplayStatusBar ».
4. À la fin, utilisez le signe égal pour spécifier le « Faux ».

Sub vba_status_bar_hide()
Application.DisplayStatusBar = False
End Sub

Mettre à jour la progression dans la barre d’état

Les exécutions de code suivantes affichent un compteur de progression sur la barre d’état en utilisant le nombre de 1 à 100, que vous pouvez modifier selon vos besoins.

Sub vba_status_bar_update()
    
Dim x As Integer
Dim iTimer As Double
    
'you can change the loop if you need
For x = 1 To 100
        
'dummy loop to run, you can change it as well
iTimer = Timer
Do
Loop While Timer - MyTimer < 0.03
        
Application.StatusBar = "Progress: " & x & " of 100: " & Format(x / 100, "Percent")
DoEvents
        
Next x

Application.StatusBar = False
    
End Sub

Points importants à retenir

1. Vous devez utiliser « l’application » avec les propriétés de la barre d’état pour les utiliser.
2. Une fois que vous affichez un message sur le statut, vous devez effacer ce message.