Plein écran sur une seule feuille
Résolu
d_a_n
Messages postés
42
Statut
Membre
-
Maurice -
Maurice -
Bonjour,
Comment réaliser l'ouverture plein écran d'une seule feuille, quand on est nul en vba ??
Merci par avance de votre aide.
Comment réaliser l'ouverture plein écran d'une seule feuille, quand on est nul en vba ??
Merci par avance de votre aide.
4 réponses
-
Bonjour,
code a mettre dans un module
Sub affichage_normal()
Application.ScreenUpdating = False
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.WindowState = xlMaximized
End Sub
Sub affichage_plein_ecran()
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
'ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.ScreenUpdating = True
End Sub-
-
Bonjour,
une facon de faire:
code a mettre dans le VBA de la feuille en definissant la plage Tableau
principe: si selection d'une cellule en dehors du tableau, activation cellule A1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("Tableau")) Is Nothing Then
Range("A1").Activate
End If
End Sub -
Super pour le fait de figer le tableau, mais je m'aperçois que ce n'est pas la macro qui active le plein écran, mais le fait que moi je le ferme en plein écran et donc s'ouvre plein écran. Si je le ferme avec le haut de la feuille (accueil,insertion, mise en page....ainsi que les sous menus ; copier, coller, etc), il s'ouvre avec. Est-ce normal ?
-
-
-
Bonjour
Pour bloquer une feuille tout deplacement
Private Sub Worksheet_Activate() ScrollArea = "A1" End Sub
a mettre dans le Vba de la feuille
A+
Maurice -
-
