Microsoft 365 format adaptable a chaque écran automatique

[Taratessy]

Bonjour,

je n'arrive pas a fair en sorte que ma feuille ce mette automatiquement a la taille de l'écran comme par exemple un site web qui s'adapte a votre écran automatiquement .

cela est-il possible ?

merci de votre aide

 

[jurassic pork]

Hello,
il y a le facteur d'agrandissement ajusté à la sélection
1 - Dans la feuille tu sélectionnes ce que tu veux voir.
2 - Dans Affichage/Zoom/Facteur d'agrandissement choisir ajusté à la sélection
Si tu veux que cela soit automatique, il faut peut être passer par une macro.

Ami calmant, J.P

 

[PORCHER]

Bonjour, dans une macro tu met ceci et ton écran à l'ouverture du fichier prendra toute la largeur et longueur.
Tu déclare ceci : Public oResH, oResW, oResL, oResT As Variant

Private Sub Workbook_Open()
Call App_Reso
End sub

'déclarer L'API
#If Win32 Then
Declare PtrSafe Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As LongPtr) As LongPtr
#Else
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#End If
#If Win32 Then
Dim oLarg As LongPtr, oHaut As LongPtr
#Else
Dim oLarg As Long, oHaut As Long
#End If

Sub App_Reso()
Dim oImg As Integer, oLbl As Integer, oDif As Double
If Application.WindowState = xlMaximized Then
Application.WindowState = xlNormal
End If
oResH = Application.Height
oResW = Application.Width
oResL = Application.Left
oResT = Application.Top
oLarg = GetSystemMetrics32(0) 'récupère la largeur de l'écran en pixel
oHaut = GetSystemMetrics32(1) ' récupère la longueur de l'écran en pixel
'If oLarg >= 1400 Then oZoom = 100 Else oZoom = 88
Application.Left = 1
Application.Top = 3
Application.Width = (oLarg * 0.749)
Application.Height = (oHaut * 0.715)
oLbl = Application.Height
Call AutoUnProtect(ws_Home)
End Sub

 

[PORCHER]

Voila ton fichier corrigé

 

[Taratessy]

Merci pour votre aide

genial

 

[patricktoulon]

Bonjour
perso je vois pas le problème ou la difficulté au point de sortir les api
si tu met le windowstate à xlmaximized et zoomer sur une sélection de ton choix l'affaire est faite
et pour rendre cela automatique tu met ça dans dans le module thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With Application
        If .WindowState <> xlMaximized Then .WindowState = xlMaximized
    End With
    Select Case Sh.Name
        Case "LUNDI", "MARDI", "MERCREDI", "JEUDI", "VENDREDI", "SAMEDI", "DIMANCHE"
            [A1:AR30].Select
           
        Case "INTERIM" 'select ce que tu veux ici
            [A1:H25].Select
           
        Case "chauffeur samedi" 'select ce que tu veux ici
            [A1:H37].Select
            'etc....
    End Select
    ActiveWindow.Zoom = True
    Application.Goto [A1]
End Sub

te reste plus qu'adapter la plage à zoomer
pour l'instant j'ai mis la largeur complète de la plage utilisée
à chaque changement le zoom s'adapte

patrick

 

[PORCHER]

Regarde ton fichier corrigé.
J'ai installé la macro de patricktoulon et je le remercie
toutes les feuilles activées seront automatiques suivant les résolutions de ton écran.
Bonne continuation et cordialement