Ne faire apparaître qu'une feuille bien précise

Hello,

je continue avec ma petite appli.

Dans un classeur, j'ai une certaine quantité de feuilles dont une partie corespond à des constantes (nomA, Nom B, ...) et une autre à des "saisies" (Feuille1, feuille 2, ...).

Les feuilles "saisie" sont ordonnées en premier dans le classeur, suivies de la feuille constante NomA.

Je voudrait grace à un code n'afficher que les feuilles "saisie" c'est à dire celles qui précèdent la feuille "NomA".

Quel est le code adéquat?

D'avance, merci,

Amicalement,

Elfi

Bonjour,

essaie ce code:

Public Sub ListeFeuille()
    Dim MaFeuille As Worksheet
    Dim IsVisible As Boolean

    IsVisible = True
    For Each MaFeuille In Worksheets
        If MaFeuille.Name = "NomA" Then IsVisible = False
        MaFeuille.Visible = IsVisible
    Next MaFeuille

End Sub

dès qu'on rencontre la feuille NomA, les feuilles suivantes seront masqué. Si toutes tes feuilles à masquer commence par nom, tu pourrais aussi faire

Public Sub ListeFeuille2()
    Dim MaFeuille As Worksheet

    For Each MaFeuille In Worksheets
        If lcase(Left(MaFeuille.Name, 3)) = "nom" Then
            MaFeuille.Visible = False
        Else
            MaFeuille.Visible = True
        End If
    Next MaFeuille
End Sub

qui va masquer toutes les feuilles commencant par nom, peut importe leur ordre

Bonjour à tout le monde,

Math, merci pour ton code (le 1er), c'est exactement ce dont j'avais besoin. Je garde aussi le deuxième qui peut me servir pour ailleurs. J'en profite pour te les "signer" au cas où un autre forumeur en aurait besoin.

Merci beaucoup,

Amicalement,

Elfi.

Rechercher des sujets similaires à "apparaitre feuille bien precise"