Selctionner tous les sheets d'un classeur

JOjo · 27 Février 2004

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 · 27 Février 2004

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 · 27 Février 2004

Merci wally.

JOjo · 27 Février 2004

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

Merci de ton aide.

Selctionner tous les sheets d'un classeur

JOjo

Guest

wally

Guest

JOjo

Guest

JOjo

Guest

Discussions similaires

Selctionner tous les sheets d'un classeur

JOjo

Guest

wally

Guest

JOjo

Guest

JOjo

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency