Détecter la taille d'écran

[TIOBI]

Salut a tous,

Y a t'il un moyen d'adapter l'affichage
d'une feuille (automatiquement à l'ouverture du classeur) en fonction du type d'écran et de la
configuration d'affichage de l'utilisateur ?

 

[JeanMarie]

Bonsoir TIOBI

Pour connaître la taille d'affichage

Public Sub TailleEcran()
  Select Case Application.DefaultWebOptions.ScreenSize
  Case msoScreenSize1024x768
     MsgBox 'Taille écran de 1024*768'
  Case msoScreenSize1152x882
     MsgBox 'Taille écran de 1152*882'
  Case msoScreenSize1152x900
     MsgBox 'Taille écran de 1152*900'
  Case msoScreenSize1280x1024
     MsgBox 'Taille écran de 1280*1024'
  Case msoScreenSize1600x1200
     MsgBox 'Taille écran de 1600*1200'
  Case msoScreenSize1800x1440
     MsgBox 'Taille écran de 1800*1440'
  Case msoScreenSize1920x1200
     MsgBox 'Taille écran de 1920*1200'
  Case msoScreenSize544x376
     MsgBox 'Taille écran de 544*376'
  Case msoScreenSize640x480
     MsgBox 'Taille écran de 640*480'
  Case msoScreenSize720x512
     MsgBox 'Taille écran de 720*512'
  Case msoScreenSize800x600
     MsgBox 'Taille écran de 800*600'
  Case Else
     MsgBox 'la Taille écran d'affichage n'est pas référencée'
  End Select
  End Sub

Pour maximiser la fenêtre à l'ouverture du fichier, code à mettre dans le ThisWorkbook

Private Sub Workbook_Open()
   Application.WindowState = xlMaximized
End Sub

@+Jean-Marie

 

[PascalXLD]

Bonjour

Fil déplacé sur le bon forum