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 Re-afficher les barres d'état en VBA

Re-afficher les barres d'état en VBA

3 réponses
Avatar
Chacalou13
Bonjour tout le monde,

lors d'un passage en plein écran, j'utilise la procédure suivante:

Sub SupprBarrePerso(ByVal bEnabled As Boolean)
Dim Cpt As Integer

Application.WindowState = xlMaximized
With Application
.DisplayFormulaBar = bEnabled
.DisplayStatusBar = bEnabled
.DisplayNoteIndicator = bEnabled

For Cpt = 1 To 13
.CommandBars(Cpt).Enabled = bEnabled
Next
End With

With ActiveMenuBar
For Cpt = 1 To 9
.Menus(Cpt).Enabled = bEnabled
Next
End With
End Sub

ou bEnable prend la valeur False dans Workbook_WindowActivate et la valeur
True dans Workbook_BeforeClose du module ThisWorkbook.

Mysterieusement, les barres de formules et d'état ( et seulement ces 2 ) ne
réapparaissent pas à la fermeture.

Qu'un aurait-il une idée car je sèche depuis 2 jours.
Merci d'avance.

Chacalou13
Signaler un problème avec ce contenu

3 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
michdenis
Bonjour Chacalou13,

J'ai testé ceci sur une version Excel 2003, et je n'ai pas pu reproduire ce que tu as observé.

'---------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
SupprBarrePerso True
End Sub

'---------------------------------
Sub SupprBarrePerso(ByVal bEnabled As Boolean)

Application.DisplayFormulaBar = bEnabled
Application.DisplayStatusBar = bEnabled

End Sub
'---------------------------------


Salutations!



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

Bonjour tout le monde,

lors d'un passage en plein écran, j'utilise la procédure suivante:

Sub SupprBarrePerso(ByVal bEnabled As Boolean)
Dim Cpt As Integer

Application.WindowState = xlMaximized
With Application
.DisplayFormulaBar = bEnabled
.DisplayStatusBar = bEnabled
.DisplayNoteIndicator = bEnabled

For Cpt = 1 To 13
.CommandBars(Cpt).Enabled = bEnabled
Next
End With

With ActiveMenuBar
For Cpt = 1 To 9
.Menus(Cpt).Enabled = bEnabled
Next
End With
End Sub

ou bEnable prend la valeur False dans Workbook_WindowActivate et la valeur
True dans Workbook_BeforeClose du module ThisWorkbook.

Mysterieusement, les barres de formules et d'état ( et seulement ces 2 ) ne
réapparaissent pas à la fermeture.

Qu'un aurait-il une idée car je sèche depuis 2 jours.
Merci d'avance.

Chacalou13
Avatar
Chacalou13
bonjour michdenis,

Effectivement j'avais oublié de préciser que j'avais tester la procédure que
tu décris ci-dessous (seulement avec barre d'état et de formule), et que ceci
fonctionnait parfaitement ....
Accessoirement, je suis sur Excel 2000, mais elle ne tourne pas non plus sur
97 ...
Mystère ...


Bonjour Chacalou13,

J'ai testé ceci sur une version Excel 2003, et je n'ai pas pu reproduire ce que tu as observé.

'---------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
SupprBarrePerso True
End Sub

'---------------------------------
Sub SupprBarrePerso(ByVal bEnabled As Boolean)

Application.DisplayFormulaBar = bEnabled
Application.DisplayStatusBar = bEnabled

End Sub
'---------------------------------


Salutations!



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

Bonjour tout le monde,

lors d'un passage en plein écran, j'utilise la procédure suivante:

Sub SupprBarrePerso(ByVal bEnabled As Boolean)
Dim Cpt As Integer

Application.WindowState = xlMaximized
With Application
.DisplayFormulaBar = bEnabled
.DisplayStatusBar = bEnabled
.DisplayNoteIndicator = bEnabled

For Cpt = 1 To 13
.CommandBars(Cpt).Enabled = bEnabled
Next
End With

With ActiveMenuBar
For Cpt = 1 To 9
.Menus(Cpt).Enabled = bEnabled
Next
End With
End Sub

ou bEnable prend la valeur False dans Workbook_WindowActivate et la valeur
True dans Workbook_BeforeClose du module ThisWorkbook.

Mysterieusement, les barres de formules et d'état ( et seulement ces 2 ) ne
réapparaissent pas à la fermeture.

Qu'un aurait-il une idée car je sèche depuis 2 jours.
Merci d'avance.

Chacalou13





Avatar
michdenis
Bonjour Chacalou13,

Dans ta procédure de fermeture, es-tu certain d'ôter l'affichage plein écran dans ta procédure ?


Salutations!


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

bonjour michdenis,

Effectivement j'avais oublié de préciser que j'avais tester la procédure que
tu décris ci-dessous (seulement avec barre d'état et de formule), et que ceci
fonctionnait parfaitement ....
Accessoirement, je suis sur Excel 2000, mais elle ne tourne pas non plus sur
97 ...
Mystère ...


Bonjour Chacalou13,

J'ai testé ceci sur une version Excel 2003, et je n'ai pas pu reproduire ce que tu as observé.

'---------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
SupprBarrePerso True
End Sub

'---------------------------------
Sub SupprBarrePerso(ByVal bEnabled As Boolean)

Application.DisplayFormulaBar = bEnabled
Application.DisplayStatusBar = bEnabled

End Sub
'---------------------------------


Salutations!



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

Bonjour tout le monde,

lors d'un passage en plein écran, j'utilise la procédure suivante:

Sub SupprBarrePerso(ByVal bEnabled As Boolean)
Dim Cpt As Integer

Application.WindowState = xlMaximized
With Application
.DisplayFormulaBar = bEnabled
.DisplayStatusBar = bEnabled
.DisplayNoteIndicator = bEnabled

For Cpt = 1 To 13
.CommandBars(Cpt).Enabled = bEnabled
Next
End With

With ActiveMenuBar
For Cpt = 1 To 9
.Menus(Cpt).Enabled = bEnabled
Next
End With
End Sub

ou bEnable prend la valeur False dans Workbook_WindowActivate et la valeur
True dans Workbook_BeforeClose du module ThisWorkbook.

Mysterieusement, les barres de formules et d'état ( et seulement ces 2 ) ne
réapparaissent pas à la fermeture.

Qu'un aurait-il une idée car je sèche depuis 2 jours.
Merci d'avance.

Chacalou13