Plein écran sur une seule feuille

Résolu
d_a_n Messages postés 42 Statut Membre -  
 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.
A voir également:

4 réponses

Réponse 1 / 4
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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
1
d_a_n Messages postés 42 Statut Membre
 
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
0
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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
0
d_a_n Messages postés 42 Statut Membre
 
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 ?
0
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Re,

il faut appeler le code pour plein ecran a l'ouverture du classeur VBA Thisworkbook
0
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
0
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour et merci du code
0
Réponse 3 / 4
d_a_n Messages postés 42 Statut Membre
 
Merci maurice, tu es chef.
A++
0
Réponse 4 / 4
Maurice
 
Re
Je suis plus un Chef HI

A+

Maurice
0

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
Les feuilles Diddl
TiiteBaakaa -
soso -

8 réponses