Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Choix de feuille et mot de passe

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ifi77
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

ifi77

XLDnaute Occasionnel
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.

@+
 

Pièces jointes

Trier par date Trier par votes
Re : Choix de feuille et mot de passe

Bonjour à tous,

Un essai avec :

VB: 
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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 :

Code: 
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Microsoft 365 récupération mot de passe excel
Réponses
7
Affichages
342
job75
N
  • Résolu(e)
Microsoft 365 Copier une image d'une feuille de calcul vers un UserForm
Réponses
4
Affichages
185
NONO14
N
  • Question Question
XL 2019 CheckBox pour afficher ou masquer le mot de passe
Réponses
4
Affichages
219
ARaul
  • Question Question
XL 2016 Le Mot Le Plus Long
Réponses
10
Affichages
376
sylvanu
D
  • Résolu(e)
Microsoft 365 carte choroplèthe et conditionner la couleur selon une liste déroulante de choix
Réponses
8
Affichages
780
Daniel200666
D
  • Question Question
XL 2016 Cumul des heures par numéro de semaine.
Réponses
4
Affichages
200
halecs93
N
  • Question Question
Microsoft 365 Choix d'ouverture d'une feuille
Réponses
6
Affichages
321
mapomme
B
  • Question Question
XL 2016 problèmes de formules et liste déroulantes avec le planning
Réponses
1
Affichages
137
sylvanu
D
  • Question Question
Microsoft 365 macro showAllData et mot de passe
Réponses
13
Affichages
651
Daniel200666
D
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
351
komarlehomard
K
R
  • Question Question
Microsoft 365 Protéger les mots de passe
2
Réponses
17
Affichages
876
Phil69970
N
  • Question Question
Microsoft 365 recopie de valeur cellule avec decalage
Réponses
14
Affichages
208
job75
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
521
TooFatBoy
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
248
Didierpasdoué
D
B
  • Question Question
Microsoft 365 Protection de zone de cellule selon utilisateur sur un fichier Excel
Réponses
2
Affichages
405
berta8683
B
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
325
JUAN45
J
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
309
TooFatBoy
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
404
thunder23
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
271
alexga78
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…