Discussion :

[NEC14]

Bonjour à tous,

Voici un morceau de code que j'ai tapé. Je souhaiterai y ajouter qu'au bout de 3 essais infructueux, le fichier se ferme sans sauvegarde.
Pouvez-vous m'aider, s'il vous plait ?
Par avance merci.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
    If Controls("Textbox1") = "" Then
        MsgBox "Vous devez taper un mot de passe !", vbExclamation, "ERREUR... Taper le mot de passe SVP !"
        Controls("Textbox1").SetFocus
        Exit Sub
        End If
        FrmPasse.TextBox1.Text = "6100"
        Unload FrmPasse
End Sub

[grrimag]

Salut,

je pense que ce n'est pas possible au niveau de cette fonction simplement parce qu'à chaque saisie de mot de passe, l'user va cliquer et relancer la fonction.
Donc il faut que tu introduises une variable compteur au niveau de ton userform et que tu l'incrémentes dans ta sub.

Voilà

[random]

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
 
Private Sub CommandButton1_Click()
Static compteur As Byte
    If Controls("Textbox1") = "" Then
        MsgBox "Vous devez taper un mot de passe !", vbExclamation, "ERREUR... Taper le mot de passe SVP !"
        Controls("Textbox1").SetFocus
        compteur = compteur + 1
        If compteur = 3 Then
        Application.Quit
        Exit Sub
        End If
        compteur = 0
        FrmPasse.TextBox1.Text = "6100"
        Unload FrmPasse
End Sub

[NEC14]

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
 
Private Sub CommandButton1_Click()
Static compteur As Byte
    If Controls("Textbox1") = "" Then
        MsgBox "Vous devez taper un mot de passe !", vbExclamation, "ERREUR... Taper le mot de passe SVP !"
        Controls("Textbox1").SetFocus
        compteur = compteur + 1
        If compteur = 3 Then
        Application.Quit
        Exit Sub
        End If
        compteur = 0
        FrmPasse.TextBox1.Text = "6100"
        Unload FrmPasse
End Sub

Bonjour,
Avec toi la vie est vraiment belle.
Merci beaucoup, ça marche