Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Code vba plein écran

L_Wa

XLDnaute Nouveau
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 !
 

fanch55

XLDnaute Barbatruc
Bonjour :
VB:
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
 

fanch55

XLDnaute Barbatruc
@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 .
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…