Aide pour codification VBA

Version imprimable

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:

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

18/09/2007, 09h00
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à

Code:

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

Citation:

Envoyé par random

Code:

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:king: