Zoom avec VBA

[FAMU]

Bonjour à tous,

Pouvez-vous modifier cette macro qui ne fonctionne pas ? :

Sub ZOOM()

Workbooks('Pause Sem. CA_JT.xls').Activate
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets.Application.ActiveWindow.Zoom = 10

Next i

End Sub

J'aimerais, que pour chaque feuille du classeur ouvert, il me les Zoom à 10.

Merci pour votre aide, car sans vous, je ne m'en sort pas !

Ciao.
Famu

 

[PascalXLD]

Bonjour

C'est normal que cela ne fonctionne pas car à chaque boucle tu ne zoom que la fenetre active

Sub ZOOMFeuille()
Dim ws As Worksheet
Application.ScreenUpdating = False
Workbooks('Pause Sem. CA_JT.xls').Activate

For Each ws In ActiveWorkbook.Worksheets
ws.Select
ActiveWindow.ZOOM = 10
Next


End Sub


Bon courage

Message édité par: Pascal76, à: 25/10/2005 10:22

 

[Famu]

MERCI....Pascal. Ca faisait 1 heure que je cherchais !

J'ai remplacé ws.Select par ws.Activate et ça marche super.

Bonne journée à toi,

Famu.

 

[PascalXLD]

RE

en fait ws.select ou ws.activate te donnerons dans ce cas là (comme dans la majorité des cas) le même résultat. Et j'ai plus l'habitude d'utiliser le Select mais bon c'est pareil

 

[Famu]

Ok Pascal, sauf qu'avec . Select, ça n'allait pas ( avec Excel 2003 ) mais bon, c'est sans importance.
Ciao.