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 plusieurs feuilles

Affichage plusieurs feuilles

8 réponses
Avatar
Gilse
Bonjour à tous.
Existe t-il un moyen de voir plusieurs feuilles en même temps sur l'écran ?
Merci de vos réponses
Gilles
Signaler un problème avec ce contenu

8 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
RaMA
Bonjour

Fenêtre
nouvelle fenêtre

Puis
fenêtre
reorganiser
cascade ou vertical ou horizontal

RaMa
"Gilse" a écrit dans le message de
news:cc73hs$4v0$
Bonjour à tous.
Existe t-il un moyen de voir plusieurs feuilles en même temps sur l'écran
?

Merci de vos réponses
Gilles




Avatar
michdenis
Bonjour Gilse,

Voici un exemple comment faire:

Admettons que tu veuilles avoir une présentation en 2 fenêtres verticales de la feuille présentement à l'écran.

Lorsque tu auras copié cette procédure dans un module standard, efface le signe égal "=" et retape-le, tu vas obtenir
les diverses constantes possibles ....

'---------------------------
Sub FenêtresVerticales()

Dim X As Excel.XlArrangeStyle
X = xlArrangeStyleVertical

'Crée une nouvelle fenêtre
ThisWorkbook.NewWindow

Application.Windows.Arrange X

End Sub
'---------------------------


Salutations




"Gilse" a écrit dans le message de news:cc73hs$4v0$
Bonjour à tous.
Existe t-il un moyen de voir plusieurs feuilles en même temps sur l'écran ?
Merci de vos réponses
Gilles
Avatar
Gilse
Bonsoir et merci.
Peut-on supprimer, ou du moins rendre invisible, en haut de l'une des
feuilles, la barre comportant le nom du classeur, les boutons réduction,
agrandir et fermeture ?
Gilles


"michdenis" a écrit dans le message de
news:
Bonjour Gilse,

Voici un exemple comment faire:

Admettons que tu veuilles avoir une présentation en 2 fenêtres verticales
de la feuille présentement à l'écran.


Lorsque tu auras copié cette procédure dans un module standard, efface le
signe égal "=" et retape-le, tu vas obtenir

les diverses constantes possibles ....

'---------------------------
Sub FenêtresVerticales()

Dim X As Excel.XlArrangeStyle
X = xlArrangeStyleVertical

'Crée une nouvelle fenêtre
ThisWorkbook.NewWindow

Application.Windows.Arrange X

End Sub
'---------------------------


Salutations




"Gilse" a écrit dans le message de
news:cc73hs$4v0$

Bonjour à tous.
Existe t-il un moyen de voir plusieurs feuilles en même temps sur l'écran
?

Merci de vos réponses
Gilles





Avatar
michdenis
Bonjour Gilles,

As-tu déjà essayé la commande " Barre des menus / affichage / Plein écran ?


Salutations!



"Gilse" a écrit dans le message de news:cc78jj$h7a$
Bonsoir et merci.
Peut-on supprimer, ou du moins rendre invisible, en haut de l'une des
feuilles, la barre comportant le nom du classeur, les boutons réduction,
agrandir et fermeture ?
Gilles


"michdenis" a écrit dans le message de
news:
Bonjour Gilse,

Voici un exemple comment faire:

Admettons que tu veuilles avoir une présentation en 2 fenêtres verticales
de la feuille présentement à l'écran.


Lorsque tu auras copié cette procédure dans un module standard, efface le
signe égal "=" et retape-le, tu vas obtenir

les diverses constantes possibles ....

'---------------------------
Sub FenêtresVerticales()

Dim X As Excel.XlArrangeStyle
X = xlArrangeStyleVertical

'Crée une nouvelle fenêtre
ThisWorkbook.NewWindow

Application.Windows.Arrange X

End Sub
'---------------------------


Salutations




"Gilse" a écrit dans le message de
news:cc73hs$4v0$

Bonjour à tous.
Existe t-il un moyen de voir plusieurs feuilles en même temps sur l'écran
?

Merci de vos réponses
Gilles





Avatar
Gilse
En fait, pour une plus belle présentation, je souhaiteais que, une fois
l'affichage horizontal de 2 feuilles sur le même écran, la barre comportant
le nom et les boutons n'apparait pas sur la feuille inférieure (celle du
bas).
Voila. J'espère être plus clair.
Gilles

