Vba zoom automatique ....

[Seb_67210]

Bonjour à tous...

J'ai un p'tit soucis professionnel ... j'ai réaliser un glossaire sous excel mais j'ai un problème d'affichage, je vous explique....

Suivant la résolution des pc les personnes doivent ajuster manuellement le zoom pour pouvoir visualiser correctement mon glossaire.

Mon besoin : j'aimerais savoir comment adapter automatiquement une feuille excel suivant la résolution du pc et ainsi ne plus avoir à touche au zoom.
J'ai réaliser une macro qui change la taille des feuilles automatiquement mais c'est pas top ... j'ai inserer 2 boutons ex: Ecran 15" ou Ecran 21" ca marche mais bon...

Pouvez vous m'envoyer un bout de code qui pourrait m'aider ???

Merci d'avance.

 

[WDAndCo]

Re : Vba zoom automatique ....

Bonjour le Forum et Seb_67210

Pourquoi ne pas mettre dans une macro qui est appelé souvent un Zoom automatique pour les colonnes qui sont a voir par Exp: de A à K.
Et la plus de notion de taille d'écran !

Amicalement
Dominique

 

[Seb_67210]

Re : Vba zoom automatique ....

Sais tu comment récuperer la taille de l'ecran ???

 

[JCGL]

Re : Vba zoom automatique ....

Bonjour à tous,

Pourquoi ne pas mettre dans une macro qui est appelé souvent un Zoom automatique pour les colonnes qui sont a voir par Exp: de A à K.
Et la plus de notion de taille d'écran !

Ah ben un zoom sur A:K risque d'être difficile à lire...

Deux fichiers en attachement.

Au plaisir de te lire si cela ne te semble pas suffisamment clair.

A+ à tous

 

[Seb_67210]

Re : Vba zoom automatique ....

OK merci beaucoup !!!! pour ton aide...

Peux tu quand même m'expliquer un peu ??? histoire de ne pas oublier d'importer un bout de code ...

 

[JCGL]

Re : Vba zoom automatique ....

Bonjour à tous,

Lequel te convient le mieux :

• Le zoom sur la sélection des plages à l'ouverture
• L'adaptation suivant la résolution

A+

 

[WDAndCo]

Re : Vba zoom automatique ....

Bonjour,

Sais tu comment récuperer la taille de l'ecran ???

Si tu as en largeur d'écran a voir les colonnes de A à K par Exp : tu mets ce bout de code dans une Macro :

Columns("A:L").Select
    ActiveWindow.Zoom = True

Tu peux le modifier si a aussi besoin de X lignes en : Columns("A1:LX").Select

Dominique

 

[Seb_67210]

Re : Vba zoom automatique ....

L'adaptation suivant la résolution !!! est super !!!

 

[Seb_67210]

Re : Vba zoom automatique ....

JCGL une question ....

J'ai réussis à mettre ta macro dans mon glossaire mais dis moi si je me trompe mais il faut au depart renseigner en dur dans le code la résolution de départ non???

Mon pb c'est que chaque personne en a une différente....il faudrait lire la résolution du pc et en cliquant sur un bouton que la feuille s'adapte...

Moi j'avais fais ca regardes :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Visible = xlSheetVisible
Sheets(i).Activate
ActiveWindow.Zoom = 90
Next i
Application.ScreenUpdating = True
Sheets("Page_Pricinpale").Select
End Sub

et j'avais creé plusieurs bouton avec une valeur differente , une fois 90 ou 100 etc

 

[JCGL]

Re : Vba zoom automatique ....

Re,

Non c'est l'API Windows qui se charge de récupérer la résolution du poste

Essaye avec le fichier joint (et sur différentes résolutions).

Je précise que ce code n'est pas de moi : je le sors de mon grenier

A+

 

[Seb_67210]

Re : Vba zoom automatique ....

OK merci je vais essayer

 

[Seb_67210]

Re : Vba zoom automatique ....

JCGL peux tu me dire comment faire pour que toutes les feuilles soient concernées par cette fonction ???

 

[JCGL]

Re : Vba zoom automatique ....

Re,

La fonction étant en WorkBook_Open, tout le classeur est concerné

A+

 

[Seb_67210]

Re : Vba zoom automatique ....

OK mais ca marche pas ... juste la premiere page est concernee

 

[Seb_67210]

Re : Vba zoom automatique ....

Sur ton classeur si je rajoute une page cela fonctionne mais pas sur le mien pourtant j'ai bien copié mdr