Aide pour compléter un code
Bonjour à tous
J'ai mis en place ce code pour un formulaire "Mot de Passe" et ça fonctionne.
Toutefois, lorsque le MsgBox s'affiche, il faut de nouveau appuyer sur un bouton "Ok".
Je souhaiterai que l'affichage apparaisse quelques secondes et puis disparaisse sans aucune intervention de l'utilisateur.
Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Private Sub BtValid_Click()
Dim Rep As String
Static Deja As Boolean
'Si je clique sur le bouton "Valider"
'Si le mot de passe est bon
If Not Deja Then Rep = Me.TxtPasse.Value
If Rep = "motdepasser" Or Deja Then
Deja = True
MsgBox "Le mot de passe est bon"
'Je passe à la procédure "Afficher"
'Le formulaire se ferme
Call Afficher
Unload Me
'Le mot de passe est effacé
Me.TxtPasse = ""
'Sinon un message d'erreur s'affiche
Else
MsgBox "Désolé ! Le mot de passe est faux"
End If
End Sub |
