Macro pour zoomer sur la sélection

[Résolu/Fermé]
Signaler
Messages postés
17
Date d'inscription
mardi 23 juillet 2013
Statut
Membre
Dernière intervention
7 août 2013
-
Messages postés
17
Date d'inscription
mardi 23 juillet 2013
Statut
Membre
Dernière intervention
7 août 2013
-
Bonjour j'aurais aimer savoir s'il exister une macro sous excel pour ajuster le zoom à la sélection.

Merci D'avance
Antoine.

6 réponses

Bonjour,

C'est à dire ?

Tu veux ajuster le zoom lors que tu cliques sur une cellule d'une feuille Excel ,

Ou

Tu veux agrandir un Userform qui aparait trop petit ou trop grand sur ton écran ?
Messages postés
17
Date d'inscription
mardi 23 juillet 2013
Statut
Membre
Dernière intervention
7 août 2013

Je pencherais plutôt pour la 2eme solution car mon tableau apparait trop grand.

je ne sais pas si ça existe.
Si il s'agit d'un tableau c'est sur une feuille Excel donc et non sur un Formulaire ?

Pourquoi ne pas modifier le zoom directement et d'enregistrer le fichier ensuite ?

Je ne comprend pas bien l'objectif de la requête.
Messages postés
17
Date d'inscription
mardi 23 juillet 2013
Statut
Membre
Dernière intervention
7 août 2013

Oui oui c'est bien sur une feuille excel. C'est pour automatiser la tache, c'est à dire que dès qu'on l'ouvre on voit bien tout le tableau. et sans passer par affichage>zoom>ajuster à la sélection. ( La quand je l'ouvre je ne vois que 80 % du tableau si je ne fais pas cette manip)

Je sais pas si c'est compréhensible .. Désolé, si ça n'existe pas tant pis.
Je suis sur Excel 2010 et je n'arrive pas à trouver l'équivalent du affichage - Zoom.

Cependant si tu positionne ton zoom par exemple sur 70% et que tu enregistres, à l'ouverture du fichier le zoom reste à 70%

sinon il est toujours possible de faire une macro pour forcer le Zoom à l'ouverture.
Messages postés
17
Date d'inscription
mardi 23 juillet 2013
Statut
Membre
Dernière intervention
7 août 2013

Ah d'accord désolé je suis encore avec Excel 2003 moi...

Oui mais j'aimerais effectivement le forcer à dézoomer:
passer d'un zoom de 100% (vue normale) à 86% pour pouvoir avoir l'ensemble de mon tableau grâce à une macro si possible.
Rebonjour,

Cette Macro est à placer dans ThisWorbook

Private Sub Workbook_Open()
ActiveWindow.Zoom = 86
End Sub


A l'ouverture du Fichier il se positionnera automatiquement en Zoom 86%
Messages postés
17
Date d'inscription
mardi 23 juillet 2013
Statut
Membre
Dernière intervention
7 août 2013

D'accord merci mais peut on préciser le nom du fichier que l'on veut ouvrir, et si oui où l'insérer dans la macro.

désoler de t'embêter.
En fait tu ouvres le fichier dans lequel tu veux effectuer le Zoom

Tu appuies ensuite sur ALT + F11

Dans la fenêtre qui vient de s'ouvrir tu regardes s'il y a un encard intitulé
"Project - VBA Project"

Si ce n'est pas le cas appuies sur CTRL + R

Dans cette encard tu auras une ligne en gras intitulé
"VBAProject(Nom_du_Fichier)"

Il y a un répertoire (Microsoft Excel Object) qui liste toutes tes feuilles ainsi que feuille supplémentaire intitulé : ThisWorbook

Double clique sur cette feuille et copie le code en gras sur mon message précédent de Private Sub jusqu'à End Sub

Enregistre ton fichier ferme le et ouvre le.

Au démarage la feuille active sera mise à 86%
Messages postés
17
Date d'inscription
mardi 23 juillet 2013
Statut
Membre
Dernière intervention
7 août 2013

C'est bon cela fonctionne merci Beaucoup WeaponEDGE.

A plus tard.

Antoine.