Mot de passe a répétition

bonjour j'aimerais creer une macro qui affiche les feuilles une fois le bon mot de passe entré.

Tous ce passe comme je veux mais quand je veut tester le 2e mot de passe, je doit le rentrer 2 fois

le 3e mot de passe 3 fois... etc etc.... et comme j'en ai 8.... sa commence a faire long de rentrer 8 fois le meme mot de passe... voici la macro pour les 2 premiers...

a noté que le 1er mot de passe "alex" fonctionne tres bien !

Sub mot_de_passe()

If InputBox("Mot de passe ?") = "alex" Then

Sheets("Feuil2").Visible = True

Sheets("Feuil2").Select

End If

If InputBox("Mot de passe ?") = "phil" Then

Sheets("Feuil3").Visible = True

Sheets("Feuil3").Select

End If

End Sub

Bonjour

Essaie ça :

Sub mot_de_passe()

    Dim mdp
    mdp = InputBox("Mot de passe ?")
    If mdp = "alex" Then
        Sheets("Feuil2").Visible = True
        Sheets("Feuil2").Select
    ElseIf mdp = "phil" Then
        Sheets("Feuil3").Visible = True
        Sheets("Feuil3").Select
    End If
End Sub

Bye !

Bonjour samfau,

tu a écrit :

et comme j'en ai 8.... ça commence à faire long de rentrer 8 fois le même mot de passe...

ah ben oui, ça j'te comprends ! ça commence à bien faire, hein ?

solution n° 1 : change ton pseudo en : samsuffit!!!

solution n° 2 :

Option Explicit

Sub mot_de_passe()
  Dim mdp$, n As Byte
  mdp = InputBox("Mot de passe ?")
  Select Case mdp
    Case "alex": n = 2
    Case "phil": n = 3
    Case "éric": n = 4
    Case "jean": n = 5
    Case "paul": n = 6
    Case "léon": n = 7
    Case "manu": n = 8
    Case "jack": n = 9
  End Select
  If n = 0 Then Exit Sub
  With Worksheets("Feuil" & n)
    .Visible = True: .Select
  End With
End Sub

bien sûr, j'ai supposé que "Feuil2" à "Feuil9" existent toutes, sinon : plantage !

si ton problème est réglé, merci de passer le sujet en résolu : il te suffit de cliquer sur le bouton qui est près du bouton (dans le coin haut droit du post) ; un seul clic suffira : tu n'as pas besoin de cliquer 8 × dessus !

tu sauras que tu as réussi quand tu verras un petit rond vert avec une coche, comme ceci :

(toi seul peut le faire, car c'est toi qui a créé ce sujet)

dhany

Merci Beaucoup sa fonctionne !