XL pour MAC Transfert de données

'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
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

Private Sub Worksheet_Change(ByVal Target As Range)

     Dim Tb, Trouvé As Boolean
    
     If Target.Address <> Me.[_Pseudo].Address And Target.Address <> Me.[_Journée].Address Then Exit Sub
    
     Pseudo = Me.[_Pseudo]: Journée = Me.[_Journée]
     MdP = "": Tb = F03_Param.ListObjects("_Tb_MdP").Range.Value
     For i = 2 To UBound(Tb, 1)
          If Tb(i, 1) = Pseudo Then MdP = Tb(i, 2): Exit For
     Next i
        
     Tb = F02_Recueil.ListObjects(1).DataBodyRange.Value
     For i = 1 To UBound(Tb)
          If Tb(i, 1) = Pseudo And Tb(i, 2) = Journée Then
               Trouvé = True
               RépMdP = Application.InputBox(Title:="Les pronostiques existent déjà", Prompt:="Mot de passe :", Type:=2)
               If RépMdP <> MdP Then Exit Sub
               Application.EnableEvents = False
               For j = 1 To 7
                    Me.Evaluate("_Match0" & j) = Tb(i, 1 + 2 * j)
                    Me.Evaluate("_Écart0" & j) = Tb(i, 2 + 2 * j)
               Next j
               Application.EnableEvents = True
               Exit For
          End If
     Next i
     If Not Trouvé Then
          Application.EnableEvents = False
          For j = 1 To 7
               Me.Evaluate("_Match0" & j).ClearContents
               Me.Evaluate("_Écart0" & j).ClearContents
          Next j
          Application.EnableEvents = False
     End If
    
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

     Application.EnableEvents = False
     'Effacer le formulaire de pronos
     F01_Prono.[_Journée].ClearContents
     F01_Prono.[_Pseudo].ClearContents
     For j = 1 To 7
          F01_Prono.Evaluate("_Match0" & j).ClearContents
          F01_Prono.Evaluate("_Écart0" & j).ClearContents
     Next j
     Application.EnableEvents = True
    
     'Masquer les feuilles admin
     F02_Recueil.Visible = xlSheetVeryHidden
     F03_Param.Visible = xlSheetVeryHidden
     F00_Accueil.Activate
     Me.Save
    
End Sub