OVH Cloud OVH Cloud

Displayformulabar & Displaystatutbar

7 réponses
Avatar
René Delcourt
Bonjour,
J'ai essayé plusieurs scripts (le dernier sur Cathyastuces) permettant de
cacher et réaffichier la barre de formule et la barre d'état.
Cela fonctionne dans le sens "cacher" mais pas dans le sens "réapparaître".
Y a-t-il une solution universo-fonctionnelle?
Merci
--
René Delcourt

7 réponses

Avatar
Fredo P
Le code ci-dessous est ok (xl97) quel est celui que tu emploies?
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False

Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True

"René Delcourt" a écrit dans le message de news:

Bonjour,
J'ai essayé plusieurs scripts (le dernier sur Cathyastuces) permettant de
cacher et réaffichier la barre de formule et la barre d'état.
Cela fonctionne dans le sens "cacher" mais pas dans le sens
"réapparaître".

Y a-t-il une solution universo-fonctionnelle?
Merci
--
René Delcourt


Avatar
Jacky
Bonjour

Ceci fonctionne ??
'-------
Sub jj()
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
MsgBox "plus de barre de formule & barre d'état"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
MsgBox "et les revoila"
End Sub
'---------
Salutations
JJ

"René Delcourt" a écrit dans le message de
news:
Bonjour,
J'ai essayé plusieurs scripts (le dernier sur Cathyastuces) permettant de
cacher et réaffichier la barre de formule et la barre d'état.
Cela fonctionne dans le sens "cacher" mais pas dans le sens
"réapparaître".

Y a-t-il une solution universo-fonctionnelle?
Merci
--
René Delcourt


Avatar
René Delcourt
Effectivement, ce script seul fonctionne.
Dans une application avec plusieurs macro, c'est plus problématique...
--
René Delcourt



Bonjour

Ceci fonctionne ??
'-------
Sub jj()
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
MsgBox "plus de barre de formule & barre d'état"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
MsgBox "et les revoila"
End Sub
'---------
Salutations
JJ

"René Delcourt" a écrit dans le message de
news:
Bonjour,
J'ai essayé plusieurs scripts (le dernier sur Cathyastuces) permettant de
cacher et réaffichier la barre de formule et la barre d'état.
Cela fonctionne dans le sens "cacher" mais pas dans le sens
"réapparaître".

Y a-t-il une solution universo-fonctionnelle?
Merci
--
René Delcourt







Avatar
Jacky
Re....
Il y a certainement un:
Application.ScreenUpdating = False
En cour dans la macro.

Salutations
JJ

"René Delcourt" a écrit dans le message de news:

Effectivement, ce script seul fonctionne.
Dans une application avec plusieurs macro, c'est plus problématique...
--
René Delcourt



Bonjour

Ceci fonctionne ??
'-------
Sub jj()
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
MsgBox "plus de barre de formule & barre d'état"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
MsgBox "et les revoila"
End Sub
'---------
Salutations
JJ

"René Delcourt" a écrit dans le message de
news:
Bonjour,
J'ai essayé plusieurs scripts (le dernier sur Cathyastuces) permettant
de
cacher et réaffichier la barre de formule et la barre d'état.
Cela fonctionne dans le sens "cacher" mais pas dans le sens
"réapparaître".

Y a-t-il une solution universo-fonctionnelle?
Merci
--
René Delcourt









Avatar
Jacky
Re....
Il y a certainement un:
Application.ScreenUpdating = False
En cour dans la macro.

Salutations
JJ

"René Delcourt" a écrit dans le message de news:

Effectivement, ce script seul fonctionne.
Dans une application avec plusieurs macro, c'est plus problématique...
--
René Delcourt



Bonjour

Ceci fonctionne ??
'-------
Sub jj()
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
MsgBox "plus de barre de formule & barre d'état"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
MsgBox "et les revoila"
End Sub
'---------
Salutations
JJ

"René Delcourt" a écrit dans le message de
news:
Bonjour,
J'ai essayé plusieurs scripts (le dernier sur Cathyastuces) permettant
de
cacher et réaffichier la barre de formule et la barre d'état.
Cela fonctionne dans le sens "cacher" mais pas dans le sens
"réapparaître".

Y a-t-il une solution universo-fonctionnelle?
Merci
--
René Delcourt









--
----------------------------------------
J'utilise la version gratuíte de SPAMfighter pour utilisateurs privés.
Ce programme a supprimé104 d'e-mails spam à ce jour.
Les utilisateurs qui paient n'ont pas ce message dans leurse-mails.
Obtenez la version gratuite de SPAMfighter ici: http://www.spamfighter.com/lfr



Avatar
René Delcourt
Salut,
J'utilise le bon code et ai même poussé jusqu'à
If Application.DisplayStatusBar = False Then Application.DisplayStatusBar =
True
La valeur est toujours faux!
--
René Delcourt



Le code ci-dessous est ok (xl97) quel est celui que tu emploies?
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False

Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True

"René Delcourt" a écrit dans le message de news:

Bonjour,
J'ai essayé plusieurs scripts (le dernier sur Cathyastuces) permettant de
cacher et réaffichier la barre de formule et la barre d'état.
Cela fonctionne dans le sens "cacher" mais pas dans le sens
"réapparaître".

Y a-t-il une solution universo-fonctionnelle?
Merci
--
René Delcourt







Avatar
René Delcourt
OK, j'ai trouvé sans m'expliquer le pourquoi.

Ce code ne fonctionne pas dans un "beforeclose..." mais bien dans un module
qui gère le bouton "Quitter" de l'application.
Allez savoir pourquoi?
--
René Delcourt



Bonjour,
J'ai essayé plusieurs scripts (le dernier sur Cathyastuces) permettant de
cacher et réaffichier la barre de formule et la barre d'état.
Cela fonctionne dans le sens "cacher" mais pas dans le sens "réapparaître".
Y a-t-il une solution universo-fonctionnelle?
Merci
--
René Delcourt