Macro pour zoomer sur la sélection

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

Merci D'avance
Antoine.
A voir également:

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 ?
0
Tonioo44140 Messages postés 17 Date d'inscription mardi 23 juillet 2013 Statut Membre Dernière intervention 7 août 2013
25 juil. 2013 à 13:56
Je pencherais plutôt pour la 2eme solution car mon tableau apparait trop grand.

je ne sais pas si ça existe.
0
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.
0
Tonioo44140 Messages postés 17 Date d'inscription mardi 23 juillet 2013 Statut Membre Dernière intervention 7 août 2013
25 juil. 2013 à 14:14
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.
0
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.
0
Tonioo44140 Messages postés 17 Date d'inscription mardi 23 juillet 2013 Statut Membre Dernière intervention 7 août 2013
25 juil. 2013 à 15:08
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.
0
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%
0
Tonioo44140 Messages postés 17 Date d'inscription mardi 23 juillet 2013 Statut Membre Dernière intervention 7 août 2013
25 juil. 2013 à 15:29
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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%
0
Tonioo44140 Messages postés 17 Date d'inscription mardi 23 juillet 2013 Statut Membre Dernière intervention 7 août 2013
25 juil. 2013 à 16:01
C'est bon cela fonctionne merci Beaucoup WeaponEDGE.

A plus tard.

Antoine.
0