(RESOLU)limité la liste de combobox

[chaelie2015]

Bonjour Forum
je souhaite limité les feuilles dans ComboBox
a tittre exemple
je souhaite afficher dans mon combobox que 03 feuille titi toto et tata
MERCI

 

[laetitia90]

bonjour chaelie
code user...

Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("tata", "toto", "titi")
End Sub
Private Sub ComboBox1_Click()
Sheets(ComboBox1.Text).Visible = 1
End Sub

 

[chaelie2015]

Bonjour laetitia90
merci pour la réponse c'est exactement ce que je cherchais,sinon est est ce que il n' ya pas autre astuce sans passer par le code a chaque fois que je souhaite ajouter une feuille?
Private Sub UserForm_Initialize()
ComboBox1.List = Array("tata", "toto", "titi")
End Sub
a+

 

[ChTi160]

Re
Peut être en travaillant sur les feuilles que tu ne veux pas Voir ???
Dans l'attente d'un fichier exemple de ce que tu as et de ce que tu veux !
bonne fin de journée
Amicalement
Jean marie

 

[chaelie2015]

Re
je souhaite afficher la liste des onglets qui est dans la feuille1 dans le combobox
a+

 

[Dranreb]

Bonjour.
Comme ça :

Private Sub UserForm_Initialize()
ComboBox1.List = Feuil1.[D2].Resize(Feuil1.[D2].End(xlDown).Row - 1).Value
End Sub

 

[Si...]

Bonjour
sans avoir besoin de dresser la liste (des fichiers cachés)

Private Sub UserForm_Initialize()
    For Each c In Sheets
        If c.Visible = 2 Then ComboBox1.AddItem c.Name
    Next
End Sub

Nota : voir aussi la sortie pour éviter trop de "Deactivate"

Autre cas : Cas d’une Liste avec des onglets choisis (masqués ou pas)

Quand tu ajoutes une feuille, il te faut savoir si tu veux son nom dans la liste ou pas. Il te faut donc un critère commun.

Renommer, pour renommer une feuille dont le nom figurera dans la liste, sers-toi d’un signe distinctif propre à celles-ci*.

Si tu ajoutes, par exemple, un tiret devant chacun des noms à retenir, tu n’auras pas besoin de lister, citer ceux-ci et de modifier la macro

Private Sub UserForm_Initialize()

  Dim Sh As Worksheet
  For Each Sh In Sheets
  If Sh.Name Like "-*" Then ComboBox1.AddItem Sh.Name
  Next
End Sub

* attention au caractère choisi / \ ? * : [ ] ne sont pas acceptés et gare à la casse

 

[Si...]

re

fichier correspondant (problème pour le joindre ci-dessus ????)

 

[chaelie2015]

Bonjour Bernard , si
Super, merci pour les solutions
Problème Résolut
a+