"michdenis" a écrit dans le message de
news:%23$
Bonjour Gilles,

As-tu déjà essayé la commande " Barre des menus / affichage / Plein écran
?



Salutations!



"Gilse" a écrit dans le message de
news:cc78jj$h7a$

Bonsoir et merci.
Peut-on supprimer, ou du moins rendre invisible, en haut de l'une des
feuilles, la barre comportant le nom du classeur, les boutons réduction,
agrandir et fermeture ?
Gilles


"michdenis" a écrit dans le message de
news:
Bonjour Gilse,

Voici un exemple comment faire:

Admettons que tu veuilles avoir une présentation en 2 fenêtres
verticales


de la feuille présentement à l'écran.

Lorsque tu auras copié cette procédure dans un module standard, efface
le


signe égal "=" et retape-le, tu vas obtenir
les diverses constantes possibles ....

'---------------------------
Sub FenêtresVerticales()

Dim X As Excel.XlArrangeStyle
X = xlArrangeStyleVertical

'Crée une nouvelle fenêtre
ThisWorkbook.NewWindow

Application.Windows.Arrange X

End Sub
'---------------------------


Salutations




"Gilse" a écrit dans le message de
news:cc73hs$4v0$

Bonjour à tous.
Existe t-il un moyen de voir plusieurs feuilles en même temps sur
l'écran


?
Merci de vos réponses
Gilles










Avatar
michdenis
Bonjour Gilles,

Ce qui suit fera disparaître la barre de titre de ton application Excel.

La dernère question non résolu est : Comment faire pour réafficher la barre de titre ?


'Dans le haut d'un module - Déclaration des API

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)


'-------------------------
Sub CachéLaBarreDeTitreExcel()
Dim hwnd As Long, Style As Long
Nom = "Microsoft Excel - " & ActiveWindow.Caption
hwnd = FindWindow(vbNullString, Nom)
Style = GetWindowLong(hwnd, GWL_STYLE) And Not &HC00000
SetWindowLong hwnd, GWL_STYLE, Style
End Sub
'-------------------------



Salutations!



"Gilse" a écrit dans le message de news:cc86ru$h5n$
En fait, pour une plus belle présentation, je souhaiteais que, une fois
l'affichage horizontal de 2 feuilles sur le même écran, la barre comportant
le nom et les boutons n'apparait pas sur la feuille inférieure (celle du
bas).
Voila. J'espère être plus clair.
Gilles

"michdenis" a écrit dans le message de
news:%23$
Bonjour Gilles,

As-tu déjà essayé la commande " Barre des menus / affichage / Plein écran
?



Salutations!



"Gilse" a écrit dans le message de
news:cc78jj$h7a$

Bonsoir et merci.
Peut-on supprimer, ou du moins rendre invisible, en haut de l'une des
feuilles, la barre comportant le nom du classeur, les boutons réduction,
agrandir et fermeture ?
Gilles


"michdenis" a écrit dans le message de
news:
Bonjour Gilse,

Voici un exemple comment faire:

Admettons que tu veuilles avoir une présentation en 2 fenêtres
verticales


de la feuille présentement à l'écran.

Lorsque tu auras copié cette procédure dans un module standard, efface
le


signe égal "=" et retape-le, tu vas obtenir
les diverses constantes possibles ....

'---------------------------
Sub FenêtresVerticales()

Dim X As Excel.XlArrangeStyle
X = xlArrangeStyleVertical

'Crée une nouvelle fenêtre
ThisWorkbook.NewWindow

Application.Windows.Arrange X

End Sub
'---------------------------


Salutations




"Gilse" a écrit dans le message de
news:cc73hs$4v0$

Bonjour à tous.
Existe t-il un moyen de voir plusieurs feuilles en même temps sur
l'écran


?
Merci de vos réponses
Gilles










Avatar
michdenis
Bonjour Gilles,

Attention aux lignes de code coupées de façon intempestive par le service de messagerie.

Voilà la procédure au complet : Place le code qui suit dans un module standard :

Pour obtenir le résultat que tu attends, lance seulement la procédure :
Sub FenêtresVerticales()


'Déclaration dans le haut du module standard des API requis
'--------------------------------------------------
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Public Const WS_CAPTION = &HC00000


