Proplème de Zoom

achgel 62 Messages postés mercredi 26 août 2009Date d'inscription 19 juin 2017 Dernière intervention - 1 juin 2017 à 14:13 - Dernière réponse : Patrice33740 6516 Messages postés dimanche 13 juin 2010Date d'inscription 16 janvier 2018 Dernière intervention
- 19 juin 2017 à 15:01
Bonjour,

J'utilise la Macro suivante pour que le fichier s'ouvre à la dimension de l’Écran.
mon problème c'est que quand j'ai un nouveau Écran je doit ajouter manuellement sa resolution dans la Macro.
Quelqu’un peut m'aider pour que je puisse changer d’Écran sans passer par le changement de la Macro d'une façon manuelle.

Merci beaucoup.
  • ==================

Option Explicit
'==déclarer L'API
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Dim Largeur As Integer, Hauteur As Integer
'==Macro à mettre dans un module, et à appeler à l'ouverture du classeur

[/contents/446-fichier-sub Sub] choixzoom()

Dim Largeur As Integer, Hauteur As Integer

  Largeur = GetSystemMetrics(0) '==récupère la largeur de l'écran en pixel
  Hauteur = GetSystemMetrics(1) '==récupère la longueur de l'écran en pixel
  
  'ActiveWindow.Zoom = 100
  
If Largeur = 1600 And Hauteur = 900 Then
ActivZoom (120) '==appliquer le poucentage voulu

ElseIf Largeur = 1280 And Hauteur = 1024 Then
ActivZoom (100) '==appliquer le poucentage voulu

ElseIf Largeur = 1152 And Hauteur = 864 Then
ActivZoom (80)

ElseIf Largeur = 1024 And Hauteur = 600 Then
ActivZoom (73)
Else
ActivZoom (90) '==Mon fichier est visible à 90% pour toutes les autres résolutions d'écran
End If
End Sub
  • ==================


Cordialement.

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

5 réponses

Répondre au sujet
Patrice33740 6516 Messages postés dimanche 13 juin 2010Date d'inscription 16 janvier 2018 Dernière intervention - Modifié par Patrice33740 le 2/06/2017 à 09:25
0
Utile
4
Bonjour,

Calcules le zoom avec une règle de 3 par rapport à l'écran de référence (1280x1024) sur la dimension prioritaire (largeur, hauteur ou diagonale)

Cordialement
Patrice
achgel 62 Messages postés mercredi 26 août 2009Date d'inscription 19 juin 2017 Dernière intervention - 16 juin 2017 à 02:52
Bonjour Patrice,

Excusez moi pour le retard de vous répondre,
Est ce que vous pouvez m'aider à changer la Macro de façon quelle soit trop réduit et que tous les formes d’écran peuvent y s'adapter.
Merci infiniment

Cordialement
Patrice33740 6516 Messages postés dimanche 13 juin 2010Date d'inscription 16 janvier 2018 Dernière intervention > achgel 62 Messages postés mercredi 26 août 2009Date d'inscription 19 juin 2017 Dernière intervention - 16 juin 2017 à 10:01
Est-ce du VBA Excel ? Si oui, dans le module du classeur :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim cel As Range
  If Sh.Name = "Feuil1" Then 'Feuille à zoomer
    Set cel = ActiveCell
    Range("A1:W42").Activate  'Plage à afficher
    ActiveWindow.Zoom = True
    cel.Select
  End If
End Sub
achgel 62 Messages postés mercredi 26 août 2009Date d'inscription 19 juin 2017 Dernière intervention - 19 juin 2017 à 13:56
Merci Patrice

En réalité j'ai essayer avec un fichier Excel 2010, vraiment je n'ai pas pu avoir le Zoom,

Merci pour votre aide

Cordialement
Patrice33740 6516 Messages postés dimanche 13 juin 2010Date d'inscription 16 janvier 2018 Dernière intervention > achgel 62 Messages postés mercredi 26 août 2009Date d'inscription 19 juin 2017 Dernière intervention - 19 juin 2017 à 15:01
Hein ????
Commenter la réponse de Patrice33740