Difficulté avec For Each ... Next

[Philippe]

Bonsoir le Forum,

je désire masquer toutes les feuilles d'un classeur sauf une, j'ai tenté çà:

Private Sub Workbook_Open()
Dim vfeuille As Worksheets
For Each vfeuille In ThisWorkbook
vfeuille.Visible = False
Next
Sheets("Feuil1").Visible = True
End Sub

mais sans succès....

Merci d'avance pour un petit coup de pouce.

Amicalement
A+
Philippe

 

[Bebere]

Re : Difficulté avec For Each ... Next

bonjour Philippe

essaye le code suivant

Private Sub Workbook_Open()
Dim vfeuille As Worksheet
For Each vfeuille In Worksheets
if vfeuille.name<>"Feuil1" then vfeuille.Visible = False
Next vfeuille
'Sheets("Feuil1").Visible = True
End Sub

à bientôt

 

[Gorfael]

Re : Difficulté avec For Each ... Next

Bonsoir le Forum,

je désire masquer toutes les feuilles d'un classeur sauf une, j'ai tenté çà:

Private Sub Workbook_Open()
Dim vfeuille As Worksheets
For Each vfeuille In ThisWorkbook
vfeuille.Visible = False
Next
Sheets("Feuil1").Visible = True
End Sub

mais sans succès....

Merci d'avance pour un petit coup de pouce.

Amicalement
A+
Philippe

Salut
Worksheet : feuille / Worksheets : collection des feuilles
Excel a besoin d'une feuille de visible, donc il faut afficher la feuille et masquer toutes les autres

Private Sub Workbook_Open()
Dim vfeuille As Worksheet
Sheets("Feuil1").Visible = True
For Each vfeuille In ThisWorkbook.Worksheets
if vfeuille.name<>"Feuil1" then vfeuille.Visible = False
Next
End Sub

A+

 

[Philippe]

Re : Difficulté avec For Each ... Next

Bonsoir à tous les deux,

Vu !!! , ma collection est erronée, j'avais dit: For each WorkSheet in ThisWorkbook, alors que bien sur (çà me parrait évident maintenant grâce à vous) la collection est ThisWorkbook.WorkSheets...
Secondo, 1 feuille minimum doit toujours rester visible, j'ignorais...

Merci à tous les deux

Bonne nuit
A+
Philippe