Function VerifMdP(Utilisateur As String, MdP As String) As Boolean
Dim RngTrouve As Range, DateTrouve As Range
VerifMdP = False 'par défaut, renvoie FAUX
With Feuil2 'dans la feuille paramétrage
'cherche, colonne E, le nom d'utilisateur saisi
Set RngTrouve = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole)
Set DateTrouve = Feuil1.Columns(1).Cells.Find(Date)
If RngTrouve Is Nothing Then 'si il ne trouve pas
VerifMdP = False 'la fonction renvoie faux
MsgBox ("Nom d'utilisateur incorrect! " & Chr(14) & "Veuillez reessayez!")
Else 's'il le trouve
'vérifie que le mot saisi feuille parametrgae colonne G est identique au mot de passe saisi dans l'USF
If RngTrouve.Offset(0, 1) <> MdP Then
VerifMdP = False 'si FAUX
MsgBox ("Mot de passe incorrect! Utilisateur non identifié! " & Chr(10) & "Veuillez reessayer!")
Else
VerifMdP = True 'si VRAI
With Feuil4
.Visible = xlSheetVisible
.Activate
ActiveWindow.Zoom = 100
End With
End If
End If
End With
Feuil1.Range(DateTrouve.Address).Offset(, 1) = RngTrouve
End Function