Code pour plein ecran

Question

Est ce quelqu'un pourrait me faire un code pour passer automatiquement en plein à l'ouverture du fichier, en masquant d'office , le quadrillage, les en-têtes et les formules il y a une quinzaine de feuilles. Je vous remercie Cordialement...

LouReeD · Accepted Answer

Voici un fichier : @ bientôt LouReeD...

patrickT · Accepted Answer

Ok et alors? donc vu que tu doit pouvoir changer de feuille je bloque la ligne workbooktabls pour pouvoir selectionner des feuille et tu met mon code dans dans le module thisworkbook et tu ajoute dans l'event sheetactivate la suppression du heading comme ceci '***************************************************************************************************** ' ___ _ _______ __ _ ____ _ _ _______ ___ _ _ _ ___ _ _. ' // \ /\ // // \ // // // // // // \ // // // // \ //| // ' //___// //__\ // //__// // // //__// // // // // // // // // // | // ' // // \ // // \ // // // \ // // // // // // // // // | // '// // // // // // // //___ // \ // \__// //__// //___ \__// // |// '**************************************************************************************************** 'application full over screen et vice et versa Public Sub Ribbonvisible() Dim Bool: Static Wstate As Long, W&, H& With Application Bool = Application.CommandBars("ribbon").Visible If Bool Then Wstate = .WindowState Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(Bool)) & ")" .DisplayFormulaBar = Not Bool .DisplayStatusBar = Not Bool .WindowState = Array(xlMaximized, Wstate)(Abs(Not Bool)) With ActiveWindow .DisplayHeadings = Not Bool '.DisplayWorkbookTabs = Not Bool .DisplayHorizontalScrollBar = Not Bool .DisplayVerticalScrollBar = Not Bool End With W = Application.Width H = Application.Height + 20 .WindowState = xlNormal .Top = Array(0, -22)(Abs(Bool)) .Left = 0 .Height = H .Width = W End With End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveWindow.DisplayHeadings = Application.CommandBars("ribbon").Visible End Sub voilà c'est simple...

LouReeD · Accepted Answer

Et bien voilà un problème de plus en moins ! @ bientôt LouReeD...

LouReeD · Answer

Les entêtes et le quadrillage sont propres à chaque feuille, la barre de formule est lié au classeur entier. La barre de formule : Application.DisplayFormulaBar = True/False Les entêtes : ActiveWindow.DisplayHeadings = False/False le quadrillage : ActiveWindow.DisplayGridlines = True/False Donc pour les deux derniers une boucle sur les feuilles est nécessaire je pense. @ bientôt LouReeD...

LouReeD · Answer

Voici ce que cela peut donner pour toutes les feuilles d'un classeur :

' ***************
' * Plein écran *
' ***************
Sub PleinEcran()
    ' on arrête la mise à jour de l'écran
    Application.ScreenUpdating = False
    ' avec l'application Excel
    With Application
        ' le ruban
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
        ' la barre de formule
        Application.DisplayFormulaBar = False
        ' barre de status
        Application.DisplayStatusBar = False
    End With
    ' on boucle sur les feuilles
    For i = 1 To Worksheets.Count
        ' on active la feuille
        Sheets(i).Activate
        ' avec la fenêtre active
        With ActiveWindow
            ' les titres (A et 1)
            .DisplayHeadings = False
            ' scroll barre horizontale
            .DisplayHorizontalScrollBar = False
            ' scroll barre verticale
            .DisplayVerticalScrollBar = False
            ' les onglets
            .DisplayWorkbookTabs = False
            ' le quadrillage
            .DisplayGridlines = False
        End With
    Next i
    ' on met à jour l'écran
    Application.ScreenUpdating = True
End Sub

' *********************************
' * retour à la normal sous Excel *
' *********************************
Sub RetourNormal()
    ' on arrête la mise à jour de l'écran
    Application.ScreenUpdating = False
    ' avec l'application
    With Application
        ' le ruban
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
        ' la barre de formule
        Application.DisplayFormulaBar = True
        ' barre de status
        Application.DisplayStatusBar = True
    End With
    ' on boucle sur les feuilles
    For i = 1 To Worksheets.Count
        ' on active la feuille
        Sheets(i).Activate
        ' avec la fenêtre active
        With ActiveWindow
            ' les titres (A et 1)
            .DisplayHeadings = True
            ' scroll barre horizontale
            .DisplayHorizontalScrollBar = True
            ' scroll barre verticale
            .DisplayVerticalScrollBar = True
            ' les onglets
            .DisplayWorkbookTabs = True
            ' le quadrillage
            .DisplayGridlines = True
        End With
    Next i
    ' on remet en place la mise à jour de l'écran
    Application.ScreenUpdating = True
End Sub

Avec ceci il ne reste plus que la barre de titre de fenêtre sur le haut de l'écran, c'est ce que j'utilise sur ArkaLouReeD ou bien les machines à sous disponibles sur ce site

On peut faire "plus fort" en déplaçant la fenêtre vers le haut de la hauteur de la barre de titre de l'application, comme cela c'est un affichage "FullScreen" !

@ bientôt

LouReeD

LouReeD · Answer

Merci pour votre retour et remerciement ! @ bientôt LouReeD...

LouReeD · Answer

Bizarre... Bon en regardant le code le premier With application ne sert à rien vu que j'ai écrit à chaque ligne Application. Essayez en remplaçant Worksheets.Count par la valeur "de dur" du nombre de feuilles... Sinon je ne vais pas... après votre copier/coller du code ne reste il pas un "résidu" de l'ancien code sur la feuille de code. A partir de VBA lancez une compilation : menu Débogage , compiler VBAProject. @ bientôt LouReeD...

patrickT · Answer

Je propose ma version un peu vieillotte mais efficace quand même une seule macro pour faire et défaire '***************************************************************************************************** ' ___ _ _______ __ _ ____ _ _ _______ ___ _ _ _ ___ _ _. ' // \ /\ // // \ // // // // // // \ // // // // \ //| // ' //___// //__\ // //__// // // //__// // // // // // // // // // | // ' // // \ // // \ // // // \ // // // // // // // // // | // '// // // // // // // //___ // \ // \__// //__// //___ \__// // |// '**************************************************************************************************** 'application full over screen et vice et versa Sub Ribbonvisible() Dim Bool: Static Wstate As Long, W&, H& With Application Bool = Application.CommandBars("ribbon").Visible If Bool Then Wstate = .WindowState Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & Array("True", "False")(Abs(Bool)) & ")" .DisplayFormulaBar = Not Bool .DisplayStatusBar = Not Bool .WindowState = Array(xlMaximized, Wstate)(Abs(Not Bool)) With ActiveWindow .DisplayHeadings = Not Bool .DisplayWorkbookTabs = Not Bool .DisplayHorizontalScrollBar = Not Bool .DisplayVerticalScrollBar = Not Bool End With W = Application.Width H = Application.Height + 20 .WindowState = xlNormal .Top = Array(0, -22)(Abs(Bool)) .Left = 0 .Height = H .Width = W End With End Sub...