Discussion :

[Vba14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ONTAYG]

Bonjour,

Utilises un UserForm à la place d'une MsgBox, et sur le chargement de celle-ci utiliser une temporisation pour la fermer, en t'aidant de cela : https://excel.developpez.com/faq/?pa...orisationMacro

ONTAYG

[Vba14]

Bonjour ONTAYG,

Merci pour ta réponse. Je devrais pouvoir m'en sortir avec ça.
Meilleures salutations

[Thumb down]

Bonjour,
Un msgbox pour dire que le mot de passe n'est pas bon je peux comprendre, mais pour dire qu'il est bon j'en vois pas l'intérêt !
Personnellement je mets un label écrit en rouge "Mot de passe incorrect" celui ci que st visible True/False