Erreur Code

[TheProdigy]

Merci à tous les memebres du forum
Le programme suivant me ressort " ExitSub non permis dans une fonction ou une propriété"

If InputBox("Mot de passe ?") = "" Then Exit Sub
If InputBox("Mot de passe ?") = "123" Then
For n = 2 To Sheets.Count
Sheets(n).Visible = True
Next n
Else: MsgBox ("Mot de passe incorrect. Réessayez!")
End If

Merci

 

[michel_m]

Re : Erreur Code

Bonsoir tu as simplement oublié de marquer ":" après then à cette ligne: If InputBox("Mot de passe ?") = "" Then Exit Sub

 

[bqtr]

Re : Erreur Code

Bonjour adilprodigy,

Tu dois définir la réponse de l'inputbox pour pouvoir l'utilisée, EX :

Dim MotDP

MotDP = InputBox("Mot de passe ?")

Ensuite pour tester la réponse, utilise la valeur de MotDP

If Mot DP = "" then Exit Sub ou
If MotDP = "123" then ............

J'espère que c'est clair.

A+

P.O

 

[Hervé]

Re : Erreur Code

bonjour à tous

sinon, dans quel type de procédure as-tu placé ce code, dans une sub ou une fonction?

a mon avis c'est dans une fonction et non une sub.

salut

 

[TheProdigy]

Re : Erreur Code

Merci je vais essayer et je te tiendrai au courant
Merci