Discussion :

[maxtin]

Bonjour,

je suis seulement capable de changer la taille du zoom sur la premiere page de mon workbook excel avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWindow.Zoom = 85

comment je fais pour changer le zoom sur une page particuliere? L'objet .sheets(index) ne semble pas avoir la propriete Zoom



Merci

[RLX]

Salut maxtin,

Si tu active la page du workbook et ensuite tu utilise activewindow.zoom c'est une première solution

[maxtin]

merci de ta reponse


mais je cherche desesperement a activer ma sheet 4...sais tu comment faire?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
xlApp.Sheets(4).Activate
ActiveWindow.Zoom = 85

ceci ne fonctionne pas

[RLX]

Tu as plusieurs possibilités

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Workbook("NomClasseur.xls").Worksheets(4).Activate 'Si c'est sur un autre fichier Excel
ThisWorkbook.Worksheets(4).Activate 'Si c'est sur le meme fichier que ta macro

[maxtin]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
xlBook.Worksheets(4).Activate
ActiveWindow.Zoom = 85

sans succes....par contre, ma page 4 s'active car maintenant, c'est elle quon voit par défault lors de l'ouverture. Mais le zoom ne s'ajuste pas. "ActiveWindow.Zoom" a l'air de ne rien faire du tout.

[ouskel'n'or]

Comme Erixel te l'indique... voici l'autre possibilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.Worksheets(3).Activate
ActiveWindow.Zoom = 85

[maxtin]

Comme Erixel te l'indique... voici l'autre possibilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.Worksheets(3).Activate
ActiveWindow.Zoom = 85

meme resultat...la page s'active mais le zoom ne s'applique pas

[ced600]

Sur la page précedente, avant que tu n'active la "4", as tu fait un zoom ? Et si oui, est il de "85" ?
Si oui alors essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.Worksheets(3).Activate
ActiveWindow.Zoom = 65

J'ai juste remplacé la valeur pour le zoom. Si ça change quelque chose c'est peut être un bug d'excel, ou une erreur dans ton code sur les lignes précédentes.

[maxtin]

Sur la page précedente, avant que tu n'active la "4", as tu fait un zoom ? Et si oui, est il de "85" ?
Si oui alors essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.Worksheets(3).Activate
ActiveWindow.Zoom = 65

J'ai juste remplacé la valeur pour le zoom. Si ça change quelque chose c'est peut être un bug d'excel, ou une erreur dans ton code sur les lignes précédentes.

non je tente seulement un zoom sur ma page 4..le reste ne change pas et ne devrait pas changer non plus

[ouskel'n'or]

Comme j'ai testé ma réponse, t'as un problème que je n'ai pas... J'y retourne

[ouskel'n'or]

Non non, pas de pb. Essaie de mettre un point d'arrêt sur tes deux lignes, de faire du pas à pas et de vérifier ta feuille au fur et à mesure... A défaut d'autre chose...
J'ai ajouté Application, ça roule aussi bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ActiveWindow.Zoom = 85

Tu dis mais c'est curieux

[maxtin]

En raison que ma premiere page est un chart et non une sheet, il ne fallait pas la prendre en consideration. cetait la page 3 et non 4 qu'il fallait zoomer en realite. Merci beaucoup de votre aide