Discussion :

[apt]

Bonsoir à tous,

Pour limiter la zone d'affichage d'une feuille, j'ai utilisé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Activate()
    Dim LastLgA As Long, endRowA As Long
    Dim Ws As Worksheet
    With Me
        .Range(Columns("G"), Columns("G").End(xlToRight)).EntireColumn.Hidden = True
        .Range(Rows("11"), Rows("11").End(xlDown)).EntireRow.Hidden = True
        .ScrollArea = "A1:F10"
        .Range("A1:F10").Select
 
        ActiveWindow.DisplayHeadings = False
        ScreenResolution
        Application.Goto Range("A1"), True
        .Range("12:12").Select
        ActiveWindow.FreezePanes = True
    End With
End Sub

Dans un module fe feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" _
                                    (ByVal nIndex As Long) As Long
 
Function DisplayVideoResolution() As String
    DisplayVideoResolution = GetSystemMetrics32(0) & " x " & _
                             GetSystemMetrics32(1)
End Function
 
Sub ScreenResolution()
    Dim Zoom&
    On Error Resume Next
    If DisplayVideoResolution = "1024 x 768" Then Zoom = 210
    If DisplayVideoResolution = "800 x 600" Then Zoom = 168
    If DisplayVideoResolution = "640 x 480" Then Zoom = 105
 
    Sheets("Feuil1").Activate
    ActiveWindow.Zoom = Zoom
End Sub

Mais je n'arrive pas encore à avoir ce que j'espère.

Merci.

Bonsoir,

- J'aimerais figer la zone d'affichage ainsi que les barres de défilement.

- Tester si le code est bien adapter pour tous les résolutions.

Merci.

[apt]

Bonjour,

J'ai essayé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
    Range(Columns("G"), Columns("G").End(xlToRight)).EntireColumn.Hidden = True
    Range(Rows("11"), Rows("11").End(xlDown)).EntireRow.Hidden = True
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    Application.ScreenUpdating = False
    Feuil1.Activate
    Feuil1.Range("A1:F8").Select
    ActiveWindow.Zoom = True
    Feuil1.ScrollArea = "A1:F1"
    Range("a11").Select
    Application.ScreenUpdating = False
End Sub

Mais la zone de travail ne veut pas se réajuster à la fenêtre active (Il y a toujours un espace visuel)...

Alors j'ai modifié le code comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
    With Sheets("Feuil1")
        ActiveWindow.DisplayHeadings = False
        ActiveWindow.DisplayHorizontalScrollBar = False
        ActiveWindow.DisplayVerticalScrollBar = False
        Application.ScreenUpdating = False
        .ScrollArea = "A1:I1"
        .Range("A20").Select
        Application.ScreenUpdating = True
    End With
End Sub

Mais reste le souci des barres de défilements qui sont désactivées dans toutes les feuilles du classeur au lieu de la première feuille seulement.

Une piste ?

Merci.