VBA-Excel zoom sur une page

Version imprimable

20/10/2006, 16h20
maxtin

VBA-Excel zoom sur une page

Bonjour,

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

Code:

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
20/10/2006, 16h23
RLX

Salut maxtin,

Si tu active la page du workbook et ensuite tu utilise activewindow.zoom c'est une première solution
20/10/2006, 16h43
maxtin
merci de ta reponse

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

1 2 xlApp.Sheets(4).Activate ActiveWindow.Zoom = 85
ceci ne fonctionne pas :(

Tu as plusieurs possibilités

Code:

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

20/10/2006, 17h09
maxtin
Code:

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.
20/10/2006, 17h11
ouskel'n'or
Comme Erixel te l'indique... voici l'autre possibilité
Code:

1 2 ActiveWorkbook.Worksheets(3).Activate ActiveWindow.Zoom = 85
;)
20/10/2006, 17h23
maxtin
Citation:
Envoyé par ouskel'n'or

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

Code:

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

;)
meme resultat...la page s'active mais le zoom ne s'applique pas
20/10/2006, 17h40
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:

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.
20/10/2006, 17h50
maxtin
Citation:
Envoyé par cedric600

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:

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
20/10/2006, 17h55
ouskel'n'or

Comme j'ai testé ma réponse, t'as un problème que je n'ai pas... J'y retourne ;)
20/10/2006, 18h00
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:

Application.ActiveWindow.Zoom = 85

Tu dis mais c'est curieux 8O
20/10/2006, 18h50
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