Autres Historique de connexion

[louis.dcmr]

Bonjour je viens ici car j’ai réussis as créé une page d’identification avec 2textbox une Textbox utilisateur et une Textbox mot de passe qui permette que lorsque les deux sont bon affiché un irréformable d’encaissement... mais je désirerais savoir si quelqu’un pourrai m’aider pour créer un historique de connexion la feuille est déjà créé elle s’appelle « Histo » cliquez sur ouvrir caisse et vous comprendrez mieux et aller faire un tour dans le feuille histo
Les mots de passes par defaut sont ADMIN et ADMIN
Merci d’avance

 

[sousou]

Bonjour
Tu peux modifier comme ceci le code de ton userform1
UserForm1.Hide
With Sheets("Histo")
drlg = .Cells(.UsedRange.Columns(1).Rows.Count + 10, 1).End(xlUp).Row + 1
.Cells(drlg, 1) = Me.TextBox1
.Cells(drlg, 2) = Date
.Cells(drlg, 3) = Time
End With
Commande.Show

 

[Nairolf]

Salut louis.dcmr et sousou
Une autre proposition à mettre dans ta fonction VerifMDP, après la ligne VerifMDP = True

Dim a
a = WorksheetFunction.CountA(Worksheets("Histo").Range("A:A"))
Worksheets("Histo").Cells(1 + a, 1) = "Utilisateur"
Worksheets("Histo").Cells(1 + a, 2) = Now

 

[louis.dcmr]

Bonjour
Tu peux modifier comme ceci le code de ton userform1
UserForm1.Hide
With Sheets("Histo")
drlg = .Cells(.UsedRange.Columns(1).Rows.Count + 10, 1).End(xlUp).Row + 1
.Cells(drlg, 1) = Me.TextBox1
.Cells(drlg, 2) = Date
.Cells(drlg, 3) = Time
End With
Commande.Show

Bonjour merci pour votre code mais il y as une erreur il me marque variable non definie est il me selectionne drlg = …
Que faire ?

 

[Nairolf]

Il faut rajouter

dim drlg

en début de procédure

 

[sousou]

Oubliez de le dire