L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Connaître l'espace disponible dans la fenêtre d'Excel

Imprimer E-mail
5 mars 2014
Sub DimFenetre()
With ActiveWindow
.WindowState = xlNormal
Range("A1") = "Largeur"
Range("B1") = .Width
Range("A2") = "Largeur utilisable de l'application"
Range("B2") = Application.UsableWidth
Range("A3") = "Largeur utilisable de la fenêtre"
Range("B3") = .UsableWidth
Range("A4") = "Hauteur"
Range("B4") = .Height
Range("A5") = "hauteur utilisable de l'application"
Range("B5") = Application.UsableHeight
Range("A6") = "hauteur utilisable de la fenêtre"
Range("B6") = .UsableHeight
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
Range("C1") = "Après masquage des onglets barre de défilement, etc.."
Range("C3") = .UsableWidth
Range("C6") = .UsableHeight
End With
End Sub