Discussion :

[LAJ108121]

Bonjour,


J'ai fait des recherches et ai trouvé quelques post relatifs à ce problème, mais qui n'ont pas eu de solution en réponse.

Est il possible en vba de forcer/modifier (en fait le gérer) le paramètre Windows d'affichage "mise à l'échelle et disposition" par exemple à 100%, ou 150% ?

en vous remerciant

L@j

[laurent_ott]

Bonjour,
Je n'ai peut-être pas compris la question, mais s'il s'agit du zoom :

Code :

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

ActiveWindow.Zoom = XXX ' Valeur du zoom.

D'où cette fonction (un exemple) :

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
21
22
23
24
25
26
27
28
29
30
31
'----------------------------------------------------------------------------------------
Public Sub ConfigurationClasseur(Optional EtatFenetre As XlWindowState = xlMaximized, _
                                 Optional BarreFormule As Boolean = True, Optional Onglet As Boolean = True, _
                                 Optional Entete As Boolean = True, Optional Quadrillage As Boolean = True, _
                                 Optional Zoom As Integer = 100, Optional PleinEcran As Boolean = False, _
                                 Optional ReferenceStyle As XlReferenceStyle = xlA1)
'----------------------------------------------------------------------------------------
' Permet de configurer le classeur actif suivant les options voulues.
'----------------------------------------------------------------------------------------
' Exemple : Call ConfigurationClasseur(xlMaximized, False, False, False, False, 80)
'----------------------------------------------------------------------------------------
Dim ActiveS As Worksheet, s As Worksheet
On Error Resume Next
 
Application.WindowState = EtatFenetre            ' Etat du classeur.
Application.DisplayFormulaBar = BarreFormule     ' Etat de la barre des formules.
Application.ReferenceStyle = ReferenceStyle      ' Affiche les colonnes en Lettres ou chiffres
ActiveWindow.DisplayWorkbookTabs = Onglet        ' Etat des onglets des feuilles.
Application.DisplayFullScreen = PleinEcran       ' Etat du plein écran.
Application.ScreenUpdating = False               ' Bloque la Mise à jour de l'écran.
Set ActiveS = ActiveSheet                        ' Mémorise la feuille active
For Each s In ThisWorkbook.Sheets                ' Boucle sur les feuilles...
    s.Activate                                   ' Active la feuille.
    ActiveWindow.WindowState = EtatFenetre       ' Etat de la Fenêtre.
    ActiveWindow.DisplayHeadings = Entete        ' Etat des en-têtes.
    ActiveWindow.DisplayGridlines = Quadrillage  ' Etat du quadrillage.
    ActiveWindow.Zoom = Zoom                     ' Valeur du zoom.
Next s
ActiveS.Activate                    ' Revient sur l'ancienne feuille active.
Application.ScreenUpdating = True   ' Libère la mise à jour de l'écran.
End Sub