ComboBox Feuil visibles et invisibles

[Atiom]

Bonsoir le forum

Dans le code ci-dessous toutes les feuilles du classeur sont visibles dans le ComboBox

Je souhaiterai garder le code mais que certaines feuilles ne puissent pas être visibles dans le ComboBox

Par exemple Feuil1, Feuil2, Feuil3
Comment je dois corriger le code ?

Merci
Atiom

Option Explicit

Private Sub ComboBox1_Change()
  On Error Resume Next
  Sheets(ComboBox1.List(ComboBox1.ListIndex)).Activate
End Sub

Private Sub ComboBox1_GotFocus()
  ComboBox1.List = RecupF
End Sub

Function RecupF()
Dim I&, J&, T()
  For I = 1 To ThisWorkbook.Worksheets.Count
    With Sheets(I)
      If .Visible Then
        ReDim Preserve T(J)
        T(J) = .Name
        J = J + 1
      End If
    End With
    Next I
   RecupF = T
End Function

Private Sub ComboBox1_LostFocus()
 ComboBox1.Value = "Recherche d'une catégorie"
End Sub

 

[excalibur]

Re : ComboBox Feuil visibles et invisibles

bonjour Atiom le forum tu peus faire comme cela
Function RecupF()
Dim I&, J&, T()
For I = 1 To ThisWorkbook.Worksheets.Count
With Sheets(I)
If .Visible And .Name <> "Feuil2" And .Name <> "Feuil3" Then
ReDim Preserve T(J)
T(J) = .Name
J = J + 1
End If
End With
Next I
RecupF = T
End Function
salutations

 

[Atiom]

Re : ComboBox Feuil visibles et invisibles

Bonjour excalibur et le forum

Impeccable.
Merci beaucoup.

Bonne journée🙂
Cordialement Atiom