Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel affichage plein écran - différent suivant les feuilles

affichage plein écran - différent suivant les feuilles

6 réponses
Avatar
j-pascal
Bonsoir (ou bonjour...),

J'ai ce qui suit pour l'affichage plein écran :

Sub PleinEcran()
Application.DisplayFullScreen = True
Application.CommandBars(1).Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Range("c4").Activate
ActiveWindow.Zoom = 100
ActiveWindow.DisplayHeadings = False
End Sub


Sur la première feuille, je n'ai "rien", mais sur les suivantes, j'ai les
numéros à gauche et les lettres au dessus !
Je ne comprends pas pourquoi ! La seule particularité de la feuille 1 c'est
que j'ai un "arrière-plan" !

Un grand merci d'avance pour vos lumières ...

JP
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
J
Bonjour
je ne vois pas trop mais cette ligne est inutile (double emploi) dans ce
code.
ActiveWindow.DisplayHeadings = False
si elle est mise à true, c'est elle qui te remets les en têtes de lignes
et colonnes.

Juste un truc pour faire marche arrière quand tu le souhaites, mais ce
n'est pas le sujet de ta question, tu peux faire des bascules :
Application.DisplayFullScreen = Not Application.DisplayFullScreen
construction semblable pour chaque ligne de ton code.
C'est pratique, et pas cher.

Et si (quand) tu as une pagaille inextricable, à force, dans ton excel,
utilise la super macro de Geedee : sesame

Bon courage
J@@

Bonsoir (ou bonjour...),

J'ai ce qui suit pour l'affichage plein écran :

Sub PleinEcran()
Application.DisplayFullScreen = True
Application.CommandBars(1).Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Range("c4").Activate
ActiveWindow.Zoom = 100
ActiveWindow.DisplayHeadings = False
End Sub


Sur la première feuille, je n'ai "rien", mais sur les suivantes, j'ai
les numéros à gauche et les lettres au dessus !
Je ne comprends pas pourquoi ! La seule particularité de la feuille 1
c'est que j'ai un "arrière-plan" !

Un grand merci d'avance pour vos lumières ...

JP


Avatar
j-pascal
Bonjour J@@ ,

Tout le code est là :

Option Explicit
Dim NomDeClasseur As Variant

Sub AnnulePleinEcran()
Application.DisplayFullScreen = False
Application.CommandBars(1).Enabled = True
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.Zoom = 100
End With
End Sub
Sub PleinEcran()
Application.DisplayFullScreen = True
Application.CommandBars(1).Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.Zoom = 100
End With
End Sub
Sub FermetureClasseur()
Application.DisplayFullScreen = False
Application.CommandBars(1).Enabled = True
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.Zoom = 100
End With

NomDeClasseur = Application.ThisWorkbook.Name
Workbooks(NomDeClasseur).Close SaveChanges:=True
End Sub

J'ai fait la modif sur "DisplayHeadings", mais ça ne change rien, j'ai
toujours les numéros et lettres sur les autres feuilles !
Mystère !!!

