Choix de feuille et mot de passe

[ifi77]

Bonjour @ tous,

J'essaye de créer une combobox qui m'oriente sur une feuille selon le choix. En meme temps pour que la feuille s'affiche je veux demander un mot de passe.
J'ai bien réussi sur une feuille, mais je n'arrive pas à adapater cela pour l'ensemble des feuilles en choix.
J'ai mis l'exemple en pièce jointe beaucoup plus compréhensible je pense.

merci de votre aide.

@+

 

[Softmama]

Re : Choix de feuille et mot de passe

Bonjour,

Après légère modif de ton fichier, vois si cela te convient :

 

[JCGL]

Re : Choix de feuille et mot de passe

Bonjour à tous,

Un essai avec :

Private Sub TextBox1_Change()

    If Len(TextBox1) < 2 Then Exit Sub
    
    If TextBox1 = "F1" Then
        With Sheets("refessai1")
            .Visible = True
            Sheets("refessai2").Visible = False
            Sheets("refessai3").Visible = False
            Sheets("refessai4").Visible = False
            .Activate
        End With
    End If
    
   If TextBox1 = "F2" Then
        With Sheets("refessai2")
            .Visible = True
            Sheets("refessai1").Visible = False
            Sheets("refessai3").Visible = False
            Sheets("refessai4").Visible = False
            .Activate
        End With
    End If
    
    If TextBox1 = "F3" Then
        With Sheets("refessai3")
            .Visible = True
            Sheets("refessai1").Visible = False
            Sheets("refessai2").Visible = False
            Sheets("refessai4").Visible = False
            .Activate
        End With
    End If
    
    If TextBox1 = "F4" Then
        With Sheets("refessai4")
            .Visible = True
            Sheets("refessai1").Visible = False
            Sheets("refessai2").Visible = False
            Sheets("refessai3").Visible = False
            .Activate
        End With
    End If
    Unload Me
End Sub

A+ à tous

Édition : Bonjour SoftMama

 

[Paritec]

Re : Choix de feuille et mot de passe

bonjour Ifi le forum
ton fichier en retour
a+
papou 🙂

 

[Paritec]

Re : Choix de feuille et mot de passe

Bonjour JC🙂, soft,ifi
avec l'idée de JC en plus, une nouvelle version
a+
papou🙂

 

[ifi77]

Re : Choix de feuille et mot de passe

Bonjour sofmama,

merci pour ta réponse, cela correspond à mes besoins cependant la référence de l'ouverture fait appel à ce qui est inscrit dans la combobox1 soit ref "essai1", or sur mon logiciel réel les feuilles de références ne portent pas le nom de ce qui est dans la combobox. Existe il un moyen de les appeler, je te mets le fichiers modifier.

merci

 

[Softmama]

Re : Choix de feuille et mot de passe

Re ifi77,
Bonjour JCGL et Paritec,

Pour le besoin que tu as donné, tu peux changer ta macro comme ceci :

Private Sub TextBox1_Change()
mdp = "toto"
If Len(TextBox1) < Len(mdp) Then
Exit Sub
End If
If TextBox1 = mdp Then
    [COLOR="Red"]With Sheets("ref" & Chr(Asc(Right$(UserForm1.ComboBox1.Value, 1)) + 16))[/COLOR]
        .Visible = True
        .Activate
    End With

End If
Unload Me
Unload UserForm1
End Sub

Cette ligne en rouge prend le contenu de ta combobox1 (par exemple Feuil2), n'en garde que le dernier caractère (2) en prend le code ASCII et rajoute 16 et le retransforme en caractère (B) puis l'ajoute à Ref pour donner RefB.

 

[Fo_rum]

Re : Choix de feuille et mot de passe

salut

un autre exemple.

 

[ifi77]

Re : Choix de feuille et mot de passe

Merci @ tous,

j'ai trouvé mon bonheur avec l'ensemble de vos propositions.

@+