Insérer un message dans la statusbar

Sub WriteStatusBar()
Dim str As String

str = "Excel-newbies.fr"
Application.StatusBar = str
'Application.StatusBar = "Excel-newbies.fr"
'Pour effacer le commentaire
Application.StatusBar = False
End Sub

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *