(RESOLUT) Bouton de navigation limité

[chaelie2015]

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

 

[laetitia90]

Re : Bouton de navigation limité

bonjour chaelie

le principe!!

Private Sub ComboBox1_Change()
If ComboBox1 = "Feuil1" Or ComboBox1 = "Feuil2" Then Sheets(ComboBox1.Value).Select
End Sub

 

[laetitia90]

Re : Bouton de navigation limité

re 🙂

correction mal interprete

Private Sub ComboBox1_Change()
 Sheets(ComboBox1.Value).Select
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Array("Feuil1", "Feuil2")
End Sub

 

[chaelie2015]

Re : Bouton de navigation limité

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

 

[laetitia90]

Re : Bouton de navigation limité

RE

comme je comprends avec ton fichier vu que tu appel user de la feuil1???

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

 

[chaelie2015]

Re : Bouton de navigation limité

Re
merci, je vais le tester et je vous rend la réponse
SALUTATIONS

 

[chaelie2015]

Re : Bouton de navigation limité

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

Re
j'ai constaté que la feuille2) n'ai pas propriété VeryHidden ???
a+

 

[laetitia90]

Re : Bouton de navigation limité

re
je comprends pas bien ce que tu cherches a faire ???? il faut mettre un fichier plus explicite
comme cela on tourne en rond 🙁

je te mets un exemple avec ton fichier

les 2 premieres feuille masquees par vba par defaut
j'appel l'user de la feuille essai 4 je ferme user les 2 FEUILLES SE REMASQUE

bon ca sert a rien seulement voir la demarche

 

[Si...]

Re : Bouton de navigation limité

salut

comment faire pour les afficher après les re masquer?

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

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

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.

 

[chaelie2015]

Re : Bouton de navigation limité

BONJOUR LAETITIA, SI
merci pour les réponses, maintenant j'ai le choix 😎
mon souci est résolut
Salutations