Bouton plein ecran

QUELLE VERSION D'EXCEL ?

oups pardon
2007

Salut,

Ce code masque la feuille nommée Feuil2 et rétabli l'affichage normal ou affiche la feuille nommée Feuil2 en mode plein écran

Sub Afficher_Plein_Ecran()
Dim MK As Object
For Each MK In ThisWorkbook.Sheets
If MK.Name = "Feuil2" Then MK.Visible = Not MK.Visible
Next MK
If Sheets("Feuil2").Visible Then
Application.DisplayFullScreen = True
Else
Application.DisplayFullScreen = False
End If
End Sub

Salut raveno39.

Je ne comprends pas : Tu as dans tes barres d'outils un bouton Affichage/Plein écran !
Et une fois que ton écran est rempli avec une feuille, peu importe que les autres fichiers soient aussi en plein écran, non ?

Merci ton code marche, mais il agit sur tout excel

mais moi je veux quand j'ouvre une feuille elle s'ouvre plein ecran mais pas le reste
et avec un bouton que je puisse permuter cette feuille plein ecran ou non

Re,

Dans Thisworkbook du Visual Basic, colle ce bout de code qui rétablira le mode écran normal dès que tu quitteras une feuille mise en plein écran

Private Sub Worksheet_Deactivate()
Application.DisplayFullScreen = False
End Sub

ce code associé à un bouton ou dans les propriétés d'un bouton activex te permettra de passer en mode plein écran ou inversement

Sub Plein_ecran()
Application.DisplayFullScreen = Not (Application.DisplayFullScreen)
ActiveWindow.DisplayHeadings = Not (ActiveWindow.DisplayHeadings)
End Sub

Pour conserver les en-tête de colonnes et lignes

Sub Plein_ecran()
If Application.DisplayFullScreen = False Then
Application.DisplayFullScreen = True
ElseIf Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
End If
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

merci mike pour ton aide
ce n'est pas tout à fait ce que je voulais, mais ce que tu m'a donné ira tres bien
un grand merci

Re,

J'ai bien compris, mais Excel ne permet pas de traiter une seule feuille en mode plein écran, seulement l'application dans sa totalité.
Il faut donc jongler avec les codes, ou utiliser le mode affichage plein écran d'Excel.
Les codes que je t'ai proposés permettent de passer du plein écran avec ou sans en-tête de colonnes et lignes et revenir à la situation initiale ou rétablir la situation initiale en changeant de feuille. Mais la encore le fait de revenir à l'affichage classique en changeant de feuille rétabli cet affichage à l'ensemble du classeur.
Il suffit de compléter le code pour masquer ou afficher la feuille concernée ou la rendre totalement invisible afin d'éviter tout affichage non souhaité.
Si tu estimes tes attentes satisfaites, n'oublie pas de mettre le statut de la discussion en résolu

Merci pour tes explications
Juste une petite info que je viens de trouver il existe le Ctrl+F1 qui est pas mal cela reduit la barre d'outil mais ne fait pas disparaitre les onglet de la barre

C'est un compromis entre ta solution et ma demande, l'avantage c'est que l'on gagne de la place sans perdre les fonctionalite des onglets
mais merci pour ta solution cela m'a aidé quand meme

Re,

pour avoir la même chose en VBA

Sub Plein_Ecran_Avec_Onglets()
Application.SendKeys "^{F1}"
End Sub