Ecrire dans la bar d'état ( statusbar )

[lamho27]

Bonjour le forum
Quelqu'un sait il comment on peut écrire dans dans la barre d'état.
Si quelqu'un à une idée, merci d'avance.

 

[Staple1600]

Re : Ecrire dans la bar d'état ( statusbar )

Bonjour à tous

Tout simplement
Sub a()
Application.StatusBar = "toto"
End Sub

 

[lamho27]

Re : Ecrire dans la bar d'état ( statusbar )

bonjour Staple1600
aucun resultat

 

[Staple1600]

Re : Ecrire dans la bar d'état ( statusbar )

Re



Je te laisse ressayer la macro 😉

Sinon pour réinitialiser , utiliser:
Application.StatusBar=False

 

[lamho27]

Re : Ecrire dans la bar d'état ( statusbar )

bonjour Staple1600
ça marche bien ,mais a problème si ré-ouvrir fichier , on doit exécuté dans développeur, est ce que vous avez moyenne automatique quand on ouvre fichier
merci

 

[Staple1600]

Re : Ecrire dans la bar d'état ( statusbar )

Re

Il suffit de mettre la ligne dans un WorkBook_Open()
(à mettre dans ThisWorkBook pas dans un module)
Exemple ci-dessous

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = False
End Sub

Private Sub Workbook_Open()
Application.StatusBar = "LE STRING DE VOTRE CHOIX, éviter les fibres synthétiques"
End Sub

 

[lamho27]

Re : Ecrire dans la bar d'état ( statusbar )

bonjour Staple1600
trés bien, merci beaucoup