'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Public Const MdPAdmin As String = "MdP_Prov"
'_____________________________________________
'
'Enregistrement des pronostiques
Sub Record_Prono()
Dim Tb(1 To 1, 1 To 16), MdP As String, RépMdP, TbMdP, Lgn As Long, Colonne As Integer, Pseudo As String, Journée
If F01_Prono.[_Pseudo] = "" Or F01_Prono.[_Journée] = "" Then MsgBox "Renseignez d'abord Pseudo et Journée !": Exit Sub
'____________________________________________________________________________________________________________________
'Vérification éventuelle : les résultats de la journée sont-ils renseignés ? (voir conditions pour la phase finale)
' If IsNumeric(F01_Prono.[_Journée]) Then
' For i = 1 To 7
' If F01_Prono.Evaluate("_Match0" & i) = "" Or F01_Prono.Evaluate("_Écart0" & i) = "" Then MsgBox "Renseignez d'abord tous les résultats !": Exit Sub
' Next
' End If
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
'Lecture du Pseudo et de la journée
Pseudo = F01_Prono.[_Pseudo]: Journée = F01_Prono.[_Journée]
'Recherche du mot de passe du pseudo
MdP = "": TbMdP = F03_Param.ListObjects("_Tb_MdP").Range.Value
For i = 2 To UBound(TbMdP, 1)
If TbMdP(i, 1) = Pseudo Then MdP = TbMdP(i, 2): Exit For
Next i
'Demande du mot de passe
RépMdP = Application.InputBox(Title:="Les pronostiques existent déjà", Prompt:="Mot de passe :", Type:=2)
If RépMdP <> MdP Then MsgBox "Mot de passe incorrect !" & Chr(10) & "Abandon": Exit Sub
'Enregistrement des pronos
'Lecture des pronos (Remplir Tb)
Tb(1, 1) = Pseudo: Tb(1, 2) = Journée
With F01_Prono
For i = 1 To 7
Tb(1, 1 + 2 * i) = .Evaluate("_Match0" & i)
Tb(1, 2 + 2 * i) = .Evaluate("_Écart0" & i)
Next i
End With
'Ecriture dans le recueil
With F02_Recueil
Colonne = .ListObjects(1).Range.Cells(1).Column 'N° de la colonne 1
Lgn = .Cells(.Rows.Count, Colonne).End(xlUp).Row 'Accès à la dernière ligne
Lgn = Lgn + Abs(.Cells(Lgn, Colonne) <> "") 'Si la dernière ligne n'est pas vide ligne suivante
.Cells(Lgn, Colonne).Resize(1, 16).Value = Tb 'Remplir la ligne avec Tb
End With
MsgBox "Pronostiques enregistrés."
'RàZ du formulaire (sauf le Pseudo)
Application.EnableEvents = False
F01_Prono.[_Journée].ClearContents
For j = 1 To 7
F01_Prono.Evaluate("_Match0" & j).ClearContents
F01_Prono.Evaluate("_Écart0" & j).ClearContents
Next j
F01_Prono.[_Journée].ClearContents
Application.EnableEvents = True
F01_Prono.[_Journée].Activate
End Sub
Sub Accès_Admin()
RépMdP = Application.InputBox(Title:="Pronos TOP14 - Accès Admin", Prompt:="Mot de passe :", Type:=2)
If RépMdP <> MdPAdmin Then MsgBox "Mot de passe incorrect !" & Chr(10) & "Abandon": Exit Sub
F02_Recueil.Visible = xlSheetVisible
F03_Param.Visible = xlSheetVisible
F02_Recueil.Activate
End Sub
