Ecrire dans la bar d'état ( statusbar )

Staple1600

XLDnaute Barbatruc

• 1 Février 2014

• #2

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

Bonjour à tous

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

 

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 1 Février 2014

• #3

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

bonjour Staple1600
aucun resultat

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Février 2014

• #4

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

Re



Je te laisse ressayer la macro 😉

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

 

Dernière édition: 1 Février 2014

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 1 Février 2014

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Février 2014

• #6

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

Code:

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

Code:

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

 

Vote positif 0 Vote négatif

lamho27

XLDnaute Occasionnel

• 1 Février 2014

• #7

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

bonjour Staple1600
trés bien, merci beaucoup

 

Vote positif 0 Vote négatif