Plein écran sur une seule feuille

Résolu/Fermé

d_a_n Messages postés 39 Date d'inscription dimanche 26 septembre 2010 Statut Membre Dernière intervention 5 janvier 2015 - 2 déc. 2014 à 17:38
Maurice - 5 déc. 2014 à 15:46

Bonjour,

Comment réaliser l'ouverture plein écran d'une seule feuille, quand on est nul en vba ??
Merci par avance de votre aide.

A voir également:

Plein écran sur une seule feuille
Double ecran - Guide
Comment supprimer une feuille sur word - Guide
Comment imprimer un tableau excel sur une seule page - Guide
Capture d'écran whatsapp - Accueil - Messagerie instantanée
Capture d'écran samsung - Guide

4 réponses

Réponse 1 / 4

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
4 déc. 2014 à 12:05

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

d_a_n Messages postés 39 Date d'inscription dimanche 26 septembre 2010 Statut Membre Dernière intervention 5 janvier 2015
5 déc. 2014 à 14:47

Tout d'abord merci, f894009; de ton aide très précieuse.
Maintenant, je voudrai figer la feuille de telle façon que l'on ne puisse ni aller à droite, ni descendre. Ma question est : cela est-il possible. Par avance encore merci de tes conseils

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
5 déc. 2014 à 14:56

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

d_a_n Messages postés 39 Date d'inscription dimanche 26 septembre 2010 Statut Membre Dernière intervention 5 janvier 2015
5 déc. 2014 à 15:21

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 ?

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
5 déc. 2014 à 15:37

Re,

il faut appeler le code pour plein ecran a l'ouverture du classeur VBA Thisworkbook

Réponse 2 / 4

Maurice
5 déc. 2014 à 15:29

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

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
5 déc. 2014 à 15:34

Bonjour et merci du code

Réponse 3 / 4

d_a_n Messages postés 39 Date d'inscription dimanche 26 septembre 2010 Statut Membre Dernière intervention 5 janvier 2015
5 déc. 2014 à 15:37

Merci maurice, tu es chef.
A++

Réponse 4 / 4

Maurice
5 déc. 2014 à 15:46

Re
Je suis plus un Chef HI

A+

Maurice

Discussions similaires

Feuille de score belote