XL 2010 onglet reconnu ou non

[Scorpio]

Bonjour à vous tous,
Le formulaire (code VBA) se trouvant dans ce classeur, détecte tous les onglets et j'aimerais bien savoir comment faire pour qu'il reconnaissent certains onglets, que j'utiliserais et d'autres ou je pourrais travailler sans être reconnu par le code VBA.
Voilà, alors j'aimerais bien avoir un petit coup de main s'il vous plaît pour trouver une solutions.
merci et à +++++

 

[STephane]

Bonsoir

Si je comprends bien, tu voudrais pouvoir créer et utiliser certaines feuilles sans qu'elles n'apparaissent dans la boîte de dilaogue.

Une possibilité ci-joint avec la mise à jour de tes macros UserForm_Activate & Onglets_Change.

'# https://www.excel-downloads.com/threads/onglet-reconnu-ou-non.20018903/
Dim vRet As Variant
Dim J As Long

Dim FeuillesExclues()
FeuillesExclues = Array("Accueil", "Feuil1", "Feuil2")
NbSheets = Worksheets.Count
ReDim Arr(1 To NbSheets)
J = 1
For I = 1 To NbSheets

    vRet = Application.Match(Worksheets(I).Name, FeuillesExclues, 0)
    If IsError(vRet) Then
        Arr(J) = Worksheets(I).Name
        ListeDeroulanteCombinee.Onglets.AddItem Arr(J): J = J + 1
    End If
Next I

 

[Scorpio]

Bonjour STephane,
Je te répond avec un peux de retard, je m'en excuse.
Alors merci de bien vouloir s'intéressé à mon classeur, merci STephane.
C'est presque ça STephane, sauf que la liste "Choisir dans la liste" ne correspond pas à la liste des marques
Voiture à vélo
Moto à voiture
Avion à moto
Vélo à avion
A bientôt et merci de ton aide

 

[STephane]

Scorpio

Avec un peu de déboguage de la procédure Onglets_Change, on peut trouver et corriger.

Voilà la correction

Private Sub Onglets_Change() 'ListBox
Dim OngletSelect As Integer
Dim NomOngletSelect As String

'Désactiver le rafraîchissement de l'écran
Application.ScreenUpdating = False

' Déterminer la ligne sélectionnée dans la liste déroulante
' OngletSelect = ListeDeroulanteCombinee.Onglets.ListIndex + 2

' Determination on worksheet name
NomOngletSelect = ListeDeroulanteCombinee.Onglets.Value

With Sheets(NomOngletSelect)
    ' Activation de la feuille liée à la liste choisie
   .Activate
   
    ' Mise à jour TextBox Modele
    ListeDeroulanteCombinee.Categorie = .Range("C1").Value
   
    ' Mise à jour ComboBox Modele
    Dim DerniereMarque As String
    DerniereMarque = .Range("A1").End(xlDown).Address
    Marque.RowSource = ActiveSheet.Range("A1:" & DerniereMarque).Address(RowAbsolute:=False, ColumnAbsolute:=False, External:=True)
    Marque.ListIndex = 0
End With

'Réactiver le rafraîchissement de l'écran
Application.ScreenUpdating = True
End Sub

 

[Scorpio]

Re bonjour,
J'ai le petit soucis de: .Activate se met en jaune
With Sheets(NomOngletSelect)
' Activation de la feuille liée à la liste choisie
.Activate

 

[Scorpio]

Re bonjour Stephane,
Correction
Ca fonctionne, super. C'est moi qui bidouille car je ne suis pas un champion en VBA.
Merci Stephane, je crois ca vas aller par la suite.
A+++++Merci