Pour le reste de tes conseils, tu t'adresses à un néophyte ; je crains de ne
pas saisir la façon de modifier mes formules ;-(

Merci et peut-être à + ?

JP



wrote:
Bonjour
je ne vois pas trop mais cette ligne est inutile (double emploi) dans
ce code.
ActiveWindow.DisplayHeadings = False
si elle est mise à true, c'est elle qui te remets les en têtes de
lignes et colonnes.

Juste un truc pour faire marche arrière quand tu le souhaites, mais ce
n'est pas le sujet de ta question, tu peux faire des bascules :
Application.DisplayFullScreen = Not Application.DisplayFullScreen
construction semblable pour chaque ligne de ton code.
C'est pratique, et pas cher.

Et si (quand) tu as une pagaille inextricable, à force, dans ton
excel, utilise la super macro de Geedee : sesame

Bon courage
J@@

Bonsoir (ou bonjour...),

J'ai ce qui suit pour l'affichage plein écran :

Sub PleinEcran()
Application.DisplayFullScreen = True
Application.CommandBars(1).Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Range("c4").Activate
ActiveWindow.Zoom = 100
ActiveWindow.DisplayHeadings = False
End Sub


Sur la première feuille, je n'ai "rien", mais sur les suivantes, j'ai
les numéros à gauche et les lettres au dessus !
Je ne comprends pas pourquoi ! La seule particularité de la feuille 1
c'est que j'ai un "arrière-plan" !

Un grand merci d'avance pour vos lumières ...

JP




Avatar
Michel
Salut,

avec ca ca marche, mais je ne comprend pas pourquoi il faut l'appliquer a
toutes les feuilles....

Sub PleinEcran()
Application.DisplayAlerts = False
For I = 1 To Worksheets.Count
Sheets(I).Select
Application.DisplayFullScreen = True
Application.CommandBars(1).Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.Zoom = 100
End With
Next I
Application.DisplayAlerts = True
End Sub

@+

Michel.



"j-pascal" a écrit dans le message de news:
OWmJw$
Bonsoir (ou bonjour...),

J'ai ce qui suit pour l'affichage plein écran :

Sub PleinEcran()
Application.DisplayFullScreen = True
Application.CommandBars(1).Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Range("c4").Activate
ActiveWindow.Zoom = 100
ActiveWindow.DisplayHeadings = False
End Sub


Sur la première feuille, je n'ai "rien", mais sur les suivantes, j'ai les
numéros à gauche et les lettres au dessus !
Je ne comprends pas pourquoi ! La seule particularité de la feuille 1
c'est que j'ai un "arrière-plan" !

Un grand merci d'avance pour vos lumières ...

JP


Avatar
Modeste
Bonsour® Michel avec ferveur ;o))) vous nous disiez :

avec ca ca marche, mais je ne comprend pas pourquoi il faut l'appliquer a
toutes les feuilles....
.DisplayHeadings = False


Simplement parceque DisplayHeading est une propriété de l'objet Worksheet
et non de l'objet Application.
en conséquence la propriété doit alors etre précisée pour chaque worksheet
--
--
@+
;o)))

Avatar
j-pascal
Bonsoir Michel,

Merci.

Quand tu dis, "je ne comprends pas pourquoi il faut l'appliquer à toutes les
feuilles..." , tu parles de "ma" procédure ?

En fait, je me suis demandé au début s'il fallait mettre ce code dans "this
workbook" (?!). Finalement je l'ai mis dans un module et pour cette raison,
je ne m'explique pas pourquoi le traitement est différent suivant les
feuilles ! A part ce petit défaut , ça marche bien.

J'imagine que pour la procédure d'annulation de "plein écran" je n'ai qu'à
changer "true" par "false" et vis versa (?)

JP


wrote:
Salut,

avec ca ca marche, mais je ne comprend pas pourquoi il faut
l'appliquer a toutes les feuilles....

Sub PleinEcran()
Application.DisplayAlerts = False
For I = 1 To Worksheets.Count
Sheets(I).Select
Application.DisplayFullScreen = True
Application.CommandBars(1).Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.Zoom = 100
End With
Next I
Application.DisplayAlerts = True
End Sub

@+

Michel.



"j-pascal" a écrit dans le message de news:
OWmJw$
Bonsoir (ou bonjour...),

J'ai ce qui suit pour l'affichage plein écran :

Sub PleinEcran()
Application.DisplayFullScreen = True
Application.CommandBars(1).Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Range("c4").Activate
ActiveWindow.Zoom = 100
ActiveWindow.DisplayHeadings = False
End Sub


Sur la première feuille, je n'ai "rien", mais sur les suivantes,
j'ai les numéros à gauche et les lettres au dessus !
Je ne comprends pas pourquoi ! La seule particularité de la feuille 1
c'est que j'ai un "arrière-plan" !

Un grand merci d'avance pour vos lumières ...

JP




Avatar
Michel
Salut modeste,

Merci pour cette precision....

@+

Michel.


"Modeste" a écrit dans le message de news:

Bonsour® Michel avec ferveur ;o))) vous nous disiez :

avec ca ca marche, mais je ne comprend pas pourquoi il faut l'appliquer a
toutes les feuilles....
.DisplayHeadings = False


Simplement parceque DisplayHeading est une propriété de l'objet Worksheet
et non de l'objet Application.
en conséquence la propriété doit alors etre précisée pour chaque worksheet
--
--
@+
;o)))