Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel macro barre d'état

macro barre d'état

6 réponses
Avatar
fredbzr
Bonjour à tous
Nouveau petit problème pour moi
Ayant un tableau excel un peu grand je cherche à gagner de la place pour la
visualisation à l'écran.
En passant par l'enregistreur de macro (merci Papou pour tes conseils),
j'ai obtenu le code suivant qui fonctionne très bien et qui me permets
d'enlever des commandbars inutiles à mon application

Private Sub Workbook_open()
Application.DisplayFormulaBar = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False
End Sub

J'aurai voulu qu'à la fermeture et à l'enregistrement, ces commandbars
reviennent pour que je ne sois pas obligé constemment des les remettre dans
les autres applications.
J'ai donc essayé (un peu naïvement) de changer

Private Sub Workbook_Beforesave()
Application.DisplayFormulaBar = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
End Sub

mais j'ai une erreur : la déclaration de procédure d'évènement ne correspond
pas à la description de l'évènement du même nom.

Quelqu'un pourrait-il m'aider ?
Merci d'avance
--


Fred
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JLuc
*Bonjour fredbzr*,
Essaie plutot dans le Workbook_BeforeClose()
Private Sub Workbook_Beforesave()
Application.DisplayFormulaBar = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
End Sub


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
fredbzr
Bonjour JLuc
Déjà essayé et çà ne marche pas : message d'erreur = la déclaration de
procédure d'évènement ne correspond pas à la description de l'évènement de
même nom

"JLuc" a écrit dans le message de news:

*Bonjour fredbzr*,
Essaie plutot dans le Workbook_BeforeClose()
Private Sub Workbook_Beforesave()
Application.DisplayFormulaBar = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
End Sub


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
JLuc
*Bonjour fredbzr*,
Essaie peut etre de mettre ces lignes dans une procedure independante
et de l'appeler dans le BeforeClose :

Sub CacheBar()
Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
Application.CommandBars("Formatting").Visible = Not -
Application.CommandBars("Formatting").Visible
Application.CommandBars("Drawing").Visible = Not _
Application.CommandBars("Drawing").Visible
End Sub

Private Workbook_Open()
CacheBar
End Sub

Private Sub Workbook_BeforeClose()
CaccheBar
End Sub


Bonjour JLuc
Déjà essayé et çà ne marche pas : message d'erreur = la déclaration de
procédure d'évènement ne correspond pas à la description de l'évènement de
même nom

"JLuc" a écrit dans le message de news:

*Bonjour fredbzr*,
Essaie plutot dans le Workbook_BeforeClose()
Private Sub Workbook_Beforesave()
Application.DisplayFormulaBar = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
End Sub


-- ____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



Avatar
fredbzr
J'ai toujour le même message avec private sub workbook_beforeClose() en
surligné

"JLuc" a écrit dans le message de news:

*Bonjour fredbzr*,
Essaie peut etre de mettre ces lignes dans une procedure independante et
de l'appeler dans le BeforeClose :

Sub CacheBar()
Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
Application.CommandBars("Formatting").Visible = Not -
Application.CommandBars("Formatting").Visible
Application.CommandBars("Drawing").Visible = Not _
Application.CommandBars("Drawing").Visible
End Sub

Private Workbook_Open()
CacheBar
End Sub

Private Sub Workbook_BeforeClose()
CaccheBar
End Sub


Bonjour JLuc
Déjà essayé et çà ne marche pas : message d'erreur = la déclaration de
procédure d'évènement ne correspond pas à la description de l'évènement
de même nom

"JLuc" a écrit dans le message de news:

*Bonjour fredbzr*,
Essaie plutot dans le Workbook_BeforeClose()
Private Sub Workbook_Beforesave()
Application.DisplayFormulaBar = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
End Sub


-- ____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O







Avatar
Ange Ounis
Cet événement possède un paramètre. La déclaration correcte est :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

----------
Ange Ounis
----------

J'ai toujour le même message avec private sub workbook_beforeClose() en
surligné

"JLuc" a écrit dans le message de news:

*Bonjour fredbzr*,
Essaie peut etre de mettre ces lignes dans une procedure independante et
de l'appeler dans le BeforeClose :

Sub CacheBar()
Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
Application.CommandBars("Formatting").Visible = Not -
Application.CommandBars("Formatting").Visible
Application.CommandBars("Drawing").Visible = Not _
Application.CommandBars("Drawing").Visible
End Sub

Private Workbook_Open()
CacheBar
End Sub

Private Sub Workbook_BeforeClose()
CaccheBar
End Sub


Bonjour JLuc
Déjà essayé et çà ne marche pas : message d'erreur = la déclaration de
procédure d'évènement ne correspond pas à la description de l'évènement
de même nom

"JLuc" a écrit dans le message de news:

*Bonjour fredbzr*,
Essaie plutot dans le Workbook_BeforeClose()
Private Sub Workbook_Beforesave()
Application.DisplayFormulaBar = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
End Sub
-- ____

( O | O )
--
_oooO_ JLuc _Oooo_

O-O


--


____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O











Avatar
fredbzr
Bonsoir
J'avais essayé de rajouter cancel as boolean mais pour l'ouverture et la
fermeture et çà ne fonctionnait pas.
En suivant ton conseil et en le mettant que pour la fermeture sur le nouveau
code de JLuc tout fonctionne impeccable
Merci à vous deux pour le temps que vous avez passez sur mon problème
Bonne soirée
"Ange Ounis" a écrit dans le message de news:
e19aq$
Cet événement possède un paramètre. La déclaration correcte est :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

----------
Ange Ounis
----------

J'ai toujour le même message avec private sub workbook_beforeClose() en
surligné

"JLuc" a écrit dans le message de news:

*Bonjour fredbzr*,
Essaie peut etre de mettre ces lignes dans une procedure independante et
de l'appeler dans le BeforeClose :

Sub CacheBar()
Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
Application.CommandBars("Formatting").Visible = Not -
Application.CommandBars("Formatting").Visible
Application.CommandBars("Drawing").Visible = Not _
Application.CommandBars("Drawing").Visible
End Sub

Private Workbook_Open()
CacheBar
End Sub

Private Sub Workbook_BeforeClose()
CaccheBar
End Sub


Bonjour JLuc
Déjà essayé et çà ne marche pas : message d'erreur = la déclaration de
procédure d'évènement ne correspond pas à la description de l'évènement
de même nom

"JLuc" a écrit dans le message de news:

*Bonjour fredbzr*,
Essaie plutot dans le Workbook_BeforeClose()
Private Sub Workbook_Beforesave()
Application.DisplayFormulaBar = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
End Sub
-- ____

( O | O )
--
_oooO_ JLuc _Oooo_

O-O


--


____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O