Bonsoir à tous
Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le
fichier.
Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click()
util = TextBox1.Value
rec:
trouve = Format(Not IsError(Application.Match(util,
Range("Users").Columns(1), 0)))
ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then
p = Sheets("Donné").Cells(ligne, 38)
If TextBox2.Value = p Then
ReplaceFenêtre
End
Else
'ici si le mot de passe n'est pas valide rien ne s'exécute
MsgBox ("Mot de passe invalide")
'il faut ajouter
ThisWorkbook.Close SaveChanges:=False '<----
End
End If
Else
MsgBox ("Utilisateur inconnu")
x = x + 1
If x = 3 Then
End
Else
util = InputBox("Entrer votre nom d'utilisateur")
GoTo rec
End If
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LeSteph
Bonjour Daniel, Peut être en glissant en début ''''' Dim chance chance=0 ''''' puis dans le else à l'endroit de 'ici si le mot de passe n'est pas valide rien ne s'exécute
'''''''' chance=chance+1 MsgBox ("Mot de passe invalide")
if chance>3 then ThisWorkbook.Close SaveChanges:úlse Exit sub end if ''''''''
LeSteph
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le fichier. Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click() util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0) If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
Bonjour Daniel,
Peut être en glissant
en début
'''''
Dim chance
chance=0
'''''
puis dans le else à l'endroit de
'ici si le mot de passe n'est pas valide rien ne s'exécute
''''''''
chance=chance+1
MsgBox ("Mot de passe invalide")
if chance>3 then
ThisWorkbook.Close SaveChanges:úlse
Exit sub
end if
''''''''
LeSteph
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:Ob8plbVZEHA.1048@tk2msftngp13.phx.gbl...
Bonsoir à tous
Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le
fichier.
Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click()
util = TextBox1.Value
rec:
trouve = Format(Not IsError(Application.Match(util,
Range("Users").Columns(1), 0)))
ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then
p = Sheets("Donné").Cells(ligne, 38)
If TextBox2.Value = p Then
ReplaceFenêtre
End
Else
'ici si le mot de passe n'est pas valide rien ne s'exécute
MsgBox ("Mot de passe invalide")
'il faut ajouter
ThisWorkbook.Close SaveChanges:úlse '<----
End
End If
Else
MsgBox ("Utilisateur inconnu")
x = x + 1
If x = 3 Then
End
Else
util = InputBox("Entrer votre nom d'utilisateur")
GoTo rec
End If
End If
End Sub
Bonjour Daniel, Peut être en glissant en début ''''' Dim chance chance=0 ''''' puis dans le else à l'endroit de 'ici si le mot de passe n'est pas valide rien ne s'exécute
'''''''' chance=chance+1 MsgBox ("Mot de passe invalide")
if chance>3 then ThisWorkbook.Close SaveChanges:úlse Exit sub end if ''''''''
LeSteph
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le fichier. Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click() util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0) If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
Philippe.R
Bonjour Daniel, Tu peux essayer comme ceci :
Private Sub CommandButton1_Click() deb: zaza = zaza + 1 If zaza > 3 Then Exit Sub On Error GoTo deb util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range _ ("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le fichier. Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click() util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0) If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
Bonjour Daniel,
Tu peux essayer comme ceci :
Private Sub CommandButton1_Click()
deb:
zaza = zaza + 1
If zaza > 3 Then Exit Sub
On Error GoTo deb
util = TextBox1.Value
rec:
trouve = Format(Not IsError(Application.Match(util, Range _
("Users").Columns(1), 0)))
ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then
p = Sheets("Donné").Cells(ligne, 38)
If TextBox2.Value = p Then
ReplaceFenêtre
End
Else
'ici si le mot de passe n'est pas valide rien ne s'exécute
MsgBox ("Mot de passe invalide")
'il faut ajouter
ThisWorkbook.Close SaveChanges:úlse '<----
End
End If
Else
MsgBox ("Utilisateur inconnu")
x = x + 1
If x = 3 Then
End
Else
util = InputBox("Entrer votre nom d'utilisateur")
GoTo rec
End If
End If
End Sub
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:Ob8plbVZEHA.1048@tk2msftngp13.phx.gbl...
Bonsoir à tous
Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le
fichier.
Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click()
util = TextBox1.Value
rec:
trouve = Format(Not IsError(Application.Match(util,
Range("Users").Columns(1), 0)))
ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then
p = Sheets("Donné").Cells(ligne, 38)
If TextBox2.Value = p Then
ReplaceFenêtre
End
Else
'ici si le mot de passe n'est pas valide rien ne s'exécute
MsgBox ("Mot de passe invalide")
'il faut ajouter
ThisWorkbook.Close SaveChanges:úlse '<----
End
End If
Else
MsgBox ("Utilisateur inconnu")
x = x + 1
If x = 3 Then
End
Else
util = InputBox("Entrer votre nom d'utilisateur")
GoTo rec
End If
End If
End Sub
Private Sub CommandButton1_Click() deb: zaza = zaza + 1 If zaza > 3 Then Exit Sub On Error GoTo deb util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range _ ("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le fichier. Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click() util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0) If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
LeSteph
oupss! on est pas dans une boucle en début : Static chance '''''''et on initialise surtout pas avec chance=0''''
"LeSteph" a écrit dans le message de news:40ee39b8$0$24422$
Bonjour Daniel, Peut être en glissant en début ''''' Dim chance chance=0 ''''' puis dans le else à l'endroit de 'ici si le mot de passe n'est pas valide rien ne s'exécute
'''''''' chance=chance+1 MsgBox ("Mot de passe invalide")
if chance>3 then ThisWorkbook.Close SaveChanges:úlse Exit sub end if ''''''''
LeSteph
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le fichier. Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click() util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0) If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
oupss! on est pas dans une boucle
en début :
Static chance
'''''''et on initialise surtout pas avec chance=0''''
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:40ee39b8$0$24422$636a15ce@news.free.fr...
Bonjour Daniel,
Peut être en glissant
en début
'''''
Dim chance
chance=0
'''''
puis dans le else à l'endroit de
'ici si le mot de passe n'est pas valide rien ne s'exécute
''''''''
chance=chance+1
MsgBox ("Mot de passe invalide")
if chance>3 then
ThisWorkbook.Close SaveChanges:úlse
Exit sub
end if
''''''''
LeSteph
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:Ob8plbVZEHA.1048@tk2msftngp13.phx.gbl...
Bonsoir à tous
Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le
fichier.
Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click()
util = TextBox1.Value
rec:
trouve = Format(Not IsError(Application.Match(util,
Range("Users").Columns(1), 0)))
ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then
p = Sheets("Donné").Cells(ligne, 38)
If TextBox2.Value = p Then
ReplaceFenêtre
End
Else
'ici si le mot de passe n'est pas valide rien ne s'exécute
MsgBox ("Mot de passe invalide")
'il faut ajouter
ThisWorkbook.Close SaveChanges:úlse '<----
End
End If
Else
MsgBox ("Utilisateur inconnu")
x = x + 1
If x = 3 Then
End
Else
util = InputBox("Entrer votre nom d'utilisateur")
GoTo rec
End If
End If
End Sub
oupss! on est pas dans une boucle en début : Static chance '''''''et on initialise surtout pas avec chance=0''''
"LeSteph" a écrit dans le message de news:40ee39b8$0$24422$
Bonjour Daniel, Peut être en glissant en début ''''' Dim chance chance=0 ''''' puis dans le else à l'endroit de 'ici si le mot de passe n'est pas valide rien ne s'exécute
'''''''' chance=chance+1 MsgBox ("Mot de passe invalide")
if chance>3 then ThisWorkbook.Close SaveChanges:úlse Exit sub end if ''''''''
LeSteph
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le fichier. Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click() util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0) If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
LeSteph
Bonjour Philippe
"Philippe.R" a écrit dans le message de news:
Bonjour Daniel, Tu peux essayer comme ceci :
Private Sub CommandButton1_Click() deb: zaza = zaza + 1 If zaza > 3 Then Exit Sub On Error GoTo deb util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range _ ("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le fichier. Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click() util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0) If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
Bonjour Philippe
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:eSoaj0XZEHA.2016@TK2MSFTNGP09.phx.gbl...
Bonjour Daniel,
Tu peux essayer comme ceci :
Private Sub CommandButton1_Click()
deb:
zaza = zaza + 1
If zaza > 3 Then Exit Sub
On Error GoTo deb
util = TextBox1.Value
rec:
trouve = Format(Not IsError(Application.Match(util, Range _
("Users").Columns(1), 0)))
ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then
p = Sheets("Donné").Cells(ligne, 38)
If TextBox2.Value = p Then
ReplaceFenêtre
End
Else
'ici si le mot de passe n'est pas valide rien ne s'exécute
MsgBox ("Mot de passe invalide")
'il faut ajouter
ThisWorkbook.Close SaveChanges:úlse '<----
End
End If
Else
MsgBox ("Utilisateur inconnu")
x = x + 1
If x = 3 Then
End
Else
util = InputBox("Entrer votre nom d'utilisateur")
GoTo rec
End If
End If
End Sub
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:Ob8plbVZEHA.1048@tk2msftngp13.phx.gbl...
Bonsoir à tous
Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le
fichier.
Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click()
util = TextBox1.Value
rec:
trouve = Format(Not IsError(Application.Match(util,
Range("Users").Columns(1), 0)))
ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then
p = Sheets("Donné").Cells(ligne, 38)
If TextBox2.Value = p Then
ReplaceFenêtre
End
Else
'ici si le mot de passe n'est pas valide rien ne s'exécute
MsgBox ("Mot de passe invalide")
'il faut ajouter
ThisWorkbook.Close SaveChanges:úlse '<----
End
End If
Else
MsgBox ("Utilisateur inconnu")
x = x + 1
If x = 3 Then
End
Else
util = InputBox("Entrer votre nom d'utilisateur")
GoTo rec
End If
End If
End Sub
Private Sub CommandButton1_Click() deb: zaza = zaza + 1 If zaza > 3 Then Exit Sub On Error GoTo deb util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range _ ("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le fichier. Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click() util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0) If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
Philippe.R
Bonjour LeSteph ;o)) -- Amicales Salutations
"LeSteph" a écrit dans le message de news:40ee3bdb$0$24425$
Bonjour Philippe
"Philippe.R" a écrit dans le message de news:
Bonjour Daniel, Tu peux essayer comme ceci :
Private Sub CommandButton1_Click() deb: zaza = zaza + 1 If zaza > 3 Then Exit Sub On Error GoTo deb util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range _ ("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le fichier. Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click() util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0) If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
Bonjour LeSteph ;o))
--
Amicales Salutations
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:40ee3bdb$0$24425$636a15ce@news.free.fr...
Bonjour Philippe
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:eSoaj0XZEHA.2016@TK2MSFTNGP09.phx.gbl...
Bonjour Daniel,
Tu peux essayer comme ceci :
Private Sub CommandButton1_Click()
deb:
zaza = zaza + 1
If zaza > 3 Then Exit Sub
On Error GoTo deb
util = TextBox1.Value
rec:
trouve = Format(Not IsError(Application.Match(util, Range _
("Users").Columns(1), 0)))
ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then
p = Sheets("Donné").Cells(ligne, 38)
If TextBox2.Value = p Then
ReplaceFenêtre
End
Else
'ici si le mot de passe n'est pas valide rien ne s'exécute
MsgBox ("Mot de passe invalide")
'il faut ajouter
ThisWorkbook.Close SaveChanges:úlse '<----
End
End If
Else
MsgBox ("Utilisateur inconnu")
x = x + 1
If x = 3 Then
End
Else
util = InputBox("Entrer votre nom d'utilisateur")
GoTo rec
End If
End If
End Sub
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:Ob8plbVZEHA.1048@tk2msftngp13.phx.gbl...
Bonsoir à tous
Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le
fichier.
Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click()
util = TextBox1.Value
rec:
trouve = Format(Not IsError(Application.Match(util,
Range("Users").Columns(1), 0)))
ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then
p = Sheets("Donné").Cells(ligne, 38)
If TextBox2.Value = p Then
ReplaceFenêtre
End
Else
'ici si le mot de passe n'est pas valide rien ne s'exécute
MsgBox ("Mot de passe invalide")
'il faut ajouter
ThisWorkbook.Close SaveChanges:úlse '<----
End
End If
Else
MsgBox ("Utilisateur inconnu")
x = x + 1
If x = 3 Then
End
Else
util = InputBox("Entrer votre nom d'utilisateur")
GoTo rec
End If
End If
End Sub
"LeSteph" a écrit dans le message de news:40ee3bdb$0$24425$
Bonjour Philippe
"Philippe.R" a écrit dans le message de news:
Bonjour Daniel, Tu peux essayer comme ceci :
Private Sub CommandButton1_Click() deb: zaza = zaza + 1 If zaza > 3 Then Exit Sub On Error GoTo deb util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range _ ("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0)
If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Dans cette macro lorsque l'utilisateur fait une erreur la macro ferme le fichier. Comment faire pour donné 3 chance a l"utilisateur ?
Private Sub CommandButton1_Click() util = TextBox1.Value rec: trouve = Format(Not IsError(Application.Match(util, Range("Users").Columns(1), 0))) ligne = Application.Match(util, Range("Users").Columns(1), 0) If util <> "" And trouve = "True" Then p = Sheets("Donné").Cells(ligne, 38) If TextBox2.Value = p Then ReplaceFenêtre End Else 'ici si le mot de passe n'est pas valide rien ne s'exécute MsgBox ("Mot de passe invalide") 'il faut ajouter ThisWorkbook.Close SaveChanges:úlse '<---- End End If Else MsgBox ("Utilisateur inconnu") x = x + 1 If x = 3 Then End Else util = InputBox("Entrer votre nom d'utilisateur") GoTo rec End If End If End Sub