Masquer des onglet par nom

pascal21

XLDnaute Barbatruc

• 27 Avril 2007

• #2

Re : Masquer des onglet par nom

bonjour
avec le numéro des feuilles

Code:

Sheets(1).Visible = False

pour masquer les onglets et

Code:

 Sheets(1).Visible = True

pour les réafficher


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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Avril 2007

• #3

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

 

Vote positif 0 Vote négatif

JC de Lorient

XLDnaute Impliqué

• 27 Avril 2007

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Avril 2007

• #5

Re : Masquer des onglet par nom

Bonsoir à tous

une autre solution

Code:

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
@+

 

Vote positif 0 Vote négatif

A

Amaury11100

Guest

• 27 Avril 2007

• #6

Re : Masquer des onglet par nom

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

 

Vote positif 0 Vote négatif