Sans nom

    '+---------------------------------------------------------------------+
    '|Fonction : Retrouver la classe d'une cellule a partir de son instance|
    '+---------------------------------------------------------------------+
    Private Function trouver_ClasseCellule(ByVal sender As Label) As Integer
        Dim valeurs() As String
        Dim separateur() As Char = {"l", "c"}
        Dim str As String = sender.name
        str = str.Substring(10)
        valeurs = str.Split(separateur)

        If valeurs(1) + 1 > NombreClasse Then SelectionAM = False Else SelectionAM = True
        'If SelectionAM Then
        '    Return ((80 - (81 - sender.Top \ 20) - 3) Mod NombreClasse) + 1
        'Else
        '    ' msgbox ((81 - sender.Top \ 20)
        '    Return ((80 - (81 - sender.Top \ 20) - 3) Mod NombreClasse) + 1
        'End If

        If SelectionAM Then
            If sender.Top = 81 Then
                Return 1
            Else
                Return (((sender.Top - 81) / 10) / 2)
            End If
        Else
            If (((sender.Top - 81) / 10) / 2) - NombreClasse = 0 Then
                Return 1
            Else
                Return (((sender.Top - 81) / 10) / 2) - NombreClasse
            End If
        End If


    End Function