Plein écran

[maval]

Bonjour

J'ai sur une feuille un bouton mettre en plein ecran en supprimant "le menu, barre Scrollbar, barre de formule, ect....
en utilisant se code ci-dessous.

Sub Plein_Ecran()
ActiveSheet.Shapes("Menu").Select
Selection.Characters.Text = IIf(Selection.Characters.Text = "Plein écran", "Afficher le menu", "Plein écran"): [A1].Select

Application.DisplayFullScreen = Not Application.DisplayFullScreen
[COLOR="#B22222"]ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines[/COLOR]
ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs
ActiveWindow.DisplayVerticalScrollBar = Not ActiveWindow.DisplayVerticalScrollBar
ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings

ActiveWindow.WindowState = xlMaximized
End Sub

Tous fonctionne trés bien sauf que le quadrillage revient alors que je les décocher dans les options d'Excel et que j'ai mis comme code ceci:

ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines

Je mon fichier avec son code

Je vous remercie d'avance

 

[CB60]

Re : Plein écran

Bonjour
Test cela

Sub Plein_Ecran()

Worksheets("feuil1").Activate
ActiveWindow.DisplayGridlines = Not (ActiveWindow.DisplayGridlines)
ActiveSheet.Shapes("Menu").Select
Selection.Characters.Text = IIf(Selection.Characters.Text = "Plein écran", "Afficher le menu", "Plein écran"): [A1].Select
Application.DisplayFullScreen = Not Application.DisplayFullScreen
ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines
ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs
ActiveWindow.DisplayVerticalScrollBar = Not ActiveWindow.DisplayVerticalScrollBar
ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
ActiveWindow.WindowState = xlMaximized
End Sub

EDIT
Pas besoin de boucle, mais il faut sélectionner la feuille en début de macro

 

[maval]

Re : Plein écran

Bonjour CB60,

Je te remercie sa fonctionne Nickel.

Bonne journée

 

[CB60]

Re : Plein écran

Re
j'ai modifié la macro, pour enlever la boucle dans le message précédent