Recuperer la valeur d une inputbox avec condition

[Résolu]
Signaler
Messages postés
453
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
11 janvier 2013
-
Messages postés
453
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
11 janvier 2013
-
bonjour

le code suivant genere une erreur dans elseif:

auriez vous une idée merci
If InputBox("Mot de passe", "Sécurite_Environnement") = "Safety2010" Then
Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = True
Sheets("Feuil3").Visible = True
Sheets("Feuil6").Visible = True
Sheets("Feuil7").Visible = True
Sheets("Visite reçu Aout").Visible = True
Sheets("Visites reçu Juin").Visible = True
Sheets("Feuil5").Select
ElseIf InputBox("", "") <> "Safety2010" Then
MsgBox("Veuillez le renouvelé", vbOKOnly, "Mot de passe incorrecte") = vbOK
Else
Sheets("Feuil5").Select
End If

1 réponse

Messages postés
453
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
11 janvier 2013
10
en faite j'ai mélangé vb net vba