Discussion :

[patmicro]

Bonjour à tous les lecteurs : J'ai des lacunes en matière de programmation VBA.
Je besoin de votre aide pour terminer une macro c'est pourtant simple à comprendre mais mon anglais mon fait défaut.
Je tourne en boucle sur mon code
Principe : Si mot de passe "OK" Alors on exécute la procédure Si non on Quitte le fichier

Si le MDP est ok la macro me demande à nouveau le MDP et c'est cette fonction qui ne fonctionne pas

Par avance merci pour votre aide.

Code vb :

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
29
30
31
32
 
Sub Accès()
 
Const MdP As String = "toto" 'tapez le mot de passe.
 
 
Dim Mdp1 As Variant, x As Integer
For x = 3 To 1 Step -1 'Nombre d'essais = 3
  Mdp1 = Application.InputBox("Entrez le mot de passe" & Chr(10) & "il vous reste " & x & " essais")
  If VarType(Mdp1) = vbBoolean Then Exit For
  If Mdp1 = MdP Then
    MsgBox "Ok Mot de passe valide" 'à remplacer par la future procédure
 
    Range("B4").Select '(pour l'exemple) si ok ma procedure suivante
    'Exit Sub
   ' Next
    If Mdp1 <> MdP Then
    MsgBox "Ok Mot de passe non valide"
 
    'si pos ok on quit l'application
 
    'Next
 
    End If
    End If
    Next
 
    'Application.DisplayAlerts = False
    ThisWorkbook.Close
    'Application.DisplayAlerts = True
    Application.Quit
End Sub

[Invité]

Bonjour
Teste comme ceci

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
29
30
31
Sub Accès()
 
Const MdP As String = "toto" 'tapez le mot de passe.
 
 
Dim Mdp1 As Variant, x As Integer
For x = 3 To 1 Step -1 'Nombre d'essais = 3
  Mdp1 = Application.InputBox("Entrez le mot de passe" & Chr(10) & "il vous reste " & x & " essais")
  If VarType(Mdp1) = vbBoolean Then Exit For
  If Mdp1 = MdP Then
    MsgBox "Ok Mot de passe valide" 'à remplacer par la future procédure
 
    Range("B4").Select '(pour l'exemple) si ok ma procedure suivante
    Exit Sub
   ' Next
    ElseIf Mdp1 <> MdP Then
    MsgBox "Ok Mot de passe non valide"
 
    'si pos ok on quit l'application
 
    'Next
 
    End If
 
    Next
 
    'Application.DisplayAlerts = False
    ThisWorkbook.Close
    'Application.DisplayAlerts = True
    Application.Quit
End Sub

[joe.levrai]

Bonjour,

une proposition

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
Sub Accèstoto()
Const MdP As String = "toto"
Dim Mdp1 As Variant, MdpOK As Boolean, Cpt As Long
    While Not MdpOK And Cpt < 3
        Mdp1 = Application.InputBox("Entrez le mot de passe" & Chr(10) & "il vous reste " & 3 - Cpt & " essai" & IIf(Cpt < 2, "s", ""))
        If VarType(Mdp1) = vbBoolean Then Exit Sub
        If Mdp1 = MdP Then MdpOK = True Else Cpt = Cpt + 1
    Wend
 
    If Not MdpOK Then
        'ThisWorkbook.Close
        MsgBox "trop de tentatives, fermeture du fichier"
    Else
        MsgBox "ok : on lance la procédure"
    End If
End Sub

[patmicro]

RE: Un très grand merci à tous les deux

Mon problème est résolu

J'aurais peut-être besoin de vous pour 2 autres procédures si je n'arrive pas à m'en sortir.

Encore Merci.

[MarcelG]

Bonjour à vous,

Salut Joe (ravi de te retrouver)

Personnellement, pour une meilleure exploitation de la méthode Inputbox, je précise toujours son paramètre "Type".

Une variante en évitant le Exit Sub

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 Accèstoto_Marcel()
 
Const MdP As String = "toto"
 
Dim Mdp1 As Variant, MdpOK As Boolean, Cpt As Long
Dim lemessage As String
 
    MdpOK = False
    Cpt = 0
 
    Do
        lemessage = "Entrez le mot de passe" & Chr(10) & "il vous reste " & 3 - Cpt & " essai" & IIf(Cpt < 2, "s", "")
        Mdp1 = Application.InputBox( _
                            Prompt:=lemessage, _
                            Type:=2)
        Debug.Print Mdp1
        If Mdp1 = MdP Then MdpOK = True Else Cpt = Cpt + 1
    Loop While Cpt < 3 And MdpOK = False And Mdp1 <> False
 
    If Not MdpOK Then
        'ThisWorkbook.Close
        MsgBox "trop de tentatives, fermeture du fichier"
    Else
        MsgBox "ok : on lance la procédure"
    End If
 
 
End Sub

[patmicro]

RE : Merci également à toi Marcel
je reviens tout à l'heure pour une autre demande dans un nouveau post.