Inputbox

Résolu
Signaler
Messages postés
55
Date d'inscription
mardi 28 juin 2005
Statut
Membre
Dernière intervention
4 mai 2006
-
Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
-
J'ai un soucis avec cette inputbox si qq1 peut m'éclaicir merci d'avance:

Dim MDP as String
Private Sub TextBox1_Change()
textMotDePasse = "tortue"
MDP = InputBox1("Veuillez entrer un mot de passe")
End Sub

1 réponse

Messages postés
338
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
4 novembre 2008
1
tout d'abord InputBox et non pas InputBox1
deuxiement je sais pas pourquoi tu le met dans TextBox1_Change
le message de la lecture du mot de passe va apparaitre chaque fois que le TextBox1 Change

moi je te propose cette solution
tu met un bouton sur ta form command1
dans l'evenement click du bouton

Private Sub Command1_Click()
Dim MDP As String
textMotDePasse = "tortue"
MDP = InputBox("Veuillez entrer un mot de passe")


If MDP = textMotDePasse Then
MsgBox "Bienvenu", vbInformation
Else
MsgBox "Mot de passe incorrecte!", vbInformation
End If


End Sub

Hassen TUNISIE
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci