Bonjour Forum
ci joint un fichier Teste, je souhaite limité le nombre des onglet a afficher dans le comboBox
exemple feuille1 et feuille 2 seulement est t-il possible ?
MERCI
Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("Feuil1", "Feuil2")
End Sub
Bonjour laetitia90
merci pour la réponse c'est exactement ce que je cherchais, mais si la feuille ou les feuilles sont masquées par Very Hidden
comment faire pour les affichées après les re masquées?
encore une fois merci
comme je comprends avec ton fichier vu que tu appel user de la feuil1???
Code:
Private Sub ComboBox1_Change()
With Sheets(ComboBox1.Value)
If ComboBox1 = "Feuil2" Then
.Visible = -1: .Select
Feuil1.Visible = 0
End If
If ComboBox1 = "Feuil1" Then
.Visible = -1: .Select
Feuil2.Visible = 0
End If
End With
End Sub
Bonjour laetitia90
......................... mais si la feuille ou les feuilles sont masquées par Very Hidden
comment faire pour les affichées après les re masquées?
encore une fois merci
pour ce que je comprends : tu veux limiter la liste mais quand même avoir des noms d'onglets masqués. Le choix t'enverra sur un de ceux-ci mais à condition de le "démasquer".
En le quittant, il faut le recacher, donc Utilise l'évènement Deactivate.
Si c'est cela, essaie,
pour le code de l'UsF
Code:
Private Sub UserForm_Initialize()
ComboBox1.List = Array("Feuil1", "Feuil2")
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex < 0 Then Exit Sub
With Sheets(ComboBox1.Text)
If .Visible > -1 Then .Visible = -1
.Activate
End With
End Sub
et dans la page de code de l'onglet
Code:
Private Sub Worksheet_Deactivate()
Me.Visible = 2
End Sub
Si j'ai mal traduit ta question, Laetitia se fera certainement un plaisir de revenir ici.