Plein écran sur une seule feuille

Résolu

d_a_n Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
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 imprimer un tableau excel sur une seule page - Guide
Capture d'écran whatsapp - Accueil - Messagerie instantanée
Comment supprimer une feuille sur word - Guide
Comment imprimer en a5 sur une feuille a4 - Guide

4 réponses

Réponse 1 / 4

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

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

Réponse 2 / 4

Maurice

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 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour et merci du code

Réponse 3 / 4

d_a_n Messages postés 39 Date d'inscription Statut Membre Dernière intervention

Merci maurice, tu es chef.
A++

Réponse 4 / 4

Maurice

Re
Je suis plus un Chef HI

A+

Maurice

Discussions similaires

Feuille de score belote

Votre réponse

Discussions similaires