Mon dossier s'ouvre sur une page spéciale "sommaire" qui me permet d'aller
sur d'autres feuilles.
Pour plus de confort, je voulai savoir si s'était possible que cette feuille
s'ouvre au format de l'écran, je m'explique.
Je travaille souvent chez moi et j' ai un écran de 19 pouces, au boulot
l'écran est de 15 pouces.J'ai du adapter ma présentation, pour que la
feuille tienne sur l'écran de 15, par conséquent sur l'écran de 19, mon
tableau n'occupe que le tiers de l'écran.
Est-ce possible et si oui comment faire
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
Pascal
Bonjour Dans un module this workbook
Private Sub Workbook_Activate() Application.DisplayFullScreen = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Saved = True End Sub
Private Sub Workbook_Deactivate() Application.DisplayFullScreen = False End Sub
Bonne journée pascal
"fredbzr" a écrit dans le message de news: 45c06cba$0$25951$
Bonjour,
Mon dossier s'ouvre sur une page spéciale "sommaire" qui me permet d'aller sur d'autres feuilles. Pour plus de confort, je voulai savoir si s'était possible que cette feuille s'ouvre au format de l'écran, je m'explique. Je travaille souvent chez moi et j' ai un écran de 19 pouces, au boulot l'écran est de 15 pouces.J'ai du adapter ma présentation, pour que la feuille tienne sur l'écran de 15, par conséquent sur l'écran de 19, mon tableau n'occupe que le tiers de l'écran. Est-ce possible et si oui comment faire
merci à vous
--
Fred
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000709-0, 30/01/2007 Analyse le : 31/01/2007 11:19:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000709-0, 30/01/2007 Analyse le : 31/01/2007 11:21:33 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Bonjour
Dans un module this workbook
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Bonne journée
pascal
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
45c06cba$0$25951$ba4acef3@news.orange.fr...
Bonjour,
Mon dossier s'ouvre sur une page spéciale "sommaire" qui me permet d'aller
sur d'autres feuilles.
Pour plus de confort, je voulai savoir si s'était possible que cette
feuille s'ouvre au format de l'écran, je m'explique.
Je travaille souvent chez moi et j' ai un écran de 19 pouces, au boulot
l'écran est de 15 pouces.J'ai du adapter ma présentation, pour que la
feuille tienne sur l'écran de 15, par conséquent sur l'écran de 19, mon
tableau n'occupe que le tiers de l'écran.
Est-ce possible et si oui comment faire
merci à vous
--
Fred
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000709-0, 30/01/2007
Analyse le : 31/01/2007 11:19:46
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000709-0, 30/01/2007
Analyse le : 31/01/2007 11:21:33
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Private Sub Workbook_Activate() Application.DisplayFullScreen = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Saved = True End Sub
Private Sub Workbook_Deactivate() Application.DisplayFullScreen = False End Sub
Bonne journée pascal
"fredbzr" a écrit dans le message de news: 45c06cba$0$25951$
Bonjour,
Mon dossier s'ouvre sur une page spéciale "sommaire" qui me permet d'aller sur d'autres feuilles. Pour plus de confort, je voulai savoir si s'était possible que cette feuille s'ouvre au format de l'écran, je m'explique. Je travaille souvent chez moi et j' ai un écran de 19 pouces, au boulot l'écran est de 15 pouces.J'ai du adapter ma présentation, pour que la feuille tienne sur l'écran de 15, par conséquent sur l'écran de 19, mon tableau n'occupe que le tiers de l'écran. Est-ce possible et si oui comment faire
merci à vous
--
Fred
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000709-0, 30/01/2007 Analyse le : 31/01/2007 11:19:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000709-0, 30/01/2007 Analyse le : 31/01/2007 11:21:33 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
fredbzr
Bonjour Pascal impeccable merci et bonne journée "Pascal" a écrit dans le message de news: 45c06dac$0$5109$
Bonjour Dans un module this workbook
Private Sub Workbook_Activate() Application.DisplayFullScreen = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Saved = True End Sub
Private Sub Workbook_Deactivate() Application.DisplayFullScreen = False End Sub
Bonne journée pascal
"fredbzr" a écrit dans le message de news: 45c06cba$0$25951$
Bonjour,
Mon dossier s'ouvre sur une page spéciale "sommaire" qui me permet d'aller sur d'autres feuilles. Pour plus de confort, je voulai savoir si s'était possible que cette feuille s'ouvre au format de l'écran, je m'explique. Je travaille souvent chez moi et j' ai un écran de 19 pouces, au boulot l'écran est de 15 pouces.J'ai du adapter ma présentation, pour que la feuille tienne sur l'écran de 15, par conséquent sur l'écran de 19, mon tableau n'occupe que le tiers de l'écran. Est-ce possible et si oui comment faire
merci à vous
--
Fred
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000709-0, 30/01/2007 Analyse le : 31/01/2007 11:19:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000709-0, 30/01/2007 Analyse le : 31/01/2007 11:21:33 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Bonjour Pascal
impeccable
merci et bonne journée
"Pascal" <lapless@wanadoo.fr> a écrit dans le message de news:
45c06dac$0$5109$ba4acef3@news.orange.fr...
Bonjour
Dans un module this workbook
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Bonne journée
pascal
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
45c06cba$0$25951$ba4acef3@news.orange.fr...
Bonjour,
Mon dossier s'ouvre sur une page spéciale "sommaire" qui me permet
d'aller sur d'autres feuilles.
Pour plus de confort, je voulai savoir si s'était possible que cette
feuille s'ouvre au format de l'écran, je m'explique.
Je travaille souvent chez moi et j' ai un écran de 19 pouces, au boulot
l'écran est de 15 pouces.J'ai du adapter ma présentation, pour que la
feuille tienne sur l'écran de 15, par conséquent sur l'écran de 19, mon
tableau n'occupe que le tiers de l'écran.
Est-ce possible et si oui comment faire
merci à vous
--
Fred
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000709-0, 30/01/2007
Analyse le : 31/01/2007 11:19:46
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000709-0, 30/01/2007
Analyse le : 31/01/2007 11:21:33
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour Pascal impeccable merci et bonne journée "Pascal" a écrit dans le message de news: 45c06dac$0$5109$
Bonjour Dans un module this workbook
Private Sub Workbook_Activate() Application.DisplayFullScreen = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Saved = True End Sub
Private Sub Workbook_Deactivate() Application.DisplayFullScreen = False End Sub
Bonne journée pascal
"fredbzr" a écrit dans le message de news: 45c06cba$0$25951$
Bonjour,
Mon dossier s'ouvre sur une page spéciale "sommaire" qui me permet d'aller sur d'autres feuilles. Pour plus de confort, je voulai savoir si s'était possible que cette feuille s'ouvre au format de l'écran, je m'explique. Je travaille souvent chez moi et j' ai un écran de 19 pouces, au boulot l'écran est de 15 pouces.J'ai du adapter ma présentation, pour que la feuille tienne sur l'écran de 15, par conséquent sur l'écran de 19, mon tableau n'occupe que le tiers de l'écran. Est-ce possible et si oui comment faire
merci à vous
--
Fred
--- Antivirus avast! : message Entrant sain. Base de donnees virale (VPS) : 000709-0, 30/01/2007 Analyse le : 31/01/2007 11:19:46 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
--- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 000709-0, 30/01/2007 Analyse le : 31/01/2007 11:21:33 avast! - copyright (c) 1988-2007 ALWIL Software. http://www.avast.com
Garette
Bonjour,
Le code suivant peut etre mis dans Workbook_Open() ou Workbook_Activate() A l'ouverture du classeur le Zoom est appliqué sur la zone choisie quelle que soit la résolution et la taille de l'écran.
Private Sub Workbook_Open() Application.ScreenUpdating = False Range("A1").CurrentRegion.Select 'Ou bien : Range('reference du tableau').Select ActiveWindow.Zoom = True Range("A1").Select Application.ScreenUpdating = True End Sub
NB - Le 1er Range("A1") doit/peut etre remplacer par la référence de la premiere cellule du tableau ou par la référence du tableau qu'on veut voir affiché à l'écran.
Bonjour,
Le code suivant peut etre mis dans Workbook_Open() ou Workbook_Activate()
A l'ouverture du classeur le Zoom est appliqué sur la zone choisie quelle
que soit la résolution et la taille de l'écran.
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Select
'Ou bien : Range('reference du tableau').Select
ActiveWindow.Zoom = True
Range("A1").Select
Application.ScreenUpdating = True
End Sub
NB - Le 1er Range("A1") doit/peut etre remplacer par la référence de la
premiere cellule du tableau ou par la référence du tableau qu'on veut voir
affiché à l'écran.
Le code suivant peut etre mis dans Workbook_Open() ou Workbook_Activate() A l'ouverture du classeur le Zoom est appliqué sur la zone choisie quelle que soit la résolution et la taille de l'écran.
Private Sub Workbook_Open() Application.ScreenUpdating = False Range("A1").CurrentRegion.Select 'Ou bien : Range('reference du tableau').Select ActiveWindow.Zoom = True Range("A1").Select Application.ScreenUpdating = True End Sub
NB - Le 1er Range("A1") doit/peut etre remplacer par la référence de la premiere cellule du tableau ou par la référence du tableau qu'on veut voir affiché à l'écran.
fredbzr
Bonjour Garette Nickel chrome, c'est exactement çà que je souhaitai merci pour le code et les explications bonne journée "Garette" a écrit dans le message de news:
Bonjour,
Le code suivant peut etre mis dans Workbook_Open() ou Workbook_Activate() A l'ouverture du classeur le Zoom est appliqué sur la zone choisie quelle que soit la résolution et la taille de l'écran.
Private Sub Workbook_Open() Application.ScreenUpdating = False Range("A1").CurrentRegion.Select 'Ou bien : Range('reference du tableau').Select ActiveWindow.Zoom = True Range("A1").Select Application.ScreenUpdating = True End Sub
NB - Le 1er Range("A1") doit/peut etre remplacer par la référence de la premiere cellule du tableau ou par la référence du tableau qu'on veut voir affiché à l'écran.
Bonjour Garette
Nickel chrome, c'est exactement çà que je souhaitai
merci pour le code et les explications
bonne journée
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
OdkcfkSRHHA.3592@TK2MSFTNGP06.phx.gbl...
Bonjour,
Le code suivant peut etre mis dans Workbook_Open() ou Workbook_Activate()
A l'ouverture du classeur le Zoom est appliqué sur la zone choisie quelle
que soit la résolution et la taille de l'écran.
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Select
'Ou bien : Range('reference du tableau').Select
ActiveWindow.Zoom = True
Range("A1").Select
Application.ScreenUpdating = True
End Sub
NB - Le 1er Range("A1") doit/peut etre remplacer par la référence de la
premiere cellule du tableau ou par la référence du tableau qu'on veut voir
affiché à l'écran.
Bonjour Garette Nickel chrome, c'est exactement çà que je souhaitai merci pour le code et les explications bonne journée "Garette" a écrit dans le message de news:
Bonjour,
Le code suivant peut etre mis dans Workbook_Open() ou Workbook_Activate() A l'ouverture du classeur le Zoom est appliqué sur la zone choisie quelle que soit la résolution et la taille de l'écran.
Private Sub Workbook_Open() Application.ScreenUpdating = False Range("A1").CurrentRegion.Select 'Ou bien : Range('reference du tableau').Select ActiveWindow.Zoom = True Range("A1").Select Application.ScreenUpdating = True End Sub
NB - Le 1er Range("A1") doit/peut etre remplacer par la référence de la premiere cellule du tableau ou par la référence du tableau qu'on veut voir affiché à l'écran.
