Sujet Précédent Sujet Suivant

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:

4 réponses

Réponse 1 / 4
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
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
1
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
0
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
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
0
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 ?
0
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
5 déc. 2014 à 15:37
Re,

il faut appeler le code pour plein ecran a l'ouverture du classeur VBA Thisworkbook
0
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
0
f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
5 déc. 2014 à 15:34
Bonjour et merci du code
0
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++
0
Réponse 4 / 4
Maurice
5 déc. 2014 à 15:46
Re
Je suis plus un Chef HI

A+

Maurice
0