Diminuer la taille d'une fenêtre Excel

A2H

XLDnaute Nouveau
SVP
J'ai besoin d'un code vba qui me permet de diminuer les dimension d'une fenêtre excel
Merci
 

job75

XLDnaute Barbatruc
Bonjour A2H, Modeste geedee,

Sur Excel 2007 et versions suivantes :
Code:
Sub Initialiser()
'se lance par Ctrl+I
With Application
    .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)" 'affiche le ruban
    .DisplayFormulaBar = True
    .WindowState = xlNormal
    .Height = 600
    .Width = 1000
    .WindowState = xlMaximized
End With
End Sub

Sub Diminuer()
'se lance pat Ctrl+D
With Application
    .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'masque le ruban
    .DisplayFormulaBar = False
    .WindowState = xlNormal
    .Height = 0.9 * .Height
    .Width = 0.9 * .Width
End With
End Sub
A+
 

Pièces jointes

  • Fenêtre Excel(1).xlsm
    22.7 KB · Affichages: 24

Discussions similaires

Réponses
1
Affichages
270
Compte Supprimé 979
C
  • Question
XL 2010 Zoom
Réponses
5
Affichages
241
Réponses
1
Affichages
67
  • Résolu(e)
Microsoft 365 Taille UserForm
Réponses
3
Affichages
301

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG