Recuperer la valeur d une inputbox avec condition

Résolu
scromania Messages postés 452 Date d'inscription dimanche 20 août 2006 Statut Membre Dernière intervention 11 janvier 2013 - 16 déc. 2010 à 14:45
scromania Messages postés 452 Date d'inscription dimanche 20 août 2006 Statut Membre Dernière intervention 11 janvier 2013 - 16 déc. 2010 à 15:17
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

scromania Messages postés 452 Date d'inscription dimanche 20 août 2006 Statut Membre Dernière intervention 11 janvier 2013 9
16 déc. 2010 à 15:17
en faite j'ai mélangé vb net vba
3
Rejoignez-nous