Masquer des onglet par nom

[Amaury11100]

Bonjour à toutes et tous,
J'utilise un fichier dans lequel il y a environ 150 onglets.
Dans tous ces onglets, il y en a dont le nom commence par fiche.
Est-il possible s'ils vous que cela masque justement tous ces onglets par macro ?
Merci de vos réponses !!!
Amaury

 

[pascal21]

Re : Masquer des onglet par nom

bonjour
avec le numéro des feuilles

Sheets(1).Visible = False

pour masquer les onglets et

 Sheets(1).Visible = True

pour les réafficher


edit: pas tout bien lu, ça ne doit pas être ce que tu veux

 

[pierrejean]

Re : Masquer des onglet par nom

bonjour Amaury

salut Pascal21

a tester

for n=1 to sheets.count
if instr(sheets(n).name,"fiche")<>0 then
sheets(n).visible=False
end if
next n

 

[JC de Lorient]

Re : Masquer des onglet par nom

Salut
a mettre dans ThisWorkbook :
Private Sub Workbook_Open()
Dim x
For x = 1 To Worksheets.Count
If Left(Worksheets(x).Name, 5) = "Fiche" Then Worksheets(x).Visible = False
Next x
End Sub


JC

 

[Pierrot93]

Re : Masquer des onglet par nom

Bonsoir à tous

une autre solution

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name Like "fiche*" Then ws.Visible = False
Next ws
End Sub

bonne soirée
@+

 

[Amaury11100]

Re : Masquer des onglet par nom

Merci à vous c'est nikel !!!
Bon week end