modif code

[manuBX]

Bonjour à tous

J e n'arrive pas à modifier ce code afin de ne pas avoir comme choix dans impressions/suppressions les feuilles
"ACCEUIL RecapquartListe élec base AT modèle"
Merci d'avance de votre aide
A+

 

[manuBX]

Re : modif code

C est exact
et milles excuses

 

[Dull]

Re : modif code

Salut manuBX, Jean-Marcel, le Forum

Peut-être comme cela si j'ai bien compris

dans l'initialize de l'USF

Private Sub UserForm_Initialize()
Dim Ws As Worksheet
Call MarqueDocumentsListbox
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With
For Each Ws In Worksheets
If Ws.Name = "ACCUEIL" Or Ws.Name = "RecapQuart" Or Ws.Name = "Liste élec" Or Ws.Name = "Base" _
Or Ws.Name = "AT Modèle" Then Ws.Visible = xlSheetHidden
Next Ws
LbClasseurs.Value = ActiveWorkbook.Name
With Application
    .EnableEvents = True
    .ScreenUpdating= True
End With
Sheets("Accueil").activate
End Sub

Dans le CommandButton CmdFermer

Private Sub CmdFermer_Click()
Dim Ws As Worksheet
Application.ScreenUpdating = False
    For Each Ws In Worksheets
       If Ws.Visible = xlSheetHidden Then Ws.Visible = xlSheetVisible
    Next Ws
Unload Me
Application.ScreenUpdating = True
End Sub

et la même chose dans UserForm_Terminate

Private Sub UserForm_Terminate()
Dim Ws As Worksheet
Application.ScreenUpdating = False
    For Each Ws In Worksheets
       If Ws.Visible = xlSheetHidden Then Ws.Visible = xlSheetVisible
    Next Ws
Unload Me
Application.ScreenUpdating = True
End Sub

 

[manuBX]

Re : modif code

Merci pour l'aide
je vais le tester ce soir
A+