1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Resolution et zoom Ecran

Discussion dans 'Forum Excel' démarrée par KTM, 11 Février 2019 à 21:24.

  1. KTM

    KTM XLDnaute Junior

    Inscrit depuis le :
    16 Septembre 2018
    Messages :
    72
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Salut tout le forum et tous ses membres éclairés.
    Je suis confronté à une situation que je n'arrive pas à gérer.
    J'ai conçu un fichier depuis mon ordinateur portable qui a la résolution 1366*768 et avec un zoom de 70% mes feuilles se présentent bien. Mais mes collègues qui utilisent ledit fichier sur des Bureautiques de plus grande résolution 1920*1080 et autres sont obligés de zoomer 100 ou plus pour plus de clarté.
    Ma préoccupation : Comment faire pour que à l'ouverture de mon fichier en fonction de la résolution de l'écran le zoom soit conséquent ? Sans modifier le Zoom initial bien sur
     
  2. Chargement...

    Discussions similaires - Resolution zoom Ecran Forum Date
    Aide pour Macro "Resolution d'écran" et Zoom Forum Excel 6 Avril 2007
    Zoom en fonction de la résolution , possible ? Forum Excel 23 Août 2007
    ZOOM Image USF en "Application.Width et .Height" suivant résolution. Forum Excel 18 Septembre 2006
    Excel Web Apps syntaxe de résolution de methode de king Forum Excel 14 Mai 2018
    Question basique : où trouver comment insérer listview ou textbox (bouton) ? [en cours de résolution Forum Excel 29 Septembre 2017

  3. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26269
    "J'aime" reçus :
    2301
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
  4. sousou

    sousou XLDnaute Accro

    Inscrit depuis le :
    21 Février 2005
    Messages :
    1656
    "J'aime" reçus :
    67
    Habite à:
    La Garenne Colombes
    Utilise:
    Excel 2010 (PC)
    Bonsoir
    essaie ce truc
    col est la dernière cellule que tu veux voir apparaître sur ton écran
    Sub zoom()
    col = 5
    lapp = Application.Width
    lfich = Cells(1, col).Left + Cells(1, col).Width
    Z = lapp / lfich
    ActiveWindow.zoom = Z * 100
    End Sub
     
  5. KTM

    KTM XLDnaute Junior

    Inscrit depuis le :
    16 Septembre 2018
    Messages :
    72
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Merci à toi
     

Partager cette page