'Cache la barre de titre de l'application Excel
'--------------------------------------------------
Sub CachéLaBarreDeTitreExcel()
Dim hWnd As Long, Style As Long
Nom = ActiveWindow.Application.Parent.Caption
hWnd = FindWindow(vbNullString, Nom)
Style = GetWindowLong(hWnd, GWL_STYLE) And Not WS_CAPTION
SetWindowLong hWnd, GWL_STYLE, Style
End Sub
'--------------------------------------------------


'Affiche la barre de titre de l'application Excel
'--------------------------------------------------
Sub AfficherLaBarreDeTitreExcel()
Dim hWnd As Long, Style As Long
Nom = ActiveWindow.Application.Parent.Caption
hWnd = FindWindow(vbNullString, Nom)
Style = GetWindowLong(hWnd, GWL_STYLE) Or WS_CAPTION
SetWindowLong hWnd, GWL_STYLE, Style
End Sub
'--------------------------------------------------


'Cette procédure va faire une réorganisation de l'affichage
'de ta fenêtre active de l'application Excel vers un
'affichage à double fenêtre verticale En exécutant cette
'procédure, cette dernière fait appel à la procédure
' "CachéLaBarreDeTitreExcel" pour cacher 'la barre de titre
'--------------------------------------------------
Sub FenêtresVerticales()

Dim X As Excel.XlArrangeStyle
X = xlArrangeStyleVertical

'Crée une nouvelle fenêtre
ThisWorkbook.NewWindow

Application.Windows.Arrange X
CachéLaBarreDeTitreExcel
End Sub
'--------------------------------------------------

N.B. Si tu veux que l'usager ne puisse redimensionner individuellement les 2 fenêtres affichées dans l'application
excel, tu n'as qu'à protéger le classeur (non pas la feuille). Cela donnerait quelque chose dans le genre, nom de la
procédure que tu pourrais ajouter après "CachéLaBarreDeTitreExcel" dans la procédure générale Sub FenêtresVerticales()

'--------------------------
Sub ProtectionFenêtresClasseurs()

ActiveWorkbook.Protect "motdepasse", Structure:=True, Windows:=True

End Sub
'--------------------------


Salutations!





"Gilse" a écrit dans le message de news:cc86ru$h5n$
En fait, pour une plus belle présentation, je souhaiteais que, une fois
l'affichage horizontal de 2 feuilles sur le même écran, la barre comportant
le nom et les boutons n'apparait pas sur la feuille inférieure (celle du
bas).
Voila. J'espère être plus clair.
Gilles

"michdenis" a écrit dans le message de
news:%23$
Bonjour Gilles,

As-tu déjà essayé la commande " Barre des menus / affichage / Plein écran
?



Salutations!



"Gilse" a écrit dans le message de
news:cc78jj$h7a$

Bonsoir et merci.
Peut-on supprimer, ou du moins rendre invisible, en haut de l'une des
feuilles, la barre comportant le nom du classeur, les boutons réduction,
agrandir et fermeture ?
Gilles


"michdenis" a écrit dans le message de
news:
Bonjour Gilse,

Voici un exemple comment faire:

Admettons que tu veuilles avoir une présentation en 2 fenêtres
verticales


de la feuille présentement à l'écran.

Lorsque tu auras copié cette procédure dans un module standard, efface
le


signe égal "=" et retape-le, tu vas obtenir
les diverses constantes possibles ....

'---------------------------
Sub FenêtresVerticales()

Dim X As Excel.XlArrangeStyle
X = xlArrangeStyleVertical

'Crée une nouvelle fenêtre
ThisWorkbook.NewWindow

Application.Windows.Arrange X

End Sub
'---------------------------


Salutations




"Gilse" a écrit dans le message de
news:cc73hs$4v0$

Bonjour à tous.
Existe t-il un moyen de voir plusieurs feuilles en même temps sur
l'écran


?
Merci de vos réponses
Gilles










Avatar
Gilse
Il n' a plus qu'à mettre ça en place...
Merci
Gilles

"michdenis" a écrit dans le message de
news:
Bonjour Gilles,

Attention aux lignes de code coupées de façon intempestive par le service
de messagerie.


Voilà la procédure au complet : Place le code qui suit dans un module
standard :


