Modif code Boite de dialogue

[Aladin]

Bonjour le forum
Je viens sollicite votre aide pour une modif de code ci joint

Public FeuilleOriginale As Object
Private Sub BoutonAnnuler_Click()
FeuilleOriginale.Activate
Unload Me
End Sub
'--------------------------------------------------------------------
Private Sub BoutonOK_Click()
Dim FeuilleAfficher As Object
Set FeuilleAfficher = Sheets(ListBox1.Value)
If FeuilleAfficher.Visible Then
FeuilleAfficher.Activate
Else
If MsgBox("Réafficher cette Feuille ?", _
vbQuestion + vbYesNoCancel) = vbYes Then
FeuilleAfficher.Visible = True
FeuilleAfficher.Activate
Else
FeuilleOriginale.Activate
End If
End If
Unload Me
End Sub
'--------------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim FeuilleDonnées() As String
Set FeuilleOriginale = ActiveSheet
ShtCnt = ActiveWorkbook.Sheets.Count
ReDim FeuilleDonnées(1 To ShtCnt, 1 To 4)
ShtNum = 1
For Each Sht In ActiveWorkbook.Sheets
If Sht.Name = ActiveSheet.Name Then _
ListPos = ShtNum - 1
FeuilleDonnées(ShtNum, 1) = Sht.Name
Select Case TypeName(Sht)
Case "Worksheet"
FeuilleDonnées(ShtNum, 2) = "Feuille"
FeuilleDonnées(ShtNum, 3) = _
Application.CountA(Sht.Cells)
Case "Chart"
FeuilleDonnées(ShtNum, 2) = "Graph"
FeuilleDonnées(ShtNum, 3) = "N/A"
Case "DialogSheet"
FeuilleDonnées(ShtNum, 2) = "Dialog"
FeuilleDonnées(ShtNum, 3) = "N/A"
End Select
If Sht.Visible Then
FeuilleDonnées(ShtNum, 4) = "Oui"
Else
FeuilleDonnées(ShtNum, 4) = "Non"
End If
ShtNum = ShtNum + 1
Next Sht
With ListBox1
.ColumnWidths = "110 pt;50 pt;56 pt;40 pt"
.List = FeuilleDonnées
.ListIndex = ListPos
End With
End Sub

'-------------------------------------------------------------------
Private Sub cbAffiche_Click()
If cbAffiche Then Sheets(ListBox1.Value).Activate
End Sub
Private Sub ListBox1_Click()
If cbAffiche Then _
Sheets(ListBox1.Value).Activate
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call BoutonOK_Click
End Sub

C' est une boite de dialogue qui affiche les feuilles du classeur mais le pb c' est qu' il affiche aussi les feuilles cachés, et je ne voudrais pas qu' il les affichent.
Comment modifie ce code afin de ne pas affiché les feuilles cahés.

merci d' avance pour votre aide
Aladin

 

[mutzik]

Re : Modif code Boite de dialogue

bonjour,

mets tes feuilles en XlSheetVeryHidden

 

[Aladin]

Re : Modif code Boite de dialogue

Bonjour Bertrand et le forum

Merci pour ta réponse, J' ai éssayé ta solution en l' inserant dans le Private Sub UserForm_Initialize(), mais j' ai une erreur. je ne vois pas ou l' insere ailleurs
Aladin