VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmPimsleur 
   Caption         =   "EasyVoca"
   ClientHeight    =   3960
   ClientLeft      =   -730
   ClientTop       =   -3260
   ClientWidth     =   13100
   OleObjectBlob   =   "frmPimsleur.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmPimsleur"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub btnAnnuler_Click()
    Unload Me
End Sub

Private Sub btnNewSample_Click()
    Dim strMsg As String
    strMsg = "Le système gère un seul jeu de 60 mots pour l'apprentissage espacée." & vbCrLf & _
           "Souhaitez supprimer le jeu existant et créer un nouveau?"
    If lstJeuxMots.ListCount > 0 Then
       If MsgBox(strMsg, vbYesNo, "Création d'un nouvel échantillon") = vbYes Then
            CleanSuiviEvalTable ("PIMSLEUR")
       End If
    End If
End Sub

Private Sub UserForm_Initialize()
    Dim CategWrks As Worksheet, rg As Range, rg1 As Range, idx As Integer, i As Integer
    Dim j As Integer, k As Integer, l As Integer, m As Integer, n As Integer, o As Integer
    Dim tbl As ListObject, tblCateg As ListObject

    Me.Height = 340
    Me.Width = 678

    lblDate1 = "": lblDate2 = "": lblDate3 = "": lblDate4 = "": lblDate5 = "": lblDate6 = ""
    lblDate1.BackColor = &HC0C0C0: lblDate1.ForeColor = &HC00000
    lblDate2.BackColor = &HC0C0C0: lblDate2.ForeColor = &HC00000
    lblDate3.BackColor = &HC0C0C0: lblDate3.ForeColor = &HC00000
    lblDate4.BackColor = &HC0C0C0: lblDate4.ForeColor = &HC00000
    lblDate5.BackColor = &HC0C0C0: lblDate5.ForeColor = &HC00000
    lblDate6.BackColor = &HC0C0C0: lblDate6.ForeColor = &HC00000

    'On récupère dans la table CATEGORY la liste des onglets (feuilles ou tables)
    Set CategWrks = ThisWorkbook.Sheets("SUIVI_EVAL")
    Set tblCateg = CategWrks.ListObjects("TAB_SUIVI_EVAL")
    Set rg = tblCateg.DataBodyRange

    j = 0: k = 0: l = 0: m = 0: n = 0: o = 0
    If Not rg Is Nothing Then
        For idx = 1 To rg.Rows.Count
            If Trim(rg(idx, 5).Value) = "PIMSLEUR" And Trim(rg(idx, 8).Value) = "JEU_1" Then
                lstJeuxMots.AddItem
                lstJeuxMots.List(j, 0) = rg(idx, 2).Value
                j = j + 1
                If lblDate1.Caption = "" Then lblDate1.Caption = rg(idx, 6).Value
            ElseIf Trim(rg(idx, 5).Value) = "PIMSLEUR" And Trim(rg(idx, 8).Value) = "JEU_2" Then
                lstJeuxMots.List(k, 1) = rg(idx, 2).Value
                k = k + 1
                If lblDate2.Caption = "" Then lblDate2.Caption = rg(idx, 6).Value
            ElseIf Trim(rg(idx, 5).Value) = "PIMSLEUR" And Trim(rg(idx, 8).Value) = "JEU_3" Then
                lstJeuxMots.List(l, 2) = rg(idx, 2).Value
                l = l + 1
                If lblDate3.Caption = "" Then lblDate3.Caption = rg(idx, 6).Value
            ElseIf Trim(rg(idx, 5).Value) = "PIMSLEUR" And Trim(rg(idx, 8).Value) = "JEU_4" Then
                lstJeuxMots.List(m, 3) = rg(idx, 2).Value
                m = m + 1
                If lblDate4.Caption = "" Then lblDate4.Caption = rg(idx, 6).Value
            ElseIf Trim(rg(idx, 5).Value) = "PIMSLEUR" And Trim(rg(idx, 8).Value) = "JEU_5" Then
                lstJeuxMots.List(n, 4) = rg(idx, 2).Value
                n = n + 1
                If lblDate5.Caption = "" Then lblDate5.Caption = rg(idx, 6).Value
            ElseIf Trim(rg(idx, 5).Value) = "PIMSLEUR" And Trim(rg(idx, 8).Value) = "JEU_6" Then
                lstJeuxMots.List(o, 5) = rg(idx, 2).Value
                o = o + 1
                If lblDate6.Caption = "" Then lblDate6.Caption = rg(idx, 6).Value
            End If
        Next
    End If

    'Mettre en évidence les jeux activés ou débloqués
    If Trim(lblDate1.Caption) <> "" Then _
       If Date >= CDate(lblDate1.Caption) Then lblDate1.BackColor = vbGreen ': lblDate1.ForeColor = vbWhite
    


End Sub