XL 2016 VBA suppression barre de formule

[ks102]

Bonjour à tous,

Je rencontre un petit problème dans l'execution de ma macro (voir ci-dessous),

Ma macro a pour but de switcher entre un mode excel ou il y a juste la feuille de calcul (mode caché) et un autre mode ou l'ensemble des fonctionnalités sont dispo (mode visbile).
Mais lorsque je repasse en "mode visbile", la barre de formule ne réapparait pas... Je suis obligé d'aller recocher dans l'affichage la barre de formule.

Option Explicit

'************************
Sub Interface_anonyme()
'************************
    Dim VL_feuille As Worksheet
    If ActiveWindow.DisplayGridlines = True Then
        ActiveWindow.DisplayGridlines = False
        ActiveWindow.DisplayHeadings = False
        Application.DisplayFullScreen = True
        Application.DisplayScrollBars = False
         Application.DisplayFormulaBar = False
    Else
        For Each VL_feuille In Sheets
        On Error Resume Next
        VL_feuille.Select
        ActiveWindow.DisplayGridlines = True
        ActiveWindow.DisplayHeadings = True
        Application.DisplayFormulaBar = True
        Application.DisplayFullScreen = True
        Application.DisplayScrollBars = True
        Application.DisplayFormulaBar = True
        On Error GoTo 0
        Next
        Application.WindowState = xlNormal
        Application.WindowState = xlMaximized
      
        Sheets("EFNC").Select
    End If
End Sub

Merci d'avance pour votre aide

 

[Temjeh]

Bonjour

En mettant l'affichage de la barre de formule à la fin ça fonctionne chez-moi

Application.WindowState = xlNormal
Application.WindowState = xlMaximized
Application.DisplayFormulaBar = True

A+

 

[ks102]

Bonjour

En mettant l'affichage de la barre de formule à la fin ça fonctionne chez-moi

Application.WindowState = xlNormal
Application.WindowState = xlMaximized
Application.DisplayFormulaBar = True

A+

Ca fonctionne également chez moi. J'ai essayé beaucoup de chose mais pas ça...

Merci beaucoup,
Bonne journée

 

[Temjeh]

Welcome!