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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
| Private Sub IDENTIFICATION_Click()
Dim nblivreretard, nbjourretard As Integer
Dim i, j, dureeretard As Integer
Dim dateretour As Date
Dim error As Boolean
Sheets("stocklivre").Select
Call statut 'module de traitement de l'état du doc
'macro pour déterminer le retard si il existe des clients
Sheets("Stocklivre").Select
i = 2
Do While (Worksheets("stocklivre").Cells(i, 1) <> "")
dateretour = CDate(Cells(i, "G"))
If Cells(i, "E") = "Emprunté" And dateretour < Date Then
dureeretard = Date - dateretour
Cells(i, "H") = dureeretard
Cells(i, "H").Select
Selection.Interior.Color = 255
Selection.Font.Bold = True
Else: Cells(i, "H") = ""
End If
i = i + 1
Loop
'utiliser la feuille excel Saisie comme element permettant de faire des recherches dans la base client
'afin de faire apparaitre certains éléments du profil du client
'ensuite ouvrir le code d'identification du livre
Sheets("Saisie").Select
If Not (IsNumeric(idclt)) Then
Unload IDENTIFICATIONCLIENT
MsgBox ("Le code d'identification du client se compose de 1 à 5 chiffres. Reportez-vous à la carte du client")
IDENTIFICATIONCLIENT.Show
End If
'formule pour vérifier que le code saisi existe version client
Sheets("base clients").Select
point1:
i = 2
error = False
Do While (Worksheets("base clients").Cells(i, 2) <> "")
If CInt(idclt.Value) <> CInt(Worksheets("base clients").Cells(i, 1).Value) Then
error = True
i = i + 1
End If
Loop
If error = True Then
MsgBox = "Le code saisi n'existe pas dans la base de donnée. Veuillez en ressaisir un. Merci"[/COLOR][/B]Endif
If= 1 Then GoTo point1
Sheets("saisie").Select
Range("B3").Value = IDENTIFICATIONCLIENT.idclt.Value |
Partager