Bonjour Forum,

Est il possible de m'apporter votre aide en pour résoudre la saise d'un d'un mot de passe. Au bout de 2 saisie, on un message " Dérnier essai". Si on dépasse les trois tentatives, on doit sortir du programme.
Merci par avance.

Cordialement



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
28
Sub Mot_de_passe()
 
    Dim Saisie As String
    Dim Mot_de_passe As String
    Dim Compteur As Integer
 
    Mot_de_passe = "azerty"
 
     Do
 
     Compteur = Compteur + 1
     Saisie = InputBox("Tapez votre mot de passe :")
 
            If Compteur = 2 Then
                MsgBox (" dernier essai ")
            ElseIf Compteur = 3 Then
                MsgBox ("vous n'avez pas accès à cette application")
 
            ElseIf Saisie = Mot_de_passe Then
                MsgBox "Acces accordé !"
 
            Else
                MsgBox "veuillez saisir à nouveau votre mot de passe !"
            End If
 
    Loop While Saisie <> Mot_de_passe
 
End Sub