XL 2016 Code vba plein écran

[L_Wa]

Bonjour à tous,

J'utilise ce code VBA sur divers tableurs me permettant d'ouvrir le fichier en plein écran :

Sub Workbook_Open()
Application.DisplayFullScreen = True = Application.DisplayFullScreen = False
Worksheets("ACCUEIL").Activate
End Sub

Seul bémol, l'affichage ne s'adapte pas à la taille de plusieurs écrans. Par exemple sur mon écran (là où les tableurs sont édités) pas de PB, dès qu'un collègue ouvre un de ces tableurs, s'il dispose d'un écran plus petit ou plus grand l'affichage n'est plus correctement réparti.

Avez-vous une solution ?

D'avance merci !

 

[gbinforme]

Bonjour,
Cela ne serait-il pas plutôt :

Sub Workbook_Open()
Application.DisplayFullScreen = True ' plein écran
Worksheets("ACCUEIL").Activate
End Sub

 

[fanch55]

Bonjour :

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True ' plein écran
    With Worksheets("ACCUEIL")
        .Activate
        .Columns("A:F").Select ' ou .Range("A3:M22").select
    End With
    ActiveWindow.Zoom = True
End Sub

 

[L_Wa]

Bonjour @gbinforme et @fanch55 !

Merci pour vos retours, en effet @gbinforme erreur de copié collé 😉

@fanch55 , si je comprends bien ton code, la sélection des colonnes A : F signifie que l'on met uniquement cette plage en plein écran ?

 

[fanch55]

@fanch55 , si je comprends bien ton code, la sélection des colonnes A : F signifie que l'on met uniquement cette plage en plein écran ?

Tout à fait, on essaye d'afficher l'intégralité de la plage demandée dans l'écran affiché ( qu'il soit fullscreen ou non ).

• si c'est une série de colonnes, priorité à celles-ci,
  le nombre de lignes sera dépendant de la résolution écran .
• si c'est une série de lignes, priorité à celles-ci,
  le nombre de colonnes sera dépendant de la résolution écran .
• si c'est une plage, celle-ci sera casée dans l'affichage,
  le nombre de lignes et de colonnes éventuellement supplémentaires sera dépendant de la résolution écran .

 

[L_Wa]

@fanch55 très clair merci !

Merci à vous deux pour votre aide 👍

A bientôt