Pour obtenir le résultat que tu attends, lance seulement la procédure :
Sub FenêtresVerticales()


'Déclaration dans le haut du module standard des API requis
'--------------------------------------------------
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA"
_

(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
_

(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As
Long

Const GWL_STYLE = (-16)
Public Const WS_CAPTION = &HC00000


'Cache la barre de titre de l'application Excel
'--------------------------------------------------
Sub CachéLaBarreDeTitreExcel()
Dim hWnd As Long, Style As Long
Nom = ActiveWindow.Application.Parent.Caption
hWnd = FindWindow(vbNullString, Nom)
Style = GetWindowLong(hWnd, GWL_STYLE) And Not WS_CAPTION
SetWindowLong hWnd, GWL_STYLE, Style
End Sub
'--------------------------------------------------


'Affiche la barre de titre de l'application Excel
'--------------------------------------------------
Sub AfficherLaBarreDeTitreExcel()
Dim hWnd As Long, Style As Long
Nom = ActiveWindow.Application.Parent.Caption
hWnd = FindWindow(vbNullString, Nom)
Style = GetWindowLong(hWnd, GWL_STYLE) Or WS_CAPTION
SetWindowLong hWnd, GWL_STYLE, Style
End Sub
'--------------------------------------------------


'Cette procédure va faire une réorganisation de l'affichage
'de ta fenêtre active de l'application Excel vers un
'affichage à double fenêtre verticale En exécutant cette
'procédure, cette dernière fait appel à la procédure
' "CachéLaBarreDeTitreExcel" pour cacher 'la barre de titre
'--------------------------------------------------
Sub FenêtresVerticales()

Dim X As Excel.XlArrangeStyle
X = xlArrangeStyleVertical

'Crée une nouvelle fenêtre
ThisWorkbook.NewWindow

Application.Windows.Arrange X
CachéLaBarreDeTitreExcel
End Sub
'--------------------------------------------------

N.B. Si tu veux que l'usager ne puisse redimensionner individuellement les
2 fenêtres affichées dans l'application

excel, tu n'as qu'à protéger le classeur (non pas la feuille). Cela
donnerait quelque chose dans le genre, nom de la

procédure que tu pourrais ajouter après "CachéLaBarreDeTitreExcel" dans la
procédure générale Sub FenêtresVerticales()


'--------------------------
Sub ProtectionFenêtresClasseurs()

ActiveWorkbook.Protect "motdepasse", Structure:=True, Windows:=True

End Sub
'--------------------------


Salutations!





"Gilse" a écrit dans le message de
news:cc86ru$h5n$

En fait, pour une plus belle présentation, je souhaiteais que, une fois
l'affichage horizontal de 2 feuilles sur le même écran, la barre
comportant

le nom et les boutons n'apparait pas sur la feuille inférieure (celle du
bas).
Voila. J'espère être plus clair.
Gilles

"michdenis" a écrit dans le message de
news:%23$
Bonjour Gilles,

As-tu déjà essayé la commande " Barre des menus / affichage / Plein
écran


?


Salutations!



"Gilse" a écrit dans le message de
news:cc78jj$h7a$

Bonsoir et merci.
Peut-on supprimer, ou du moins rendre invisible, en haut de l'une des
feuilles, la barre comportant le nom du classeur, les boutons réduction,
agrandir et fermeture ?
Gilles


"michdenis" a écrit dans le message de
news:
Bonjour Gilse,

Voici un exemple comment faire:

Admettons que tu veuilles avoir une présentation en 2 fenêtres
verticales


de la feuille présentement à l'écran.

Lorsque tu auras copié cette procédure dans un module standard, efface
le


signe égal "=" et retape-le, tu vas obtenir
les diverses constantes possibles ....

'---------------------------
Sub FenêtresVerticales()

Dim X As Excel.XlArrangeStyle
X = xlArrangeStyleVertical

'Crée une nouvelle fenêtre
ThisWorkbook.NewWindow

Application.Windows.Arrange X

End Sub
'---------------------------


Salutations




"Gilse" a écrit dans le message de
news:cc73hs$4v0$

Bonjour à tous.
Existe t-il un moyen de voir plusieurs feuilles en même temps sur
l'écran


?
Merci de vos réponses
Gilles