Selctionner tous les sheets d'un classeur

[JOjo]

Bonjour,

Voici une simple question :
Comment en VBA sélectionner toutes les feuilles d'un classeur sans les nommer explicitement.

Je souhaite en fait appliquer une valeur de zoom à toutes ses feuilles.

en nomant les feuilles, celà donne :


Sheets(Array("F1", "F2", "F3")).Select
ActiveWindow.Zoom = 75

Merci de votre aide.

 

[wally]

Bonjour JOjo et le forum,

Voici une possibilité :

Sub Sélectionner_Feuilles()

Dim tWsh() As String
Dim oWsh As Worksheet

ReDim tWsh(ThisWorkbook.Worksheets.Count - 1)

For Each oWsh In ThisWorkbook.Worksheets
tWsh(oWsh.Index - 1) = oWsh.Name
Next oWsh

Worksheets(tWsh).Select

End Sub


Slts

wally

 

[JOjo]

Merci wally.

 

[JOjo]

Wally,
il semble en excel 97 que la méthode select de la classe Sheets échoue !
Worksheets(tWsh).Select

Merci de ton aide.